remplir des signets avec Excel

  • Initiateur de la discussion Initiateur de la discussion sarah.geek
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sarah.geek

XLDnaute Nouveau
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

Code:
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
 
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
 
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

Code:
    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
 
Re : remplir des signets avec Excel

Re,

Version avec ton code à la suite :

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
511
Retour