Macro VBA copie valeur cellule excel et colle dans doc word

Version imprimable

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

02/06/2009, 15h44
tony020422
mais...oui didiou :aie:
mon dossier se crée bien (il s'appelle comme le contenu de la cellule C3, et se trouve ici: \\angfs1\users$\baron\Bureau\Travail Antony) et le chemin est bien celui juste ci dessus (c'est un serveur ..compliqué bref, pas de disque dur direct)

donc pr rentrer completement dans le dossier que je viens de créer faudrait mettre:

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

Voila !!

le must serait en fait d'arriver à créer une variable rattachée au dossier qui se crée
MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)

de facon a rappeler cette variable au moment du choix de l'emplacement de sauvegarde de mon fichier et d'écrire:
Code:

1 2 ChangeFileOpenDirectory "VARIABLE" ActiveDocument.SaveAs FileName:="Suivi de chantier mod.doc"

Re,

ce code marche chez moi sur un des lecteurs réseau :
Code:

1 2 wrdApp.ChangeFileOpenDirectory "\\xxx.fr\...\" wrdApp.ActiveDocument.SaveAs Filename:="test.doc"

02/06/2009, 16h01
tony020422
purée mais moi aussi ca marche!
mais je ne sais pas quoi mettre ici c'est ca le probleme !!!!!!

Citation:

\\xxx.fr\...\

puisque je ne sais pas comment faire appel au nom précis du chemin puisque j'ai crée le dossier en lui donnant le nom d'1 cellule!!!!!!!!!!!!
Citation:
Envoyé par aalex_38

Re,

ce code marche chez moi sur un des lecteurs réseau :

Code:

1 2 wrdApp.ChangeFileOpenDirectory "\\xxx.fr\...\" wrdApp.ActiveDocument.SaveAs Filename:="test.doc"
02/06/2009, 16h08
babybell

Est-ce que le nom de ta variable(le contenu de ta cellule) fait référence à une notion toujours la même, exemple jjmmaa(jourmoisannée). Dans ce cas là, ce n'est pas trop difficile

Tu peux passer par une variable que tu utilises ensiute :
Code:

1 2 3 4 Dim MaVariable as string mavariable = "\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value " MkDir (mavariable)
...

02/06/2009, 16h17
tony020422

Il y a un truc que je ne comprends pas... Ca ne doit pas être compliqué de faire ce que je veux après ce que vous avez trouvé jusqu'à présent!!

Le dossier que je crée est nommé comme le contenu de la cellule C3 (toujours du type TX22N480 ) par cette commande

Code:

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

D'ailleurs, il faudrait qu'il se nomme comme le contenu de la cellule C3 TIRET(-)TIRET contenu de la cellule C5 ---> comment modifier ma ligne de commande?

Il faut que mon .doc s'enregistre dans ce dossier, c'est tout... Mais ne me demandez pas le chemin du dossier car il est stocké ici:

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

Mais je ne sais pas comment accéder dans le dossier lui même (comment l"appeler?!)
02/06/2009, 16h22
aalex_38

Après le code que je t'ai donné dans le précédent fil, tu fais :

Code:

wrdApp.ChangeFileOpenDirectory mavariable

et letour est joué non ?

erreur d'exécution 75 erreur d'accés chemin / fichier ici:

Code:

MkDir (MaVariable)

Voici mon script

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
39
 
Sub Bouton29_QuandClic()
 
ChDir "\\angfs1\users$\baron\Bureau\Travail Antony\"
 
MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)
 
 
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
  With wrdDoc
 .Saved = True
chemin = ("\\angfs1\users$\baron\Bureau\Travail Antony")
nom_enr = "Suivi de chantier mod.doc"
wrdApp.ActiveDocument.SaveAs (nom_enr)
End With
wrdApp.Quit
 
Dim MaVariable As String
MaVariable = "\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value
MkDir (MaVariable)
wrdApp.ChangeFileOpenDirectory MaVariable
End Sub

Tu changes ces lignes là :

Code:

1
2
3
4
MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)
 
' ...
chemin = ("\\angfs1\users$\baron\Bureau\Travail Antony")

par

Code:

1
2
3
4
5
6
dim MonRep as string
Monrep = "\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value
Mkdir(MonRep)
 
