OVH Cloud OVH Cloud

Automation Word bloquée

5 réponses
Avatar
zarbout
Puisque je ne suis pas un as du code vb, j'ai du mal à voir pourquoi Access
me répond "ce signet n'existe pas" alors que j'ai bien vérifié l'existence
de tous les signets dans mon modèle Word (.dot) et dans mon
formulaire.Tache encore plus facile puisque les signets portent les mêmes
noms que les champs dans le formulaire (en MAJUSCULE dans le code
ci-dessous).
je vous livre le code à l'état si quelqu'un y voit qq chose qui cloche.
Merci pour votre aide.

Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click
Dim X As Integer, Rep As Integer
Rep% = MsgBox("Voulez vous imprimez votre courrier ?", _
vbQuestion & vbOKCancel, "Impression courrier")
If Rep% = 7 Then
Exit Sub
Else
X% = PrintLetter()
End If
Exit_Commande22_Click:
Exit Sub
Err_Commande22_Click:
MsgBox Err.Description
Resume Exit_Commande22_Click
End Sub


Public Function PrintLetter()
Dim ctlObj As Object, X As Integer
Dim Msg As String

Set ctlObj = CreateObject("word.basic") 'Déclaration objet Word
With ctlObj

.FileNew "C:\base vs\Modeles_MAILING\ENTETE.DOT"
.Editgoto Destination:="ERENOM"
.Insert Forms![LISTE_COURRIER_INDIVIDUEL]!ERENOM & ""
.Editgoto Destination:="EREPRE"
.Insert Forms![LISTE_COURRIER_INDIVIDUEL]!EREPRE & " "

.Editgoto Destination:="AREADR"
.Insert Forms![LISTE_COURRIER_INDIVIDUEL]!AREADR
.Editgoto Destination:="ERECLD"
.Insert Forms![LISTE_COURRIER_INDIVIDUEL]!ERECLD
.Editgoto Destination:="ERELCOM"
.Insert Forms![LISTE_COURRIER_INDIVIDUEL]!ERELCOM
.Editgoto Destination:="ELENOM"
.Insert Forms![LISTE_COURRIER_INDIVIDUEL]!ELENOM
.Editgoto Destination:="DIVCOD"
.Insert Forms![LISTE_COURRIER_INDIVIDUEL]!DIVCOD
.Editgoto Destination:="MESSAGE"
.Insert Forms![LISTE_COURRIER_INDIVIDUEL]!MESSAGE


.FileSaveAs Name:="C:\courrier_indv du" & (DATE) & ".doc"
ctlObj.Fileprintdefault 'Impression du document
.AppClose 'Fermeture de word
End With
Set ctlObj = Nothing 'Libération de l'objet Word

Err_PrintLetter_Exit:
Exit Function
End Function

5 réponses

Avatar
moilneu
"zarbout" a écrit dans le message de news: ...
Puisque je ne suis pas un as du code vb, j'ai du mal à voir pourquoi
Access

me répond "ce signet n'existe pas" alors que j'ai bien vérifié
l'existence

de tous les signets dans mon modèle Word (.dot) et dans mon
formulaire.Tache encore plus facile puisque les signets portent les
mêmes

noms que les champs dans le formulaire (en MAJUSCULE dans le code
ci-dessous).
je vous livre le code à l'état si quelqu'un y voit qq chose qui
cloche.

Merci pour votre aide.



Bonjour Zarbout,

En fait ton pb vient du nom du fichier, Date contient les caractères /
ce qui est interdit dans le nom de fichier, voici une petite ligne
d'exemple qui resout ton pb :

fs.CopyFile CurrentProject.FullName, "courrier_indv du" &
Format(Date, "dd mm yy") & ".doc"
--
Laurent

Cours et exemples pour Microsoft Access
http://www.lesiteamoilneu.levillage.org/
La charte "microsoft.public.fr.access"
http://users.skynet.be/mpfa

Avatar
zarbout
Quand je compile le module Access n'a pas l'air de digérer " CurrentProject
"ni "Format". Est ce compatible Access 97 ou c'est un pb de référence ?




"moilneu" a écrit dans le message de news:

"zarbout" a écrit dans le message de news: ...
Puisque je ne suis pas un as du code vb, j'ai du mal à voir pourquoi
Access

me répond "ce signet n'existe pas" alors que j'ai bien vérifié
l'existence

de tous les signets dans mon modèle Word (.dot) et dans mon
formulaire.Tache encore plus facile puisque les signets portent les
mêmes

noms que les champs dans le formulaire (en MAJUSCULE dans le code
ci-dessous).
je vous livre le code à l'état si quelqu'un y voit qq chose qui
cloche.

Merci pour votre aide.



Bonjour Zarbout,

En fait ton pb vient du nom du fichier, Date contient les caractères /
ce qui est interdit dans le nom de fichier, voici une petite ligne
d'exemple qui resout ton pb :

fs.CopyFile CurrentProject.FullName, "courrier_indv du" &
Format(Date, "dd mm yy") & ".doc"
--
Laurent

