Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide", MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!) c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole par
vba
copier coller. Mais quand je suis sous access, je click sur mon champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la... le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit dans le
message de news: 004413D2-99CD-4972-A5BD-D6F352EC6D92@microsoft.com...
non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:
Bonjour.
un lien hypertexte vers ton document word me semble plus appropié qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit dans
le
message de news: A86B3490-3EFA-41FD-9371-39417427857D@microsoft.com...
c'est vrai que presentée comme ça, ma question parait "stupide", MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!) c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole par
vba
copier coller. Mais quand je suis sous access, je click sur mon champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)
dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit
dans
le
message de news: 57FB168D-0300-49BF-9E0F-55F237DEBB17@microsoft.com...
Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Sub
merci je vai essayer
les exemples donnés ne concernent pasles champs OLE qui ne sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a
écrit
dans le
message de news:
9FD00904-6253-4154-8650-10A0B0862993@microsoft.com...
Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la... le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avance
Bonjour.
tu trouveras un modèle de code pour insérer des valeurs dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" <b.roques@free.fr> a écrit dans le message
de
news:
41b0d739$0$2299$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 !"
End Sub
Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide", MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!) c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole par
vba
copier coller. Mais quand je suis sous access, je click sur mon champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la... le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
désolé de te contredir mais si tu double click: tu a acces a ton doc, tu a
un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans
le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand
je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode
non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le
message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
désolé de te contredir mais si tu double click: tu a acces a ton doc, tu a
un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:
Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit dans
le
message de news: 004413D2-99CD-4972-A5BD-D6F352EC6D92@microsoft.com...
non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:
Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit
dans
le
message de news: A86B3490-3EFA-41FD-9371-39417427857D@microsoft.com...
c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand
je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)
dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a
écrit
dans
le
message de news:
57FB168D-0300-49BF-9E0F-55F237DEBB17@microsoft.com...
Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode
non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Sub
merci je vai essayer
les exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a
écrit
dans le
message de news:
9FD00904-6253-4154-8650-10A0B0862993@microsoft.com...
Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avance
Bonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" <b.roques@free.fr> a écrit dans le
message
de
news:
41b0d739$0$2299$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 !"
End Sub
désolé de te contredir mais si tu double click: tu a acces a ton doc, tu a
un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans
le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand
je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode
non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le
message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
désolé de te contredir mais si tu double click: tu a acces a ton doc, tu a un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide", MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!) c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole par
vba
copier coller. Mais quand je suis sous access, je click sur mon champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la... le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
désolé de te contredir mais si tu double click: tu a acces a ton doc, tu a un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:
Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit dans le
message de news: 004413D2-99CD-4972-A5BD-D6F352EC6D92@microsoft.com...
non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:
Bonjour.
un lien hypertexte vers ton document word me semble plus appropié qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit dans
le
message de news: A86B3490-3EFA-41FD-9371-39417427857D@microsoft.com...
c'est vrai que presentée comme ça, ma question parait "stupide", MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!) c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole par
vba
copier coller. Mais quand je suis sous access, je click sur mon champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)
dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit
dans
le
message de news: 57FB168D-0300-49BF-9E0F-55F237DEBB17@microsoft.com...
Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Sub
merci je vai essayer
les exemples donnés ne concernent pasles champs OLE qui ne sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a
écrit
dans le
message de news:
9FD00904-6253-4154-8650-10A0B0862993@microsoft.com...
Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la... le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avance
Bonjour.
tu trouveras un modèle de code pour insérer des valeurs dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" <b.roques@free.fr> a écrit dans le message
de
news:
41b0d739$0$2299$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 !"
End Sub
désolé de te contredir mais si tu double click: tu a acces a ton doc, tu a un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide", MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!) c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole par
vba
copier coller. Mais quand je suis sous access, je click sur mon champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la... le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
si tu déclares ton document word en liaison, c'est bien le vrai word qui est
lancé avec toutes ses fonctions. Si tu insères un nouveau document word tu
n'as que les fonctions minimum.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans le
message de news:désolé de te contredir mais si tu double click: tu a acces a ton doc, tu a
un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans
le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand
je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode
non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le
message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
si tu déclares ton document word en liaison, c'est bien le vrai word qui est
lancé avec toutes ses fonctions. Si tu insères un nouveau document word tu
n'as que les fonctions minimum.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit dans le
message de news: 5A1144A6-73AF-419C-9D58-F27AEC536550@microsoft.com...
désolé de te contredir mais si tu double click: tu a acces a ton doc, tu a
un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:
Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit dans
le
message de news: 004413D2-99CD-4972-A5BD-D6F352EC6D92@microsoft.com...
non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:
Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit
dans
le
message de news: A86B3490-3EFA-41FD-9371-39417427857D@microsoft.com...
c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand
je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)
dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a
écrit
dans
le
message de news:
57FB168D-0300-49BF-9E0F-55F237DEBB17@microsoft.com...
Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode
non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Sub
merci je vai essayer
les exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a
écrit
dans le
message de news:
9FD00904-6253-4154-8650-10A0B0862993@microsoft.com...
Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avance
Bonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" <b.roques@free.fr> a écrit dans le
message
de
news:
41b0d739$0$2299$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 !"
End Sub
si tu déclares ton document word en liaison, c'est bien le vrai word qui est
lancé avec toutes ses fonctions. Si tu insères un nouveau document word tu
n'as que les fonctions minimum.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans le
message de news:désolé de te contredir mais si tu double click: tu a acces a ton doc, tu a
un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils soient
font grossir la base à très grande vitesse et que tu va te retrouver avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans
le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite quand
je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est pas
autoextensible et réductible...ma page word est donc tronquée. D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document word
vers
word , mais des objets ole (image, pdf, etc..;) vers word; exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou methode
non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page :
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le
message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
et donc je fini ma ^hrase et j'en revient au debut comment exporter "erzat
word" vers worddésolé de te contredir mais si tu double click: tu a acces a ton doc, tu
a un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils
soient
font grossir la base à très grande vitesse et que tu va te retrouver
avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée
a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet
du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas
etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des
donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de
le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière
de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite
quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est
pas
autoextensible et réductible...ma page word est donc tronquée.
D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I
need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document
word
vers
word , mais des objets ole (image, pdf, etc..;) vers word;
exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ
ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou
methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca
peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page
:
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques"
a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le
message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
et donc je fini ma ^hrase et j'en revient au debut comment exporter "erzat
word" vers word
désolé de te contredir mais si tu double click: tu a acces a ton doc, tu
a un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:
Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils
soient
font grossir la base à très grande vitesse et que tu va te retrouver
avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit
dans le
message de news: 004413D2-99CD-4972-A5BD-D6F352EC6D92@microsoft.com...
non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée
a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet
du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas
etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des
donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de
le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:
Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière
de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit
dans
le
message de news:
A86B3490-3EFA-41FD-9371-39417427857D@microsoft.com...
c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite
quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est
pas
autoextensible et réductible...ma page word est donc tronquée.
D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I
need
some
help
!-)
dans mes exemples il n'est pas question d'exporter un document
word
vers
word , mais des objets ole (image, pdf, etc..;) vers word;
exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a
écrit
dans
le
message de news:
57FB168D-0300-49BF-9E0F-55F237DEBB17@microsoft.com...
Bon Ok j'ai essayé sur une table exemple d'exporter mon champ
ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou
methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca
peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Sub
merci je vai essayer
les exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page
:
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com>
a
écrit
dans le
message de news:
9FD00904-6253-4154-8650-10A0B0862993@microsoft.com...
Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avance
Bonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" <b.roques@free.fr> a écrit dans le
message
de
news:
41b0d739$0$2299$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 !"
End Sub
et donc je fini ma ^hrase et j'en revient au debut comment exporter "erzat
word" vers worddésolé de te contredir mais si tu double click: tu a acces a ton doc, tu
a un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils
soient
font grossir la base à très grande vitesse et que tu va te retrouver
avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée
a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet
du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas
etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des
donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de
le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière
de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite
quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est
pas
autoextensible et réductible...ma page word est donc tronquée.
D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I
need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document
word
vers
word , mais des objets ole (image, pdf, etc..;) vers word;
exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ
ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou
methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca
peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page
:
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques"
a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le
message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
quand tu est sur ton objet word.
tu cliques avec le bouton droit et ensuite objet document /modifier
tu as le word minimum pour modifier
tu cliques avec le bouton droit et ensuite objet document / ouvrir
tu te retrouves avec le word complet et tu n'as pas besoin d'exporter.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans le
message de news:et donc je fini ma ^hrase et j'en revient au debut comment exporter "erzat
word" vers worddésolé de te contredir mais si tu double click: tu a acces a ton doc, tu
a un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils
soient
font grossir la base à très grande vitesse et que tu va te retrouver
avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée
a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet
du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas
etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des
donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de
le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière
de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite
quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est
pas
autoextensible et réductible...ma page word est donc tronquée.
D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I
need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document
word
vers
word , mais des objets ole (image, pdf, etc..;) vers word;
exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ
ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou
methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca
peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page
:
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques"
a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le
message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
quand tu est sur ton objet word.
tu cliques avec le bouton droit et ensuite objet document /modifier
tu as le word minimum pour modifier
tu cliques avec le bouton droit et ensuite objet document / ouvrir
tu te retrouves avec le word complet et tu n'as pas besoin d'exporter.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit dans le
message de news: C6ACB95C-659F-4D24-A7BE-2AF475C757C9@microsoft.com...
et donc je fini ma ^hrase et j'en revient au debut comment exporter "erzat
word" vers word
désolé de te contredir mais si tu double click: tu a acces a ton doc, tu
a un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:
Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils
soient
font grossir la base à très grande vitesse et que tu va te retrouver
avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit
dans le
message de news: 004413D2-99CD-4972-A5BD-D6F352EC6D92@microsoft.com...
non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée
a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet
du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas
etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des
donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de
le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:
Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière
de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit
dans
le
message de news:
A86B3490-3EFA-41FD-9371-39417427857D@microsoft.com...
c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite
quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est
pas
autoextensible et réductible...ma page word est donc tronquée.
D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I
need
some
help
!-)
dans mes exemples il n'est pas question d'exporter un document
word
vers
word , mais des objets ole (image, pdf, etc..;) vers word;
exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a
écrit
dans
le
message de news:
57FB168D-0300-49BF-9E0F-55F237DEBB17@microsoft.com...
Bon Ok j'ai essayé sur une table exemple d'exporter mon champ
ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou
methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca
peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Sub
merci je vai essayer
les exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page
:
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com>
a
écrit
dans le
message de news:
9FD00904-6253-4154-8650-10A0B0862993@microsoft.com...
Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avance
Bonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" <b.roques@free.fr> a écrit dans le
message
de
news:
41b0d739$0$2299$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 !"
End Sub
quand tu est sur ton objet word.
tu cliques avec le bouton droit et ensuite objet document /modifier
tu as le word minimum pour modifier
tu cliques avec le bouton droit et ensuite objet document / ouvrir
tu te retrouves avec le word complet et tu n'as pas besoin d'exporter.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans le
message de news:et donc je fini ma ^hrase et j'en revient au debut comment exporter "erzat
word" vers worddésolé de te contredir mais si tu double click: tu a acces a ton doc, tu
a un
"erzate de word" mais en particulier tu ne peut pas faire un appercu avt
impression, tu ne peut pas imprimer, tu n'a pas de barre de deffilement
vertical....
"Raymond [mvp]" wrote:Pour le modifier, il ne faut pas le ré-exporter mais double-cliquer sur
l'objet ole qui contient le document word. Word sera automatiquement
ouvert
avec le document.
je tiens à te prévénir que les objets OLE incorporés quels qu'ils
soient
font grossir la base à très grande vitesse et que tu va te retrouver
avec
une base énorme.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans le
message de news:non,(a mon sens) car en fait je vais avoir beaucoup de doc word crée
a
partir
de model. de plus il se peut dans le temp que le chemin pour ma base
access
change et alors il faudrais que je retape tous les liens. L'interet
du
champ
ole incorporé est l'unitée de lieux des données qui ne peuvent pas
etre
"egarées"
j'ai donc rehussi a ouvrir un model word, arecup l'ensemble des
donnees
dans
un champ ole mais je n'arrive pas a re exporter ce champ ole afin de
le
retoucher, le modifier....
Qu'en pense tu?
"Raymond [mvp]" wrote:Bonjour.
un lien hypertexte vers ton document word me semble plus appropié
qu'un
champ OLE. Word apporte d'autres possibilités que access en matière
de
mise
en forme et impression;
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit
dans
le
message de news:c'est vrai que presentée comme ça, ma question parait "stupide",
MAIS
(car
il
ya un mais!) en fait le problème que je n'arrive pas à résoudre
simplement
(c'est pourquoi j'en suis arriver à me torturer les neurones!!!)
c'est
:
j'ai tapé une lettre sous word, je l'ai importée dans un champ ole
par
vba
copier coller. Mais quand je suis sous access, je click sur mon
champ
ole,
une page word s'ouvre MAIS (j'y viens à mon problème!) ensuite
quand je
click
sur print j'imprime le formulaire entier....et pas seulement mon
champ
ole...
de même, si je fais un état pour mon champ ole, celui- ci n'est
pas
autoextensible et réductible...ma page word est donc tronquée.
D'ou
l'idée
que peut-être, peut-être...................une solution? SVP I
need
some
help
!-)dans mes exemples il n'est pas question d'exporter un document
word
vers
word , mais des objets ole (image, pdf, etc..;) vers word;
exporter
word
vers word me parait un peu superflu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a
écrit
dans
le
message de news:Bon Ok j'ai essayé sur une table exemple d'exporter mon champ
ole
contenant
un doc word avec le code ci apres recup la ou tu as dit
Et là... message d'erreur d'execution 438 : propriété ou
methode non
genere
par cet objet
J'ai alors essayer d'aouter des referance isual basic (toute
celles
qui
contenait VBA dans les terme (au pif))sans success.???SNIF
****= lignes surlignée en jaune.
ps je me demande si "Editionsélectionnertout" en francais ca
peut
marcher?????
Nom : MyOle
ControlSource: MyOle
4. Ajouter un bouton de commande, nommé CopyDocument et fixer
sa propriété 'Sur clic' comme suit :
Sub Bouton18_Click()
Dim NewObject As Object
Dim NewDoc As String
' Nom du nouveau document à créer
NewDoc = "TEST.DOC"
' Copie l'objet dans le presse papier
Me!MyOle.Verb = 0
Me!MyOle.Action = 7
****Me!MyOle.Object.Application.WordBasic.Editionsélectionnertout
Me!MyOle.Object.Application.WordBasic.EditionCopier
Me!MyOle.Action = 9
DoEvents
' Crée un nouveau document et colle le contenu du presse papier
' enregistre le document dans le répertoire de Word.
Set NewObject = CreateObject("Word.Basic")
NewObject.FichierNouveau
NewObject.EditionColler
NewObject.FichierEnregistrerSous NewDoc
NewObject.fichierFermer
' Libération de la mémoire utilisée par l'objet
Set NewObject = Nothing
End Submerci je vai essayerles exemples donnés ne concernent pasles champs OLE qui ne
sont
pas
des
champs texte;
pour copier un champ OLE tu trouveras un exemple sur la page
:
http://officesystem.access.free.fr/copie_objets_ole.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques"
a
écrit
dans le
message de news:Bon ok j'y suis allé et j'ai adapté le cas 2 et 3 et la...
le
mieux
que
j'ai
pus faire c'est obtenir une succession de carrées?????
Cela vient il du fait que mon fichier source est un champ
oel...
Si oui comment faire.
*En d'autre termes j'ai crer un doc word dans un champ oel
que
je
ne
sais
pas exporter vers un doc word affin de l'imprimer (la
fonction
imprime
la totalité du formulaire et les etats des objet oel n'ont
pas
la
fonction
autoetandre et auto reduir.....)
Merci d'avanceBonjour.
tu trouveras un modèle de code pour insérer des valeurs
dans
des
signets
word sur la page:
http://officesystem.access.free.fr/vba/signets.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"roques bertrand" a écrit dans le
message
de
news:
41b0d739$0$2299$J'avais récupéré sur le net l'appli ci après mais ça nemarche 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
là je m'incline, youpi, c'est ce que je voulais depuis qq mois....je suis
impressionner...Felicitation pour ce feuilleton...qui meriterai une
bouteille....
Si je suis gourmand ... ce "click dt objet document ouvrir" peut ont
l'automatiser par un bouton?????
là je m'incline, youpi, c'est ce que je voulais depuis qq mois....je suis
impressionner...Felicitation pour ce feuilleton...qui meriterai une
bouteille....
Si je suis gourmand ... ce "click dt objet document ouvrir" peut ont
l'automatiser par un bouton?????
là je m'incline, youpi, c'est ce que je voulais depuis qq mois....je suis
impressionner...Felicitation pour ce feuilleton...qui meriterai une
bouteille....
Si je suis gourmand ... ce "click dt objet document ouvrir" peut ont
l'automatiser par un bouton?????
s'agissant du menu contextuel par défaut , je doute qu'on puisse le placer
dans un menu normal ou sous un bouton.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans le
message de news:là je m'incline, youpi, c'est ce que je voulais depuis qq mois....je suis
impressionner...Felicitation pour ce feuilleton...qui meriterai une
bouteille....
Si je suis gourmand ... ce "click dt objet document ouvrir" peut ont
l'automatiser par un bouton?????
s'agissant du menu contextuel par défaut , je doute qu'on puisse le placer
dans un menu normal ou sous un bouton.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" <bertrandroques@discussions.microsoft.com> a écrit dans le
message de news: E4741E5B-F148-474D-8DC0-42AA3A4AC50A@microsoft.com...
là je m'incline, youpi, c'est ce que je voulais depuis qq mois....je suis
impressionner...Felicitation pour ce feuilleton...qui meriterai une
bouteille....
Si je suis gourmand ... ce "click dt objet document ouvrir" peut ont
l'automatiser par un bouton?????
s'agissant du menu contextuel par défaut , je doute qu'on puisse le placer
dans un menu normal ou sous un bouton.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"bertrand roques" a écrit dans le
message de news:là je m'incline, youpi, c'est ce que je voulais depuis qq mois....je suis
impressionner...Felicitation pour ce feuilleton...qui meriterai une
bouteille....
Si je suis gourmand ... ce "click dt objet document ouvrir" peut ont
l'automatiser par un bouton?????