Macro VBA copie valeur cellule excel et colle dans doc word

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous,

le mot de passe n'est pas le bon... !!

tony020422,

pour ce que tu souhaites faire,

* il peut être préférable d'utiuliser un modèle (.DOT au lieu de .DOC)
* Il vaut mieux utiliser des champs que des bookmark car le contenu du champ est écrasé à la prochaine initialisation, mais le bookmark cumule les valeurs..... donc il nécessite un clear.

Un exemple avec champ et bookmark extrait d'une boucle.
Remarque la boucle pour faire delete des char insérés dans le bookmark "Target", nécessaire car à l'itération suivante de la boucle, le bookmark doit être de nouveau vierge de tout contenu. Avec les champs, pas ce soucis.

Code:

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
33
34
35
36
37
38
 
    Dim Myrange           As Variant
    Dim Bookstart         As Long
    Dim Bookend           As Long
    Dim Bonus_Word              As Word.Document
 
'......
      With Workbooks(Personal_workbook).Sheets(Pers_Information_Sheet)
         'Personal_workbook
            'Populate Word Fields
            'Name (1)
             Bonus_Word.Fields(1).Result.Text = .Range("D" & Idx)
            'Référence (3)
            Bonus_Word.Fields(2).Result.Text = .Range("E" & Idx)
            'Objectif (4)
            Workbooks(Detailled_workbook).Sheets(Details_Sheet).Range(Bonus_Detail_SheetName_Location) = Workbooks(Detailled_workbook).Sheets(Details_Sheet).name
            Workbooks(Detailled_workbook).Sheets(Details_Sheet).Range(Bonus_Range_Detail).Copy
            Bonus_Word.Bookmarks("Target").Range.PasteSpecial _
             Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine
            'Montant (5)
            Bonus_Word.Fields(4).Result.Text = Round(Range("H" & Idx), 2)
            'Période (6)
            Bonus_Word.Fields(5).Result.Text = Range("J" & Idx)
           '************************
              Bonus_Word.PrintOut
 
            ' Clear at "Target" bookmark position
            'Bonus_Word.Characters(Bonus_Word.Bookmarks("Target").Start + 1).Delete
            'Remove Inserted Contents at "Target" bookmark
             With Bonus_Word.Bookmarks("Target")
               Bookstart = .Start
               Bookend = .End
             End With
 
            Set Myrange = Bonus_Word.Range(Start:=Bookstart, End:=Bookend)
              Myrange.Delete
            End If
      End With

02/06/2009, 12h24
tony020422

Bonjour! et merci d'essayer de m'aider!:P

