Discussion :

[noa56]

Bonjour,

Je souhaite faire une macro pour importer des cellules (B1 et B4 par exemple) d'une feuille Excel (onglet feuille 2) dans un fichier word "toto.doc" (en remplacant la variable <<var1>> par le contenu de la cellule B1 et la variable <<var2>> par le contenu de la cellule B2). Puis, je souhaite importer les contenues des cellules A4 et B5 de la feuille Excel (onglet feuille 1) dans le même fichier "toto.doc" (avec var 3 et var4).

Débutant en VBA, j'avance pas à pas. j'ai tapé ca mais ca ne fonctionne pas, normal je débute (d'ailleur je me demande s'il n'y a pas plus optimum)

(J'utilise Excell 2002 mais si la nouvelle version d'office est plus adéquat, je changerais)

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
21
22
23
24
25
26
27
28
29
30
31
32
Sub Macro1() 
' Macro enregistrée le 20/02/2009 par UTILISATEUR 
' 
'selection de la cellule B3 sur la feuille toto (je ne sais pas comment dire onglet feuille 2)
Worksheets("toto").Activate 
Range("B1").Select 
'ouverture du document word 
Set wrdApp = CreateObject("Word.Application") 
Set wrdDoc = wrdApp.Documents.Open("C:\Documents and Settings\utilisateur\Mes documents\toto.doc") 
wrdApp.Visible = True 
'remplace dans le texte <<var1>> par B1
doc.Select 
Selection.Find.ClearFormatting 
Selection.Find.Replacement.ClearFormatting 
With Selection.Find 
.Text = "Selection.copy" 
.Replacement.Text = "<<var1>>" 
.Forward = True 
.Wrap = wdFindContinue 
.Format = False 
.MatchCase = True 
.MatchWholeWord = False 
.MatchKashida = False 
.MatchDiacritics = False 
.MatchAlefHamza = False 
.MatchControl = False 
.MatchWildcards = False 
.MatchSoundsLike = False 
.MatchAllWordForms = False 
End With 
Selection.Find.Execute Replace:=wdReplaceAll 
End Sub

Merci pour votre aide

[Godzestla]

Bonjour,

un exemple de solution ici

[Godzestla]

Salut,
si tu as des questions complémentaires, pose les, mais JAMAIS par MP.

[Godzestla]

Citation Noa56 (extraite d'un MP)

Wdoc.Fields(1).Result.Text = .Range("D1")
.Range("D1) je comprends que c'est la cellule de la feuille exel , mais Wdoc.Fields(1).Result.Text je ne voit pas trop ce que c dans mon doc word (j'ai essayé $1 , 1, <<1>> mais ca ne fonctionne pas)

ca doit etre pour ca qu'il met une erreur du type "L'indice n'appartient pas a la selection" et ensuite il me dit qu'il attend l'execution d'une OLE.

Sinon, je ne connais pas le publipostagz, c vrai que je me prends peut etre la tete !!!! en tout ca merci.

je commence par le publiposte, qui est le plus simple et qui convient dasn beaucoup de cas.

La source de tes données est ici un fichier excel. cas simple.
Tu crées un modèle Word et via l'assistant de publipostage (mailmerge) tu fixe des signets où tu inidiques d'insérer telle variable (colonne) de ta database (ton ficheir excel), et ainsi de suite avec chaque variable.
Une fois cela fait pour tous les champs, tu lances la fusion via l'assistant et puis c'est tout.

Si maintenant tu dois faire des choses plus tordues du genre, insérer un graphique diférent pour chaque personne, imprimer un document différent en fonction de certaines variable (langue), ou que sais-je, laors tu peux passer par du code excel.

Wdoc.Fields(1).Result.Text = .Range("D1")
.Range("D1) je comprends que c'est la cellule de la feuille exel , mais Wdoc.Fields(1).Result.Text je ne voit pas trop ce que c dans mon doc word

Wdoc.Fields(1).Result.Text correspond comme indiqué dans mon explication (il faut lire un peu quand même ) à la première zone variable (d'où le 1) dans l'ordre des varriables de ton document.

je n'ai jamais fait le test, mais je suppose que tu devrais aussi pouvoir l'appeler par son nom de variable (à tester)

Un truc du genre :

Code :

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

1
2
 
Wdoc.Fields("NomdeLaVariable1").Result.Text = .Range("D1")

[noa56]

je pense que je ne sais pas créer une "zone variable" ou un "champs nominatif" dans mon document word :

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
Sub OuvrirWord()
Dim WdApp As Object
Dim WdDoc
    Set WdApp = CreateObject("Word.Application")
    Set WdDoc = WdApp.Documents.Open(Filename:="C:\Documents and Settings\utilisateur\Mes documents\Domus Diags\essai.doc")
    DoEvents
    WdApp.Visible = True 'ou False'ton code d'insertion du texte
      With Worksheets("toto").Activate
             Wdoc.Fields("NomdeLaVariable1").Result.Text = .Range("D1")
Debogeur met erreur d'execution 424 Objet requis.... je me souviens lorsque je programmais que les variables s'appellaient $NomdelaVariable mais j'ai essayé (Nomdela.., $Nom..., "Nom...", <<Nom....>> , rien n'y fait) 
      End With
'<<<<< modif
 '...
    DoEvents
    WdDoc.Close True 'Enregistre le document et le ferme
    DoEvents
    WdApp.Quit 'Ferme Word
    Set WdApp = Nothing
    Set WdDoc = Nothing
End Sub

J'ai regardé le publipostage, et ce n'est pas adapté car mon but est de créer plusieurs documents words avec les mêmes variables...et non pas avec des données de type tableau

[Godzestla]

RE,
les variables sont a créer manuellement dans ton document word avant d'exécuter le script VBA exceL, mais je suppose que tu l'as fait.

Insertion -> Champ -> Champ de fusion -> tu précise le nom de ton champ.

Pour l'erreur d'exécution, 2 causes qui se cumulent :
1) Il y a une erreur dans mon code .
2) Je viens d'essayer de travailler avec le nom du champ, mais cà ne semble pas passer. Il faut utiliser l'index.


Donc remplace

Code :

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

1
2
 
Wdoc.Fields("NomdeLaVariable1").Result.Text = .Range("D1")

par

Code :

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

1
2
WdDoc.Fields(1).Result.Text = .Range("D1")

en supposant que ta variable est la première.

J'ai testé, ça marche.

Sorry pour la boulette.

[noa56]

Le champs de fusion n'existe pas sur word 2002, je vais regardr sur la dernier version et en faire l'aquisition si c OK.....a +

[noa56]

Bonjour, suite de la discution:
dans mon doc word,

je fais champ => MergeField (ChampFusion), je renseigne le Nom du champs (1) ......puis je lance la macro et là :

Ereur d'éxécution '424' : objet requis.

il met le débogueur sur la ligne :

Code :

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

WdDoc.Fields(1).Result.Text = .Range("D1")

sinon, tu parlais de l'index pour l'insertion d'un champs de fusion...c quoi l'index ?
Merci