OVH Cloud OVH Cloud

sauver sous word

2 réponses
Avatar
fth
Bonsoir,
avec le code ci-dessous, je cherche à donner un nom à mon document en
fonction de la ref de l'offre.
le seul résultat que j'obtiens, c'est Ndoc.doc!
pas vraiment le résulat escompté!

...
Ndoc = "offre" & " " & [RBref]

Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open
"D:\matlocbe\projet\Once\doc\template\matlocoffre.dot"
.ActiveDocument.SaveAs
"D:\matlocbe\projet\Once\doc\Ndoc.Doc"

je me demande bie nou ça coince?

D'avance merci

Frederic

2 réponses

Avatar
Raymond [mvp]
Bonsoir.

ici ça coince:
.ActiveDocument.SaveAs "D:matlocbeprojetOncedoc" & Ndoc & ".doc"


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"fth" a écrit dans le message de
news:40a3c637$0$8415$
Bonsoir,
avec le code ci-dessous, je cherche à donner un nom à mon document en
fonction de la ref de l'offre.
le seul résultat que j'obtiens, c'est Ndoc.doc!
pas vraiment le résulat escompté!

...
Ndoc = "offre" & " " & [RBref]

Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open
"D:matlocbeprojetOncedoctemplatematlocoffre.dot"
.ActiveDocument.SaveAs
"D:matlocbeprojetOncedocNdoc.Doc"

je me demande bie nou ça coince?

D'avance merci

Frederic




Avatar
fth
Salut Raymond,

ça roule bien maintenant!
Merci

Bonne soirée,

Frédéric


"Raymond [mvp]" wrote in message
news:
Bonsoir.

ici ça coince:
.ActiveDocument.SaveAs "D:matlocbeprojetOncedoc" & Ndoc & ".doc"


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"fth" a écrit dans le message de
news:40a3c637$0$8415$
Bonsoir,
avec le code ci-dessous, je cherche à donner un nom à mon document en
fonction de la ref de l'offre.
le seul résultat que j'obtiens, c'est Ndoc.doc!
pas vraiment le résulat escompté!

...
Ndoc = "offre" & " " & [RBref]

Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open
"D:matlocbeprojetOncedoctemplatematlocoffre.dot"
.ActiveDocument.SaveAs
"D:matlocbeprojetOncedocNdoc.Doc"

je me demande bie nou ça coince?

D'avance merci

Frederic