Discussion :

[the_6L20]

Bonjour,

je souhaite sortir des etat access en fichier PDF pour pouvoir les envoyer par mail avec lotus Notes!

jusqu' amaintenant j'ai reussi a cree les mails et a y mettre les pieces jointes.

Cependant j'ai des soucis avec le code du tutoriel pour la creation des PDF

dans la fonction suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Function getPDF(ByVal strReport As String, _
                Optional ByVal allPages As Integer = acPrintAll, _
                Optional ByVal pStart As Integer, _
                Optional ByVal pEnd As Integer)
Dim strOldPrinter As String
Dim strPdfPrinter As String
Dim dblStamp As Double
 
 
' récupération de l'imprimante par défaut
strOldPrinter = GetDefaultPrinter
' attribution de l'imprimante PDF
strPdfPrinter = "PDFCreator"
SwitchDefaultPrinter strPdfPrinter
' récupération de la date / heure courante
dblStamp = Now
' ajout du document dans la file d'attente
addDocument strReport & IIf(allPages <> acPrintAll, " [" & pStart & "-" & pEnd & "]", ""), dblStamp
' ouverture de l'état par automation
fOpenRemoteReport workdb.name, strReport, _
                acViewPreview, allPages, _
                IIf(allPages <> acPrintAll, pStart, 1), IIf(allPages <> acPrintAll, pEnd, 9999)
' réattribution de l'imprimante par défaut
SwitchDefaultPrinter strOldPrinter
' gestion de la file d'attente des documents
ScanPDFfiles
End Function

j'ai une erreur sur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
' ouverture de l'état par automation
fOpenRemoteReport workdb.name, strReport, _
                acViewPreview, allPages, _
                IIf(allPages <> acPrintAll, pStart, 1), IIf(allPages <> acPrintAll, pEnd, 9999)

qui me dit:
erreur d'execution '424'
objet requis

j'ai tester de mettre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
dim workDB as object

mais j'ai de nouveau une erreur:
erreur d'execution '91'
variable object ou variable de bloc With non defini

Help!!!!

je ne m'en sort plus la ma connaissance etant vraimetn trop limitée!
merci de votre aide!

[jpo]

salut
quelle est la version d'access?
jp

[the_6L20]

La version est access 2003

[Lou Pitchoun]

Salut

Sous access 97 j'ai remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CurrentDb.Name

Si tu souhaites conserver la déclaration :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim workdb As DAO.DataBase
Set workdb = CurrentDb

[the_6L20]

Merci cela m'avance un peu!

seul souci c'est qu'il veut me reouvrir la base du coup!

et donc il ouvre une seconde fois la base qui demande automatiquement de rentré son nom d'utilisateur et son mot de passe....

ce qui n'est pas franchement le but rechercher!

merci de me dire quoi si il y a une solution

[cafeine]

Hello,

le code que tu cites a été écrit dans un autre but que le tien : transformer des états d'une autre base en PDF.

Si tu veux en faire un autre usage, il te faut adapter ce code.
Il ne faut non pas utiliser fOpenRemoteReport (qui sert à ouvrir sur une base distante) mais tout seimple DoCmd.OpenReport

[the_6L20]

Bonjour Cafeine,

merci de cette indication,

donc il faut que je remplace a chaque fois fOpenRemoteReport par DoCmd.OpenReport ?

mais l'un est une fonction est l'autre est une commande si je me trompe pas, donc l'utilisation est differente

un dernier coup de pouce svp

[cafeine]

Le coup de pouce va venir de l'aide.

regarde l'aide sur OpenReport

[the_6L20]

en fait c'est bon je maitrise l'open report et l'impression derriere, vu que la base edite pas moin de 9 documetn differents!

maintenant le soucis que j'ai c'est apparament lors du renomage du fichier

j'ai le message d'erreur suivant :

3270 propriété non trouvé

[the_6L20]

bon j'ai resolu autrement, je ne fait appel qu'au changement d'imprimante, j'ouvre le formulaire et j'ai defini d'appeler le fichier Shipping.pdf dans PDFcreator

comme ca pas de soucis pour rammener mla piece jointe dans le mail!

seul souci si ca arrive a la crezation du mail trop vite, c'est le document precedent qui passe dans le mail, il me semble avoir appercu dans la faq un truc au sujet d'attendre qu'un autre programme ai fini...

[jpo]

salut
si cela peut t 'aider
l'etat est parametré pour l'impression sur acrobat distiller ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function Envoi_mail()
    Dim Out As Object
    Dim Message As Object
    Dim Fichier As String
    If MsgBox("Voulez-vous envoyer par mail", vbYesNo, "Envoi par mail ?") = vbYes Then
        Fichier = "i:\phil\commandemail.pdf"
        'Création du mail
        Set Out = CreateObject("Outlook.application")
        Set Message = Out.createitem(0)
        'Création de la pièce jointe
        '---------------------------
        Message.attachments.Add Fichier
        Message.display
    End If
End Function

voilà
bon courage
++
jp

[the_6L20]

Merci JP!

mais ca ne me sera pas utile, l'entreprise ou je suis a la bonne idée de n'utiliser que Lotus notes!

Sinon ca serait trop facile!

mais c'est bon je suis sur la bonne voie, juste un souci de temps de creation du pdf qui fait que je dois surpimer le fichier apres ajout dans le mail, mais qu'il faut que je verifi sa presence avant la creation du mail...

ca devrait aller! merci a tous pour votre aide!

[Oleff]

Une petite fonction de temporisation qui peut t'être utile.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Function wait(secondes As Integer) as Boolean
    Dim lDeb As Long, lFin As Long, lChrono As Long
    lDeb = Timer
    lFin = lDeb + secondes
    Do Until Timer >= lFin
        DoEvents
    Loop
End Function

[the_6L20]

Oleff Merci!

c'est bon j'ai une solution "correcte" pour le moment, ils s'ammuserons quand l'ets exterieur reprendra pour optimiser voir si ils peuvent faire mieux!