J'avais récupéré sur le net l'appli ci après mais ça ne
> marche pas: Il faut
> dire que je ne sais pas par quoi remplacer "moncode" "code" et "value"
> (lignes que je te marque avec trois ***
>
> GRAND MERCI
>
>
> il s'agit d'un code pour piloter word depuis access en
> ouvrant un document
> et en y "collant" les données du formulaire. A noter que dans
> le document
> word il faut insérer des bookmarks en leur donnant le meme
> nom que le champ
> que l'on veut exporter. Pour simplifier : le bookmark "données" =
> données.value !
>
> Private Sub CmdWORD_Click()
> 'Voici pour la déclaration du code:
> Dim wdapp As Word.Application
> ***Dim moncode
>
> ***moncode = code.Value
>
> 'Démarrer Word
> Set wdapp = CreateObject("Word.application")
> ' le code ci-dessous permet de faire apparaitre word en
> premier plan ou pas,
> false -> non et true -> oui
> wdapp.Visible = False
> 'on ouvre le document
> wdapp.Documents.Open "j:\Doc_Atelier\td138\td138_gdt.doc"
> ' avant d'affecter la valeur du champ code au signet code, je
> teste si le
> champ code est vide,
> 'car si oui cela posera probleme et dans ce cas j'affecte la
> valeur "."
> ***If code.Value <> "" Then
> ***wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value
> Else
> ***wdapp.ActiveDocument.Bookmarks("code").Range.Text = "."
> End If
> ' je sauvegarde le fichier sous un autre nom
> wdapp.ActiveDocument.SaveAs "j:\Doc_Atelier\td138\" & moncode & ".doc"
> ' je ferme le fichier
> wdapp.ActiveDocument.Close
> ' je ferme l'application
> wdapp.Application.Quit SaveChanges:=wdDoNotSaveChanges
> ' et j'avertis l'utilisateur que le fichier word est crée
> MsgBox "Le fichier WORD est crée !"
>
> End Sub
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
Gilbert
Bonjour,
Un peu d'éclairage sur tous ces "code".
A priori, il y a un signet nommé 'code' dans le fichier Word. A l'emplacement de ce signet on écrit la valeur de la variable 'moncode'. Dans cette variable, on a mis le contenu du champ 'code' s'il ne contient pas une chaîne vide, sinon on y a mis une chaîne vide. Ca fait beaucoup de code dans un module de code.
Gilbert
"roques bertrand" a écrit dans le message de news:41b0d027$0$2315$
J'avais récupéré sur le net l'appli ci après mais ça ne
marche pas: Il faut dire que je ne sais pas par quoi remplacer "moncode" "code" et "value" (lignes que je te marque avec trois ***
GRAND MERCI
il s'agit d'un code pour piloter word depuis access en ouvrant un document et en y "collant" les données du formulaire. A noter que dans le document word il faut insérer des bookmarks en leur donnant le meme nom que le champ que l'on veut exporter. Pour simplifier : le bookmark "données" > > données.value !
Private Sub CmdWORD_Click() 'Voici pour la déclaration du code: Dim wdapp As Word.Application ***Dim moncode
***moncode = code.Value
'Démarrer Word Set wdapp = CreateObject("Word.application") ' le code ci-dessous permet de faire apparaitre word en premier plan ou pas, false -> non et true -> oui wdapp.Visible = False 'on ouvre le document wdapp.Documents.Open "j:Doc_Ateliertd138td138_gdt.doc" ' avant d'affecter la valeur du champ code au signet code, je teste si le champ code est vide, 'car si oui cela posera probleme et dans ce cas j'affecte la valeur "." ***If code.Value <> "" Then ***wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value Else ***wdapp.ActiveDocument.Bookmarks("code").Range.Text = "." End If ' je sauvegarde le fichier sous un autre nom wdapp.ActiveDocument.SaveAs "j:Doc_Ateliertd138" & moncode & ".doc" ' je ferme le fichier wdapp.ActiveDocument.Close ' je ferme l'application wdapp.Application.Quit SaveChanges:=wdDoNotSaveChanges ' et j'avertis l'utilisateur que le fichier word est crée MsgBox "Le fichier WORD est crée !"
End Sub
Bonjour,
Un peu d'éclairage sur tous ces "code".
A priori, il y a un signet nommé 'code' dans le fichier Word.
A l'emplacement de ce signet on écrit la valeur de la variable 'moncode'.
Dans cette variable, on a mis le contenu du champ 'code' s'il ne contient
pas une chaîne vide, sinon on y a mis une chaîne vide.
Ca fait beaucoup de code dans un module de code.
Gilbert
"roques bertrand" <b.roques@free.fr> a écrit dans le message de
news:41b0d027$0$2315$636a15ce@news.free.fr...
J'avais récupéré sur le net l'appli ci après mais ça ne
marche pas: Il faut
dire que je ne sais pas par quoi remplacer "moncode" "code" et "value"
(lignes que je te marque avec trois ***
GRAND MERCI
il s'agit d'un code pour piloter word depuis access en
ouvrant un document
et en y "collant" les données du formulaire. A noter que dans
le document
word il faut insérer des bookmarks en leur donnant le meme
nom que le champ
que l'on veut exporter. Pour simplifier : le bookmark "données" > > données.value !
Private Sub CmdWORD_Click()
'Voici pour la déclaration du code:
Dim wdapp As Word.Application
***Dim moncode
***moncode = code.Value
'Démarrer Word
Set wdapp = CreateObject("Word.application")
' le code ci-dessous permet de faire apparaitre word en
premier plan ou pas,
false -> non et true -> oui
wdapp.Visible = False
'on ouvre le document
wdapp.Documents.Open "j:Doc_Ateliertd138td138_gdt.doc"
' avant d'affecter la valeur du champ code au signet code, je
teste si le
champ code est vide,
'car si oui cela posera probleme et dans ce cas j'affecte la
valeur "."
***If code.Value <> "" Then
***wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value
Else
***wdapp.ActiveDocument.Bookmarks("code").Range.Text = "."
End If
' je sauvegarde le fichier sous un autre nom
wdapp.ActiveDocument.SaveAs "j:Doc_Ateliertd138" & moncode & ".doc"
' je ferme le fichier
wdapp.ActiveDocument.Close
' je ferme l'application
wdapp.Application.Quit SaveChanges:=wdDoNotSaveChanges
' et j'avertis l'utilisateur que le fichier word est crée
MsgBox "Le fichier WORD est crée !"
A priori, il y a un signet nommé 'code' dans le fichier Word. A l'emplacement de ce signet on écrit la valeur de la variable 'moncode'. Dans cette variable, on a mis le contenu du champ 'code' s'il ne contient pas une chaîne vide, sinon on y a mis une chaîne vide. Ca fait beaucoup de code dans un module de code.
Gilbert
"roques bertrand" a écrit dans le message de news:41b0d027$0$2315$
J'avais récupéré sur le net l'appli ci après mais ça ne
marche pas: Il faut dire que je ne sais pas par quoi remplacer "moncode" "code" et "value" (lignes que je te marque avec trois ***
GRAND MERCI
il s'agit d'un code pour piloter word depuis access en ouvrant un document et en y "collant" les données du formulaire. A noter que dans le document word il faut insérer des bookmarks en leur donnant le meme nom que le champ que l'on veut exporter. Pour simplifier : le bookmark "données" > > données.value !
Private Sub CmdWORD_Click() 'Voici pour la déclaration du code: Dim wdapp As Word.Application ***Dim moncode
***moncode = code.Value
'Démarrer Word Set wdapp = CreateObject("Word.application") ' le code ci-dessous permet de faire apparaitre word en premier plan ou pas, false -> non et true -> oui wdapp.Visible = False 'on ouvre le document wdapp.Documents.Open "j:Doc_Ateliertd138td138_gdt.doc" ' avant d'affecter la valeur du champ code au signet code, je teste si le champ code est vide, 'car si oui cela posera probleme et dans ce cas j'affecte la valeur "." ***If code.Value <> "" Then ***wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value Else ***wdapp.ActiveDocument.Bookmarks("code").Range.Text = "." End If ' je sauvegarde le fichier sous un autre nom wdapp.ActiveDocument.SaveAs "j:Doc_Ateliertd138" & moncode & ".doc" ' je ferme le fichier wdapp.ActiveDocument.Close ' je ferme l'application wdapp.Application.Quit SaveChanges:=wdDoNotSaveChanges ' et j'avertis l'utilisateur que le fichier word est crée MsgBox "Le fichier WORD est crée !"
End Sub
bertrand roques
j'ai un peut avance avec raymond, mais peut etre que l'avis de gilbert serrai util??? je voudrais exporter un champ ole word vers word, et ce affin de pouvoir profiter de la puissance de word en matiere d'impression. Merci d'avance
"Gilbert" wrote:
Bonjour,
Un peu d'éclairage sur tous ces "code".
A priori, il y a un signet nommé 'code' dans le fichier Word. A l'emplacement de ce signet on écrit la valeur de la variable 'moncode'. Dans cette variable, on a mis le contenu du champ 'code' s'il ne contient pas une chaîne vide, sinon on y a mis une chaîne vide. Ca fait beaucoup de code dans un module de code.
Gilbert
"roques bertrand" a écrit dans le message de news:41b0d027$0$2315$
J'avais récupéré sur le net l'appli ci après mais ça ne
marche pas: Il faut dire que je ne sais pas par quoi remplacer "moncode" "code" et "value" (lignes que je te marque avec trois ***
GRAND MERCI
il s'agit d'un code pour piloter word depuis access en ouvrant un document et en y "collant" les données du formulaire. A noter que dans le document word il faut insérer des bookmarks en leur donnant le meme nom que le champ que l'on veut exporter. Pour simplifier : le bookmark "données" > > > données.value !
Private Sub CmdWORD_Click() 'Voici pour la déclaration du code: Dim wdapp As Word.Application ***Dim moncode
***moncode = code.Value
'Démarrer Word Set wdapp = CreateObject("Word.application") ' le code ci-dessous permet de faire apparaitre word en premier plan ou pas, false -> non et true -> oui wdapp.Visible = False 'on ouvre le document wdapp.Documents.Open "j:Doc_Ateliertd138td138_gdt.doc" ' avant d'affecter la valeur du champ code au signet code, je teste si le champ code est vide, 'car si oui cela posera probleme et dans ce cas j'affecte la valeur "." ***If code.Value <> "" Then ***wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value Else ***wdapp.ActiveDocument.Bookmarks("code").Range.Text = "." End If ' je sauvegarde le fichier sous un autre nom wdapp.ActiveDocument.SaveAs "j:Doc_Ateliertd138" & moncode & ".doc" ' je ferme le fichier wdapp.ActiveDocument.Close ' je ferme l'application wdapp.Application.Quit SaveChanges:=wdDoNotSaveChanges ' et j'avertis l'utilisateur que le fichier word est crée MsgBox "Le fichier WORD est crée !"
End Sub
j'ai un peut avance avec raymond, mais peut etre que l'avis de gilbert serrai
util???
je voudrais exporter un champ ole word vers word, et ce affin de pouvoir
profiter de la puissance de word en matiere d'impression.
Merci d'avance
"Gilbert" wrote:
Bonjour,
Un peu d'éclairage sur tous ces "code".
A priori, il y a un signet nommé 'code' dans le fichier Word.
A l'emplacement de ce signet on écrit la valeur de la variable 'moncode'.
Dans cette variable, on a mis le contenu du champ 'code' s'il ne contient
pas une chaîne vide, sinon on y a mis une chaîne vide.
Ca fait beaucoup de code dans un module de code.
Gilbert
"roques bertrand" <b.roques@free.fr> a écrit dans le message de
news:41b0d027$0$2315$636a15ce@news.free.fr...
J'avais récupéré sur le net l'appli ci après mais ça ne
marche pas: Il faut
dire que je ne sais pas par quoi remplacer "moncode" "code" et "value"
(lignes que je te marque avec trois ***
GRAND MERCI
il s'agit d'un code pour piloter word depuis access en
ouvrant un document
et en y "collant" les données du formulaire. A noter que dans
le document
word il faut insérer des bookmarks en leur donnant le meme
nom que le champ
que l'on veut exporter. Pour simplifier : le bookmark "données" > > > données.value !
Private Sub CmdWORD_Click()
'Voici pour la déclaration du code:
Dim wdapp As Word.Application
***Dim moncode
***moncode = code.Value
'Démarrer Word
Set wdapp = CreateObject("Word.application")
' le code ci-dessous permet de faire apparaitre word en
premier plan ou pas,
false -> non et true -> oui
wdapp.Visible = False
'on ouvre le document
wdapp.Documents.Open "j:Doc_Ateliertd138td138_gdt.doc"
' avant d'affecter la valeur du champ code au signet code, je
teste si le
champ code est vide,
'car si oui cela posera probleme et dans ce cas j'affecte la
valeur "."
***If code.Value <> "" Then
***wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value
Else
***wdapp.ActiveDocument.Bookmarks("code").Range.Text = "."
End If
' je sauvegarde le fichier sous un autre nom
wdapp.ActiveDocument.SaveAs "j:Doc_Ateliertd138" & moncode & ".doc"
' je ferme le fichier
wdapp.ActiveDocument.Close
' je ferme l'application
wdapp.Application.Quit SaveChanges:=wdDoNotSaveChanges
' et j'avertis l'utilisateur que le fichier word est crée
MsgBox "Le fichier WORD est crée !"
j'ai un peut avance avec raymond, mais peut etre que l'avis de gilbert serrai util??? je voudrais exporter un champ ole word vers word, et ce affin de pouvoir profiter de la puissance de word en matiere d'impression. Merci d'avance
"Gilbert" wrote:
Bonjour,
Un peu d'éclairage sur tous ces "code".
A priori, il y a un signet nommé 'code' dans le fichier Word. A l'emplacement de ce signet on écrit la valeur de la variable 'moncode'. Dans cette variable, on a mis le contenu du champ 'code' s'il ne contient pas une chaîne vide, sinon on y a mis une chaîne vide. Ca fait beaucoup de code dans un module de code.
Gilbert
"roques bertrand" a écrit dans le message de news:41b0d027$0$2315$
J'avais récupéré sur le net l'appli ci après mais ça ne
marche pas: Il faut dire que je ne sais pas par quoi remplacer "moncode" "code" et "value" (lignes que je te marque avec trois ***
GRAND MERCI
il s'agit d'un code pour piloter word depuis access en ouvrant un document et en y "collant" les données du formulaire. A noter que dans le document word il faut insérer des bookmarks en leur donnant le meme nom que le champ que l'on veut exporter. Pour simplifier : le bookmark "données" > > > données.value !
Private Sub CmdWORD_Click() 'Voici pour la déclaration du code: Dim wdapp As Word.Application ***Dim moncode
***moncode = code.Value
'Démarrer Word Set wdapp = CreateObject("Word.application") ' le code ci-dessous permet de faire apparaitre word en premier plan ou pas, false -> non et true -> oui wdapp.Visible = False 'on ouvre le document wdapp.Documents.Open "j:Doc_Ateliertd138td138_gdt.doc" ' avant d'affecter la valeur du champ code au signet code, je teste si le champ code est vide, 'car si oui cela posera probleme et dans ce cas j'affecte la valeur "." ***If code.Value <> "" Then ***wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value Else ***wdapp.ActiveDocument.Bookmarks("code").Range.Text = "." End If ' je sauvegarde le fichier sous un autre nom wdapp.ActiveDocument.SaveAs "j:Doc_Ateliertd138" & moncode & ".doc" ' je ferme le fichier wdapp.ActiveDocument.Close ' je ferme l'application wdapp.Application.Quit SaveChanges:=wdDoNotSaveChanges ' et j'avertis l'utilisateur que le fichier word est crée MsgBox "Le fichier WORD est crée !"
