Navigation word par VBA
n
Bonjour à tous,
Je suis entrain d'essayer d'optimiser un programme qui boucle sur des dossiers words.
Pour gagner du temps et ne pas boucler sur le document entier j'aimerais aller directement à un titre de l'onglet navigation de word
Le nom peut changer mais il y aura toujours le mot Reference à l'intérieur.
Je vous mets la structure du programme que j'ai très simplifié pour juste comprendre comment ça se déroule.
Sub IMPORT_TAB()
'Variable
Dim WordApp As Object, WordDoc As Object
Dim arrFileList As Variant, FileName As Variant
Dim tableNo%
Dim target As Range, Target2 As Range
Application.ScreenUpdating = False 'Fige l'affichage durant l'execution de la macro pour plus de rapidité
Application.DisplayAlerts = False 'Evite d'avoir des pop-up d'Alertes
'Sélection multiple de .docm dans un dossier
Sheets("TABLE").Select
arrFileList = _
Application.GetOpenFilename("Fichier(s) Word (*.doc; *.docm; *.docx;),*.doc;*.docm", 2, "Choix du dossier d'import", , True)
If Not IsArray(arrFileList) Then Exit Sub
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False
Set target = Range("A1")
'Parcours des fichiers
For Each FileName In arrFileList
Set WordDoc = WordApp.Documents.Open(FileName, ReadOnly:=True)
With WordDoc
tableNo = WordDoc.Tables.Count
If tableNo = 0 Then
MsgBox WordDoc.Name & "ne contient aucun tableau", vbExclamation, "Importation Tableaux Word"
ElseIf tableNo > 1 Then
End If
'TRAVAILLER ICI
.Close False
End With
Next FileName
MsgBox "There are " & compteur & " WordDocs"
Application.StatusBar = " Preparation of the sheet "
'Pour faire propre
Application.ScreenUpdating = True
Application.DisplayAlerts = True
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing
Sheets("LAUNCH").Select
compteur = compteur / 8
'Visuel
compteur = 0
Application.StatusBar = " Finish"
ActiveWorkbook.Save
End Sub
Je ne vous demande pas le programme entier juste le fait de sélectionner la partie souhaité dans l'onglet navigation pour travailler à l'intérieur.
Merci d'avance.
Cordialement.
n
up si quelqu'un a la moindre idée.
Nathan