Euuhh je veux bien faire ce que tu dis... Mais ca m'a l'air compliqué d'autant plus si la solution proposée précédemment fonctionne à la seule condition que je coche Word dans référence d'Excel (comment faire d'ailleurs?!)

Sachant que je compte après avoir rempli le .doc l'enregistrer sous son nom par défaut "Suivi chantier mod" suivi du contenu de la cellule à copier dans Texte1 du .doc......

Sinon ton script à l'air puissant! 8-)

aalex_38 Sinon comment on fait ce que tu me dis (cocher référence word dans excel?!) Merci !!
02/06/2009, 12h43
babybell

le code d'aalex_38 fonctionne bien, mais comme il le signale, il faut cochet Word dans : outils puis références

Vous etes des Dieux!!!!!!

Ca y est ca marche avec ce script, et après avoir coché Word dans les références Excel!!

Je suis trop content c'est magnifique!!!!!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim Wchemin As String Dim wrdApp As Object Dim wrdDoc As Object Wchemin = "Y:\TKAF\R04\A422\_Commun-Agence\Roger\Fiches ISO\Suivi chantier mod.doc" Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Open(Wchemin) wrdApp.Visible = True wrdApp.Selection.HomeKey Unit:=wdStory Cells(9, 3).Copy wrdApp.Selection.Goto What:=wdGoToBookmark, Name:="Texte1" wrdApp.Selection.Paste Cells(7, 3).Copy wrdApp.Selection.Goto What:=wdGoToBookmark, Name:="Texte2" wrdApp.Selection.Paste End Sub
Par contre il faudrait désormais fermer le .doc (qui s'appelle par défaut Suivi chantier mod.doc), l'enregistrer dans un dossier spécifique tout en le renommant: Suivi de chantier + contenue de la cellule C7 (le même que j'ai collé dans le Texte1 en fait)):calim2:

Une idée du code VBA pour ça Messieurs svp?! :zoubi:

En fait non je voudrais faire autre chose:

J'ai crée au début de mon script ce dossier:
Code:

1 2 ChDir "\\angfs1\users$\baron\Bureau\Travail Antony\" MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value
qui a le nom de ma cellule C9 de mon fichier excel......

Après se trouve votre merveilleux script... Et à la fin de ce script j'aimerais enregistrer le .doc Suivi de chantier mod que l'on a modifié sous ce même nom mais dans le dossier que j'ai créé juste au dessus... Quelle est la syntaxe pour faire appel à ce dossier précisément ?!

Petit plus: si je voulais que le dossier à créer s'appelle "Cells(9,3) - Cells (9,5)" qu'est ce que je dois mettre dans cette commande?!

Code:

MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value

Merci par avance :mouarf:

02/06/2009, 14h09
aalex_38

Citation:

aalex_38 sinon comment on fait a faire ce que tu me dis (cocher référence word dans excel?!) Merki !!

Dans L'editeur VBA, Outils/References=> coché Microsoft xx.x Object Library

Citation:

Il vaut mieux utiliser des champs que des bookmark

Je pense aussi, j'ai donné une réponse vite fait en utilisant l'enregistreur de macro.

Edit : désolé pas raffraichi

Pour ta sauvegarde du fichier . doc

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub WordII()
Dim Wchemin As String
Dim wrdApp As Object
Dim wrdDoc As Object
Wchemin = "D:\Macros\cijm2CCfL5.doc"
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.documents.Open(Wchemin)
wrdApp.Visible = True
wrdApp.Selection.HomeKey Unit:=wdStory
Cells(1, 1).Copy
wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte1"
wrdApp.Selection.Paste
Cells(1, 2).Copy
wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte2"
wrdApp.Selection.Paste
With wrdDoc
                 .Saved = True
nom_enr = "d:\Macros\TEST  .doc"
wrdApp.ActiveDocument.SaveAs (répertoire & nom_enr)
End With
wrdApp.Quit
End Sub

02/06/2009, 14h19
tony020422

babybell,

D'aprés mon post de 13h56 je ne pense pas que ce que tu me proposes convienne... le nom du fichier a enregistrer ne change pas certes (ce sera toujours "Suivi de chantier mod") mais l'emplacement oui....

Il faut que ca se fasse dans le dossier que j'ai créé préalablement dans mon script, et que je ne sais pas comment rappeler:

ChDir "\\angfs1\users$\baron\Bureau\Travail Antony\"
MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value

D'ailleurs est-il possible de donner comme nom au dossier que j'ai créé pas seulement Cells(9, 3).Value mais en fait Cells(9, 3).Value - Cells(3,7).Value ?!

Merci pour tout messieurs, ca sent la fin :ccool:
02/06/2009, 14h21
babybell
mes excuses, il y a redondance dans mon affectation de répertoire. Dans
Code:

1 2 nom_enr = "d:\Macros\TEST .doc" wrdApp.ActiveDocument.SaveAs (répertoire & nom_enr)
soit tu ne donnes à nom_enr que le nom du fichier et tu as déclaré ailleurs le chemin du répertoire et à ce moment là la ligne suivante est OK
soit tu écris comme ici, et dans la ligne suivante, pas besoin de mettre répertoire.
02/06/2009, 14h32
tony020422
J'ai donc ça en haut de ma macro:
Code:

1 2 ChDir "\\angfs1\users$\baron\Bureau\Travail Antony\" MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)
qui crée mon nveau dossier... Et j'ai rajouté ça pour enregistrer mon .doc sous "Suivi de chantier Mod.doc" dans ce dossier.
Code:

1 2 nom_enr = "Suivi de chantier Mod.doc" wrdApp.ActiveDocument.SaveAs (nom_enr)
Et ça ne marche pas...
02/06/2009, 14h35
babybell

cela doit marcher, mais à mon avis cela l'enregistre dans le racine, vu que tu n'as pas indiqué de chemin, seulement le nom du fichier; vérifie
02/06/2009, 14h36
tony020422

En effet je pense qu'il se passe quelque chose quelque part mais je ne sais pas quoi ni où... Comment accède-t-on à la racine ?!
02/06/2009, 14h38
aalex_38

Tony, s'il te plait n'oublie pas les balises codes sinon c'est dur à lire.

sinon la syntaxe est :

Code:

ActiveDocument.SaveAs FileName:="chemin"
02/06/2009, 14h45
tony020422

ok excusez moi pr les balises codes maie je ne savais pas comment faire (je ss nouveau ici!)

j'ai bien viu ton script aalex mais "chemin" est ici pr moi un dossier que je viens juste de créer!! du coup je ne sais pas comment faire!

Code:

"MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)

j'ai essayé

Code:

ActiveWorkbook.SaveAs Filename:="MkDir\Suivi de chantier mod"

ca aussi

Code:

ActiveWorkbook.SaveAs Filename:=("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)

mais rien ne marche!

Essaye

Code:

1
2
3
chemin=("\\angfs1\users$\baron\Bureau\Travail Antony\")
nom_enr = Cells(9, 3).Value
wrdApp.ActiveDocument.SaveAs (chemin & nom_enr)

02/06/2009, 15h00
tony020422

Erreur d'execution '424' objet requis ici :

Code:

wrdApp.ActiveDocument.SaveAs (chemin & nom_enr)

Par contre on est bien d'accord:

Le .doc s'enregistre toujours sous le même nom (qui ne change pas et qui est donc Suivi de chantier mod) mais dans un dossier différent (nouveau dossier créé dans mon script, nommé comme le contenu de la cellule C9 --> Cells(9, 3).Value) et stocké ici :

\\angfs1\users$\baron\Bureau\Travail Antony\

Car je ne sais pas si ton script précédent permettait bien ceci......

Je viens de réessayer, le code suivant fonctionne bien:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub WordII()
Dim Wchemin As String
Dim wrdApp As Object
Dim wrdDoc As Object
Wchemin = "D:\Macros\cijm2CCfL5.doc"
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.documents.Open(Wchemin)
wrdApp.Visible = True
wrdApp.Selection.HomeKey Unit:=wdStory
Cells(1, 1).Copy
wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte1"
wrdApp.Selection.Paste
Cells(1, 2).Copy
wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte2"
wrdApp.Selection.Paste
With wrdDoc
                 .Saved = True
chemin = ("d:\Macros\")
nom_enr = "Test.doc"
wrdApp.ActiveDocument.SaveAs (chemin & nom_enr)
End With
wrdApp.Quit
End Sub

T'es-tu assuré de la bonne création de ton répertoire ?

une autre façon :

Code:

1
2
ChangeFileOpenDirectory "Nom du chemin"
    ActiveDocument.SaveAs FileName:="nom du fichier.doc"

02/06/2009, 15h19
tony020422

désolé mais le .doc se remplit correctement... Après ça mouline, le .doc se ferme sans qu'on me demande si je veux le fermer... Et après on revient sur mon excel avec la case C7 (Cells(3, 7) qui "clignote" comme si on venait de faire dessus un "copier".......

Il n'en demeure pas moins que le fichier ne se sauvegarde pas......

Pour aalex, le problème est toujours le même !!:calim2::calim2:

Code:

ChangeFileOpenDirectory "Nom du chemin"

Je ne sais pas quoi mettre pour le nom du chemin car mon dossier est créé comme ça:

Code:

MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)

Donc, il s'appelle comment le chemin? 8O8O8O8O
02/06/2009, 15h24
babybell

donne-nous ton chemin en entier

Code:

c:\...... ou d:\......
02/06/2009, 15h33
aalex_38

Et egalement :

Citation:

T'es-tu assuré de la bonne création de ton répertoire ?

Voir 40 message(s) de cette discussion en une page