Discussion :

[Adyl2019]

Bonjour, Bonsoir à tous.

Je dois automatiser le remplissage d'une convention/contrat à partir d'excel que je bascule sur Word. J'ai déjà effectuer plusieurs macros & Interface sur Excel mais je n'ai jamais touche à VBA sur Word...
J'ai donc créer une interface directement sur Excel (ce qui me semblait le plus pertinent), mais je ne sais pas comment faire passer les informations (nom, adresse etc) écrites sur Excel dans mon fichier WORD (et surtout au bon endroit)

En clair, le but est de créer une macro qui complétera ensuite la convention d'étude automatiquement.
J'ai mis en pièce jointe le début de mon interface que je dois terminer mais si je ne sais pas comment automatiser directement sur Word je vais me retrouver bloquer...

[Menhir]

La méthode la plus pratique que j'ai trouvé est d'utiliser des Signets (Bookmark).

A l'endroit que tu veux remplacer, tu mets un texte particulier comme par exemple Marque1, de préférence d'une taille qui corresponde à peu près au texte qui doit le remplacer histoire de faciliter la mise en page.
Tu sélectionnes toute cette portion de texte > Ruban Insertion > Icone Signet
Tu donnes au signet le nom correspondant à cette portion de texte (c'est plus facile à gérer s'il y en a plusieurs).

Ensuite, en VBA, tu peux transférer le contenu d'une cellule sur ce signet avec une instruction comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WD_Dest.Bookmarks("Marque1").Range.Text = Workbooks("ClasseurSource").Worksheets("FeuilleSource").Range("A1").Text

Dans lequel WD_Dest référence le document Word de destination.

Bien sûr, il y a des dizaines d'autres méthodes comme passer par un simple remplacement : https://docs.microsoft.com/fr-fr/off...rd.replacement

[Adyl2019]

Merci pour ton aide Menhir, je vauis essayer ce soir en rentrant du boulot.
Concernant la fin, si j'ai bien compris, je dois nommer mon doc Word "WD_Dest" ?

[Menhir]

Concernant la fin, si j'ai bien compris, je dois nommer mon doc Word "WD_Dest" ?

Non.
C'est un nom de variable. Tu peux choisir n'importe lequel.

Lorsque tu ouvres ton fichier Word avec VBA, tu places la référence dans une variable de type Word.Document que tu peux appeler, par exemple, WD_Dest ou n'importe quel autre nom qui te conviendra.

Par exemple pour ouvrir un document Word :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim WD_Dest As Word.Document
Set WD_Dest = GetObject("C:\chemin\MonDoc.doc")

[Adyl2019]

Merci pour tes infos, je n'ai pas réussi malheureusement... Je dois bien mettre le codage ci dessous sur WORD ?

J'ai mis ça sur ma macro mais ça ne marche pas. Mon classeur sur Excel se nom evalSJC et il faut transférer la cellule B1 au signet que j'ai nommé Cenum.
Lorsque je lance la macro ça me surligne Workbook et ça me dit Sub ou Function non défini. Ça me fait pareil si je mets au préalable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Wbd as Workbook
Set WbD = Workbooks("evalSJC")
 
 
Sub Automatisation()
 
Dim WD_Dest As Word.Document
WD_Dest.Bookmarks("Cenum").Range.Text = Workbook("evalSJC").Worksheets("Feuil2").Range("b1").Text
 
End Sub

Merci par avance de ton aide

[Philippe Tulliez]

Bonjour;
je ne peux qu'approuver la réponse de Menhir , que je salue au passage. La meilleure façon de copier des données de'Excel vers Word est l'utilisation des signets.

Voir discussions sur le même sujet

• Transfert de données Excel vers Word
• Copie de données Excel dans Word et mise en forme

[Adyl2019]

Merci pour votre aide, j'ai utilisé la méthode de Menhir mais un message d'erreur s'affiche
Type défini par l'utilisateur non défini.

Je ne sais pas d'où cela peut provenir...
Merci pour votre patience et votre aide;

[Menhir]

Lorsque je lance la macro ça me surligne Workbook et ça me dit Sub ou Function non défini.

Workbook accompagné d'un index doit prendre un "s" final.
L'index indique un élément de la collection Workbooks.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Wbd as Workbook
Set WbD = Workbooks("evalSJC")

Ceci n'a aucune signification en dehors d'un module Sub ou Function.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Automatisation()
 
Dim WD_Dest As Word.Document
WD_Dest.Bookmarks("Cenum").Range.Text = Workbook("evalSJC").Worksheets("Feuil2").Range("b1").Text
 
End Sub

WD_Dest ne peut pas être utilisé puisque tu ne la renseignes pas.

Merci pour votre aide, j'ai utilisé la méthode de Menhir mais un message d'erreur s'affiche
Type défini par l'utilisateur non défini.

Est-ce que tu as chargé la bibliothèque d'objets Word ?
Menu Outils > Références > Cocher la bibliothèque Microsoft Word Object Library.

Sincèrement, avant d'essayer de batir une application, je pense que tu devrais apprendre les bases : http://bidou.developpez.com/article/VBA/

[Adyl2019]

J'avais mal retranscris sur ma réponse mais il était evidemment dans ma Sub

Cela faisait 6 mois que je n'avais pas codé j'ai du me mettre un petit coup de refresh en effet...

Je suis malheureusement toujours bloqué mais maintenant pour trouver mon chemin.., j'essaye Ce2018, Ce2018.docx etc mais rien y fait ca ne reconnaot pas mon chemin et le document Word que je veux modifier...



Merci encore pour votre patience

[Adyl2019]

J'ai finalement trouvé merci pour votre aide qui m'a grandement aidé.