Bonjour
Je voudrais tout simplement imprimer un document word =E0=20
partir du code access, mais je voudrais utiliser une=20
variable pour compl=E9ter une partie du chemin d'acc=E8s du=20
fichier (car j'ai plusieurs fichiers et c'est la meilleure=20
solution si =E7a fonctionne).
Le code en gros :
Dim langue As String
Dim W_App As Object
If Me!langue_coffret =3D "Fran=E7ais" Then
langue =3D "FR"
ElseIf Me!langue_coffret =3D "Anglais" Then
langue =3D "ANG"
...etc
Set W_App =3D CreateObject("Word.Application")
With W_App
.Visible =3D False
.Documents.Open ("\\serveur\dossier\article_1_
[langue].doc")
.PrintOut False
.ActiveDocument.Save
.Quit
End With
Set W_App =3D Nothing
Voil=E0 ce que =E7a donne en gros, et je voudrais que le=20
[langue] soit remplac=E9 par ma variable, dans mon cas, soit=20
FR, soit ANG, etc...
quels caract=E8res mettre ? comme dans le sql avec des=20
&' '& ?=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy SEMPERE
Bonjour
Remplace la ligne : .Documents.Open ("serveurdossierarticle_1_ [langue].doc")
par : .Documents.Open ("serveurdossierarticle_1_" & langue & ".doc")
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Manu" a écrit dans le message news: 0e1d01c37d29$46fa0f30$ Bonjour Je voudrais tout simplement imprimer un document word à partir du code access, mais je voudrais utiliser une variable pour compléter une partie du chemin d'accès du fichier (car j'ai plusieurs fichiers et c'est la meilleure solution si ça fonctionne). Le code en gros :
Dim langue As String Dim W_App As Object
If Me!langue_coffret = "Français" Then langue = "FR" ElseIf Me!langue_coffret = "Anglais" Then langue = "ANG" ...etc
Set W_App = CreateObject("Word.Application") With W_App .Visible = False .Documents.Open ("serveurdossierarticle_1_ [langue].doc") .PrintOut False .ActiveDocument.Save .Quit End With Set W_App = Nothing
Voilà ce que ça donne en gros, et je voudrais que le [langue] soit remplacé par ma variable, dans mon cas, soit FR, soit ANG, etc... quels caractères mettre ? comme dans le sql avec des &' '& ?
merci de m'aider
Bonjour
Remplace la ligne :
.Documents.Open ("\serveurdossierarticle_1_
[langue].doc")
par :
.Documents.Open ("\serveurdossierarticle_1_" & langue & ".doc")
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Manu" <m@n> a écrit dans le message news:
0e1d01c37d29$46fa0f30$a301280a@phx.gbl...
Bonjour
Je voudrais tout simplement imprimer un document word à
partir du code access, mais je voudrais utiliser une
variable pour compléter une partie du chemin d'accès du
fichier (car j'ai plusieurs fichiers et c'est la meilleure
solution si ça fonctionne).
Le code en gros :
Dim langue As String
Dim W_App As Object
If Me!langue_coffret = "Français" Then
langue = "FR"
ElseIf Me!langue_coffret = "Anglais" Then
langue = "ANG"
...etc
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = False
.Documents.Open ("\serveurdossierarticle_1_
[langue].doc")
.PrintOut False
.ActiveDocument.Save
.Quit
End With
Set W_App = Nothing
Voilà ce que ça donne en gros, et je voudrais que le
[langue] soit remplacé par ma variable, dans mon cas, soit
FR, soit ANG, etc...
quels caractères mettre ? comme dans le sql avec des
&' '& ?
Remplace la ligne : .Documents.Open ("serveurdossierarticle_1_ [langue].doc")
par : .Documents.Open ("serveurdossierarticle_1_" & langue & ".doc")
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Manu" a écrit dans le message news: 0e1d01c37d29$46fa0f30$ Bonjour Je voudrais tout simplement imprimer un document word à partir du code access, mais je voudrais utiliser une variable pour compléter une partie du chemin d'accès du fichier (car j'ai plusieurs fichiers et c'est la meilleure solution si ça fonctionne). Le code en gros :
Dim langue As String Dim W_App As Object
If Me!langue_coffret = "Français" Then langue = "FR" ElseIf Me!langue_coffret = "Anglais" Then langue = "ANG" ...etc
Set W_App = CreateObject("Word.Application") With W_App .Visible = False .Documents.Open ("serveurdossierarticle_1_ [langue].doc") .PrintOut False .ActiveDocument.Save .Quit End With Set W_App = Nothing
Voilà ce que ça donne en gros, et je voudrais que le [langue] soit remplacé par ma variable, dans mon cas, soit FR, soit ANG, etc... quels caractères mettre ? comme dans le sql avec des &' '& ?
merci de m'aider
Manu
n i c k e l !!! ça fonctionne parfait merci beaucoup !
-----Message d'origine----- Bonjour
Remplace la ligne : .Documents.Open ("serveurdossierarticle_1_ [langue].doc")
par : .Documents.Open ("serveurdossierarticle_1_" & langue & ".doc")
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Manu" a écrit dans le message news: 0e1d01c37d29$46fa0f30$ Bonjour Je voudrais tout simplement imprimer un document word à partir du code access, mais je voudrais utiliser une variable pour compléter une partie du chemin d'accès du fichier (car j'ai plusieurs fichiers et c'est la meilleure solution si ça fonctionne). Le code en gros :
Dim langue As String Dim W_App As Object
If Me!langue_coffret = "Français" Then langue = "FR" ElseIf Me!langue_coffret = "Anglais" Then langue = "ANG" ....etc
Set W_App = CreateObject("Word.Application") With W_App .Visible = False .Documents.Open ("serveurdossierarticle_1_ [langue].doc") .PrintOut False .ActiveDocument.Save .Quit End With Set W_App = Nothing
Voilà ce que ça donne en gros, et je voudrais que le [langue] soit remplacé par ma variable, dans mon cas, soit FR, soit ANG, etc... quels caractères mettre ? comme dans le sql avec des &' '& ?
merci de m'aider
.
n i c k e l !!!
ça fonctionne
parfait merci beaucoup !
-----Message d'origine-----
Bonjour
Remplace la ligne :
.Documents.Open ("\serveurdossierarticle_1_
[langue].doc")
par :
.Documents.Open ("\serveurdossierarticle_1_" &
langue & ".doc")
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Manu" <m@n> a écrit dans le message news:
0e1d01c37d29$46fa0f30$a301280a@phx.gbl...
Bonjour
Je voudrais tout simplement imprimer un document word à
partir du code access, mais je voudrais utiliser une
variable pour compléter une partie du chemin d'accès du
fichier (car j'ai plusieurs fichiers et c'est la meilleure
solution si ça fonctionne).
Le code en gros :
Dim langue As String
Dim W_App As Object
If Me!langue_coffret = "Français" Then
langue = "FR"
ElseIf Me!langue_coffret = "Anglais" Then
langue = "ANG"
....etc
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = False
.Documents.Open ("\serveurdossierarticle_1_
[langue].doc")
.PrintOut False
.ActiveDocument.Save
.Quit
End With
Set W_App = Nothing
Voilà ce que ça donne en gros, et je voudrais que le
[langue] soit remplacé par ma variable, dans mon cas, soit
FR, soit ANG, etc...
quels caractères mettre ? comme dans le sql avec des
&' '& ?
n i c k e l !!! ça fonctionne parfait merci beaucoup !
-----Message d'origine----- Bonjour
Remplace la ligne : .Documents.Open ("serveurdossierarticle_1_ [langue].doc")
par : .Documents.Open ("serveurdossierarticle_1_" & langue & ".doc")
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Manu" a écrit dans le message news: 0e1d01c37d29$46fa0f30$ Bonjour Je voudrais tout simplement imprimer un document word à partir du code access, mais je voudrais utiliser une variable pour compléter une partie du chemin d'accès du fichier (car j'ai plusieurs fichiers et c'est la meilleure solution si ça fonctionne). Le code en gros :
Dim langue As String Dim W_App As Object
If Me!langue_coffret = "Français" Then langue = "FR" ElseIf Me!langue_coffret = "Anglais" Then langue = "ANG" ....etc
Set W_App = CreateObject("Word.Application") With W_App .Visible = False .Documents.Open ("serveurdossierarticle_1_ [langue].doc") .PrintOut False .ActiveDocument.Save .Quit End With Set W_App = Nothing
Voilà ce que ça donne en gros, et je voudrais que le [langue] soit remplacé par ma variable, dans mon cas, soit FR, soit ANG, etc... quels caractères mettre ? comme dans le sql avec des &' '& ?
