remplir des signets avec Excel

[sarah.geek]

Bonjour,

Mon but est de remplir des signets d'un document Word avec une macro Excel, j'ai trouvé énormément d'exemples mais pas celui que je veux puisque 'au lieu d'un chemin fichier bien définit je veux qu'une boite de dialogue s'ouvre et que je modifie ce fichier et ensuite l’enregistrer via une variable définit

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("monDocument.doc")    'ouvre le document Word
    WordApp.Visible = False    'Word est masqué pendant l'opération
 
    For i = 1 To 3
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
    Next i
 
    WordApp.Visible = True    'affiche le document Word
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
 
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word

 

[sarah.geek]

Re : remplir des signets avec Excel

Personne comprend ce que je veux? ou personne ne sait comment faire ?

 

[tototiti2008]

Re : remplir des signets avec Excel

Bonjour sarah,

Personne comprend ce que je veux?

Pas très clair en effet

au lieu d'un chemin fichier bien définit je veux qu'une boite de dialogue s'ouvre et que je modifie ce fichier et ensuite l’enregistrer via une variable définit

La boite de dialogue pour sélectionner le fichier word à ouvrir, je vois bien mais que veux-tu dire par

et que je modifie ce fichier et ensuite l’enregistrer via une variable définit

 

[sarah.geek]

Re : remplir des signets avec Excel

Mon code doit me permettre d'ouvrir une boite de dialogue permettant d'ouvrir un document word prérempli, de le remplir grâce aux signets et ensuite de l'enregistrer

 

[tototiti2008]

Re : remplir des signets avec Excel

Re,

Pour la boite de dialogue, tu peux chercher du côté de FileDialog
L'aide VBA est bien faite dessus

un truc du genre

    Dim Cheminfic As String, fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Document Word", "*.docx;*.doc"
        If .Show = -1 Then
            Cheminfic = .SelectedItems(1)
        End If
    End With
    If Cheminfic = "" Then Exit Sub

à ajouter au début de ton code
Cheminfic contiendra l'adresse du fichier Word à ouvrir

 

[sarah.geek]

Re : remplir des signets avec Excel

Comment ensuite ajouter des données sur les signets préalablement définis :

Cheminfic.Bookmarks(Name).Range.Text = nom

ne marche pas

 

[tototiti2008]

Re : remplir des signets avec Excel

Re,

Version avec ton code à la suite :

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
Dim Cheminfic As String, fd As FileDialog

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Document Word", "*.docx;*.doc"
        If .Show = -1 Then
            Cheminfic = .SelectedItems(1)
        End If
    End With
    If Cheminfic = "" Then Exit Sub

     Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open(Cheminfic)    'ouvre le document Word
    WordApp.Visible = False    'Word est masqué pendant l'opération
 
    For i = 1 To 3
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
    Next i
 
    WordApp.Visible = True    'affiche le document Word
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
 
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word

 

[sarah.geek]

Re : remplir des signets avec Excel

Pour remplir les signets j'ai préféré utilisé

'objWord.Selection.GoTo What:=wdGoToBookmark, Name:="st"
' objWord.Selection = st

Mais ça ne marche pas dans tous puisque certains signets se situent dans une zone de texte quelqu'un à la solution ?