wrdApp.ChangeFileOpenDirectory MonReP
...

aaouch l'erreur...

Erreur d'execution '-2147023170 (800706be)':
Erreur automation
Echec de l'appel de procédure distante.....

Pou info, mon script:

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
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
  With wrdDoc
 .Saved = True
chemin = ("\\angfs1\users$\baron\Bureau\Travail Antony")
nom_enr = "Suivi de chantier mod.doc"
wrdApp.ActiveDocument.SaveAs (nom_enr)
End With
wrdApp.Quit
 
Dim MonRep As String
MonRep = "\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value
MkDir (MonRep)
 
wrdApp.ChangeFileOpenDirectory MonRep  <-- ICI L ERREUR

End Sub

Ton Script est erroné.

AAlex t'a donné le code avec ChangeFileOpenDirectory puis Saveas.

ce n'est pas ce que tu fais :aie:

de plus, ceci (en gras) est totalement foireux.
Code:

1 2 3 4 5 6 7 8 9 10 11 wrdApp.Quit Dim MonRep As String MonRep = "\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value MkDir (MonRep) wrdApp.ChangeFileOpenDirectory MonRep <-- ICI L ERREUR End Sub

Code:

1
2
wrdApp.ChangeFileOpenDirectory "\\xxx.fr\...\"
wrdApp.ActiveDocument.SaveAs Filename:="test.doc"

je sais qu'aalex m'a ecrit ca mais je ne sais pas quoi ecrire ici:

Code:

\\xxx.fr\...\

car comme deja dit je ne sais pas comment programmer le fait d'entrer ds mon nveau dossier puisque son nom est crée plus haut ds le script ... et que je ne sais pas comment le récupérer !

peut etre par le biais d'une variable mais a priori personne n'y arrive....

même comme ca rien ne marche.........je suis perdu :calim2:8O

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
39
40
Dim Wchemin As String
Dim wrdApp As Object
Dim wrdDoc As Object
 
Dim MonRep As String
 
MonRep = "\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value
MkDir (MonRep)
 
 
 
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
 
 
 
 
 
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
  With wrdDoc
 .Saved = True
'chemin = ("\\angfs1\users$\baron\Bureau\Travail Antony")
'nom_enr = "Suivi de chantier mod.doc"
'wrdApp.ActiveDocument.SaveAs (nom_enr)
 
End With
 
 wrdApp.ChangeFileOpenDirectory MonRep
 
 
wrdApp.Quit
 
End Sub

Meme avec ca il ne se passe rien...le .doc se remplit et se ferme ss s'enregistrer...tandis que le dossier se crée bien...:cry:

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
39
40
41
42
43
44
 
ChDir "\\angfs1\users$\baron\Bureau\Travail Antony\"
 
Dim Wchemin As String
Dim wrdApp As Object
Dim wrdDoc As Object
 
Dim MonRep As String
 
MonRep = "\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value
MkDir (MonRep)
 
 
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
 
 
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
 
 
  wrdApp.ChangeFileOpenDirectory (MonRep)
  wrdApp.ActiveDocument.SaveAs Filename:="suivi.doc"
 
 
  With wrdDoc
 .Saved = True
'chemin = ("\\angfs1\users$\baron\Bureau\Travail Antony")
'nom_enr = "Suivi de chantier mod.doc"
'wrdApp.ActiveDocument.SaveAs (nom_enr)
 
End With
 
 
 
wrdApp.Quit
 
End Sub

ooo ben ca marche maintenant ......... allez comprendre ce bordel !!

c'est cool!! par contre je vais pas tarder à partir, je vous dis surement a demain !! bonne soirée et merci pr tt !!

02/06/2009, 17h58
aalex_38

Bonsoir Godzestla merci d'avoir pris le relais, heureux que ça marche tony020422, peut être peut-tu mettre ce post sur résolu !
02/06/2009, 19h08
babybell

Heureux pour toi tony020422 que ça marche

Bonsoir à tous
03/06/2009, 09h21
tony020422

Merci pour tout messieurs vraiment !!
vos aides furent plus que précieuses !!!

Au plaisir sur developpez ;-)

Bonne journée!

PS: ne vous inquiétez pas, je mets résolu pour ce post !!:ccool:

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