Discussion :

[SpaceX]

Bonjour,

J'ai réalisé une macro permettant d'aller chercher le contenu d'un fichier texte et de le copier dans une cellule de ma feuille excel.

A présent, je souhaiterais une deuxième macro qui copie la valeur d'une cellule de mon fichier Excel puis la colle dans un fichier doc (ex z:\test\toto.doc).

Par exemple, j'aimerai dans un ordre précis qu'il me copie la cellule A1 provenant de ma feuille excel et le colle dans le fichier doc suivi d'un saut à la ligne, puis qu'il me copie la cellule C1 suivi d'un saut à la ligne.

pouvez vous m'aider svp ?

Merci.

[Menhir]

A l'emplacement du document Word où tu veux implanter la valeur, tu places un bookmark (Ruban Insertion > Icone Signet).

Ensuite, ta macro se limite à trois lignes :
- Déclarer une variable de type String
- Mettre le contenu de ta cellule (propriété Text plutôt que Value) dans la variable de type String
- Mettre le contenu de la variable String à la place du bookmark

Pour la dernière étape, voir :
https://msdn.microsoft.com/fr-fr/vba...rk-object-word
https://msdn.microsoft.com/fr-fr/vba...ge-object-word
https://msdn.microsoft.com/fr-fr/vba...-property-word

Il est sans doute possible de faire ça en une ligne en transférant directement le contenu de la cellule dans le bookmark mais ayant eu des déconvenues en procédant ainsi, je conseille de passer par le rouleau compresseur d'une variable String.

[SpaceX]

A l'emplacement du document Word où tu veux implanter la valeur, tu places un bookmark (Ruban Insertion > Icone Signet).

Ensuite, ta macro se limite à trois lignes :
- Déclarer une variable de type String
- Mettre le contenu de ta cellule (propriété Text plutôt que Value) dans la variable de type String
- Mettre le contenu de la variable String à la place du bookmark

Pour la dernière étape, voir :
https://msdn.microsoft.com/fr-fr/vba...rk-object-word
https://msdn.microsoft.com/fr-fr/vba...ge-object-word
https://msdn.microsoft.com/fr-fr/vba...-property-word

Il est sans doute possible de faire ça en une ligne en transférant directement le contenu de la cellule dans le bookmark mais ayant eu des déconvenues en procédant ainsi, je conseille de passer par le rouleau compresseur d'une variable String.

Salut,

J'ai essayé la méthode avec les signets, ça marche pour une seule plage de cellule.

Par contre, si je souhaite copie/colle une autre cellule mais d'une autre colonne à mon doc grâce aux signets cela ne fonctionne plus :

Code :

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

1
2
3
For j = 7 To 11
        WordDoc.Bookmarks("SignetRAP" & j).Range.Text = Cells(i, 2)
    Next j

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Dim WordApp As Object
Dim WordDoc As Object
Dim i As Byte
 
Set WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("D:\Users\Desktop\prog1_fic\test.doc") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
 
    For i = 1 To 5
        les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 3)
    Next i
 
    'For j = 7 To 11
    '    WordDoc.Bookmarks("SignetRAP" & j).Range.Text = Cells(i, 2)
   ' Next j
 
WordApp.Visible = True 'affiche le document Word

[Menhir]

J'ai essayé la méthode avec les signets, ça marche pour une seule plage de cellule.
Par contre, si je souhaite copie/colle une autre cellule mais d'une autre colonne à mon doc grâce aux signets cela ne fonctionne plus :

Je ne vois pas trop pourquoi...
Il suffit de mettre autant de signets que nécessaires et de faire attention que les noms qu'on leur donne correspondent aux noms par lesquels on les appelle dans la macro.
Perso, j'ai une macro où je transferts une quarantaine de valeurs Excel dans autant de signets Word et tout marche sur des roulettes.

[SpaceX]

Je ne vois pas trop pourquoi...
Il suffit de mettre autant de signets que nécessaires et de faire attention que les noms qu'on leur donne correspondent aux noms par lesquels on les appelle dans la macro.
Perso, j'ai une macro où je transferts une quarantaine de valeurs Excel dans autant de signets Word et tout marche sur des roulettes.

Salut,

Tes 40 valeurs sont situées dans la même colonne ?

[Menhir]

Tes 40 valeurs sont situées dans la même colonne ?

Mes 40 bookmarks sont situés dans différentes pages d'un document de plusieurs pages.
Et les données sources sont dans plusieurs colonnes et plusieurs lignes, chaque ligne représentant un document Word différent.