Cours et exemples pour Microsoft Access
http://www.lesiteamoilneu.levillage.org/
La charte "microsoft.public.fr.access"
http://users.skynet.be/mpfa





Avatar
Jessy SEMPERE
Bonjour
Quand je compile le module Access n'a pas l'air de digérer "
CurrentProject

"ni "Format". Est ce compatible Access 97 ou c'est un pb de référence ?


Pour CurrentProject, c'est normal, cette fonction n'est pas disponible dans
Access 97, par contre pour Format, là c'est pas normal, tu dois avoir
une référence marquée manquante, si c'est le cas, tu dois la décocher...
(ouvrir un module et aller dans le menu "outils" - "référence").

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------



"moilneu" a écrit dans le message de news:

"zarbout" a écrit dans le message de news: ...
Puisque je ne suis pas un as du code vb, j'ai du mal à voir pourquoi
Access

me répond "ce signet n'existe pas" alors que j'ai bien vérifié
l'existence

de tous les signets dans mon modèle Word (.dot) et dans mon
formulaire.Tache encore plus facile puisque les signets portent les
mêmes

noms que les champs dans le formulaire (en MAJUSCULE dans le code
ci-dessous).
je vous livre le code à l'état si quelqu'un y voit qq chose qui
cloche.

Merci pour votre aide.



Bonjour Zarbout,

En fait ton pb vient du nom du fichier, Date contient les caractères /
ce qui est interdit dans le nom de fichier, voici une petite ligne
d'exemple qui resout ton pb :

fs.CopyFile CurrentProject.FullName, "courrier_indv du" &
Format(Date, "dd mm yy") & ".doc"
--
Laurent

Cours et exemples pour Microsoft Access
http://www.lesiteamoilneu.levillage.org/
La charte "microsoft.public.fr.access"
http://users.skynet.be/mpfa









Avatar
Hubert Canevet
Bonjour,

Je tente une réponse un peu lourdingue ...

Ceci me rappelle que lorsqu'on convertit une base Access
95 vers 97, les références ne sont pas tout-à-fait les
mêmes et quelques fonctions, dont Format, ne sont pas
reconnues. Si il s'agit juste d'installer la base sur une
machine, on peut effectivement mettre les références à
jour à la main après conversion. Sinon, en remplaçant
(avant conversion) Format par VBA.Format, Left par
VBA.Left, et ainsi de suite, ça marche, l'avantage est
qu'on n'a plus à y revenir si la base doit subir d'autres
modifications.

-----Message d'origine-----
Bonjour
Quand je compile le module Access n'a pas l'air de
digérer "


CurrentProject
"ni "Format". Est ce compatible Access 97 ou c'est un
pb de référence ?



Pour CurrentProject, c'est normal, cette fonction n'est
pas disponible dans

Access 97, par contre pour Format, là c'est pas normal,
tu dois avoir

une référence marquée manquante, si c'est le cas, tu dois
la décocher...

(ouvrir un module et aller dans le menu "outils" -
"référence").


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------



"moilneu" a écrit dans le message
de news:



"zarbout" a écrit dans le message
de news: ...




Puisque je ne suis pas un as du code vb, j'ai du
mal à voir pourquoi




Access
me répond "ce signet n'existe pas" alors que j'ai
bien vérifié




l'existence
de tous les signets dans mon modèle Word (.dot) et
dans mon




formulaire.Tache encore plus facile puisque les
signets portent les




mêmes
noms que les champs dans le formulaire (en
MAJUSCULE dans le code




ci-dessous).
je vous livre le code à l'état si quelqu'un y voit
qq chose qui




cloche.
Merci pour votre aide.



Bonjour Zarbout,

En fait ton pb vient du nom du fichier, Date contient
les caractères /



ce qui est interdit dans le nom de fichier, voici une
petite ligne



d'exemple qui resout ton pb :

fs.CopyFile
CurrentProject.FullName, "courrier_indv du" &



Format(Date, "dd mm yy") & ".doc"
--
Laurent

Cours et exemples pour Microsoft Access
http://www.lesiteamoilneu.levillage.org/
La charte "microsoft.public.fr.access"
http://users.skynet.be/mpfa








.






Avatar
moilneu
"zarbout" a écrit dans le message de news: ...

Quand je compile le module Access n'a pas l'air de digérer "
CurrentProject

"ni "Format". Est ce compatible Access 97 ou c'est un pb de référence
?


Pour Access 97 remplace le code par la ligne suivante :

fs.CopyFile Currentdb.Name, "courrier_indv du" & Format(Date, "dd mm
yy") & ".doc"

Format doit fonctionner (voir les références)

Mais je m'aperçois, que dans ma réponse je ne répond pas à ta
question... (sur le signet)

D'où provient la méthode EditGoto ? l'objet Word.Basic ?
à quelle ligne ce produit l'erreur ? (debug en mode pas à pas)

--
Laurent
La charte "microsoft.public.fr.access"
http://users.skynet.be/mpfa