Exporter données avec Signet dans fichier Word

[RONIBO]

Bonjour,

Je souhaite exporter des données d'Excel à Word

J'ai un fichier Excel (exemple) d'un modèle de facture ou dedans il y a : le nom du client, le numéro de facture et le montant TVA.

Dans le fichier Word il y a que du texte.

J'aimerais prendre les données qui se trouvent les cellules cités au dessus (cellule jaune dans fichier Excel) les mettre dans le fichier Word (en rouge sur fichier Word) automatiquement.

Je sais que l'on peut faire ça avec des signets, mais malheureusement je n'ai aucune idées de cette méthode.

Lorsque j'exécute le code je bloque sur cette ligne

.Bookmarks("Signet" & I).Range = LClient.Column(I - 1)

Merci d'avance aux personnes qui se pencheront à mon problème,

Bonne soirée.

Ci-joint fichier exemple, à extraire dans C: pour éviter les erreurs

 

[Caillou]

Re : Exporter données avec Signet dans fichier Word

Bonjour,

Le fichier ne comporte aucun signet ! Or, la procédure VBA cherche des signets nommés Signet1, Signet2, ... , Signet6 dans ce document : d'où le plantage.
Il faut ouvrir le document Word, sélectionner l'emplacement du signet (par exemple ICI), puis aller dans Insertion / Signet pour y placer un signet (les noms des signets doivent correspondrent à la procédure VBA) c'est à dire Signet1, ....

Par contre, dans le VBA, il y a une boucle sur les 6 colonnes de LClient et seule la première contient une valeur !!!!!!!

A te lire.

Caillou

 

[RONIBO]

Re : Exporter données avec Signet dans fichier Word

Bonjour,

Merci pour ton aide, par contre j'ai pas compris pour mon deuxième problème, tu peux l'éclaircir stp

J'ai bien crée les signets sur word comme tu m'as dit

A+

 

[Caillou]

Re : Exporter données avec Signet dans fichier Word

re,

Je parle de cette boucle
For I = 1 To 6
.Bookmarks("Signet" & I).Range = LClient.Column(I - 1)
Next
Je ne vois pas le rapport entre la feuille de calcul où il y a juste le client et cette boucle !!!
Pourquoi de 1 à 6 et en plus dans Word il n'y a que 3 signets.

Caillou

 

[RONIBO]

Re : Exporter données avec Signet dans fichier Word

Re,

Donc on devrait l'écrire comme ça:

For I = 1 To 1
.Bookmarks("Signet" & I).Range = LClient.Column(I - 1)
Next

C'est bien ça?

Il y a aussi les cellules ou y'a le numéro de facture et le montant TVA (en bas de la feuille excel)

A+

 

[Caillou]

Re : Exporter données avec Signet dans fichier Word

re,

Où plutôt, remplacer la boucle par :

   .Bookmarks("Signet1").Range = Range("A12")
   .Bookmarks("Signet2").Range = Range("G10")
   .Bookmarks("Signet3").Range = Range("G42")

Caillou

 

[RONIBO]

Re : Exporter données avec Signet dans fichier Word

Merci beaucoup caillou