Discussion :

[pascal5]

Slt Mathieu
Décidement !!!!!!
Des cours de vba me ferait du bien j'crois ,-))

J'ai donc inséré un module mais mainternant j'ai une erreur

erreur d'execution 2498
le type d'une expression entrée pour un argument est incorrect

Code :

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

1
2
3
DoCmd.SendObject acSendReport, "EtatTourn", "PDF" _
        , "destinataire@fai.com", , , _
        , "Liste des clients", "Veuillez trouver la liste des clients en pièce-jointe"

Merci

[jimbolion]

Pascal5,

A y voir de plus près un argument de trop :

Essayes comme cela :

Code :

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

1
2
3
DoCmd.SendObject acSendReport, "EtatTourn", "PDF" _
        , "destinataire@fai.com",  , _
        , "Liste des clients", "Veuillez trouver la liste des clients en pièce-jointe"

JimBoLion

[pascal5]

Merci Jimbolion
Marche nickel, mais.....
Si j'annule l'envoi j'ai une

erreur de d'execution '2501'
L'action SendObject a été annulée.

[jimbolion]

pascal5

Essayes çà :

Code :

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

1
2
3
DoCmd.SetWarnings False
DoCmd.SendObject ...
DoCmd.SetWarnings True

JimBoLion

[pascal5]

Désolé marche pas non plus.

Code :

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

1
2
3
4
5
    DoCmd.SetWarnings False
    DoCmd.SendObject acSendReport, "EtatTourn", "PDF" _
       , "destinataire@fai.com", , _
       , "Liste des clients", "Veuillez trouver la liste des clients en pièce-jointe"
       DoCmd.SetWarnings True

[jimbolion]

pascal5,

La même erreur je suppose ?

Et en mettant en tête de ta procédure un on error resume next ?

JimBoLion

[pascal5]

Oui c'est la même erreur

Et en mettant en tête de ta procédure un on error resume next ?

Désolé mais la tu parles en chinois pour moi
Merci

[jimbolion]

pascal5

Code :

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

1
2
3
4
5
6
on error resume next
    DoCmd.SetWarnings False
    DoCmd.SendObject acSendReport, "EtatTourn", "PDF" _
       , "destinataire@fai.com", , _
       , "Liste des clients", "Veuillez trouver la liste des clients en pièce-jointe"
       DoCmd.SetWarnings True

On error ignore les erreurs et passe à l'instruction suivante

JimBoLion

[mumen]

Jimbo, j'avais dit pas à l'aube !

Je pense que c'est résolu. Le setwarnings ne sert à rien ici, c'est juste pour les requêtes action.

[pascal5]

Marche super, c'est tout a fait ce que je désirais merci

J'ai juste encore deux questions.
1) Je n'arrive plus à avoir un aperçu de ma tournée a envoyer. L’état reste vide avec juste les entêtes des colonnes. Par contre si j’envoie ma tournée en pj, après je peux voir un aperçut de la tournée envoyé mais uniquement la tournée envoyée. Le contraire serait mieux il me semble ,-) dabord un aperçut et après l'envoi.

2) Si je veux sélectionner a partir d'une liste déroulante mes déstinataire comment dois je m'y prendre.

J'ai une table T_Infirmiers avec les champs NumInfirmier (primaire), Titre, Nom, prenom, ...., Email,

Merci

[mumen]

Salut Pascal

Pour le premier point, fais ceci :

Code :

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

1
2
3
4
5
6
Private Sub Report_Open(Cancel As Integer)
    If pubstrEtatTourn_RecordSource > "" Then
        Me.RecordSource = pubstrEtatTourn_RecordSource
        pubstrEtatTourn_RecordSource = ""
    End If
End Sub

[pascal5]

Fantastique
merci Mathieu et merci Jimbolion
C'est promis je vais me mettre au VBA, j'ai l'impression que c'est un passage obligé si tu veux quelques chose qui sorte de l’ordinaire.

[jimbolion]

Mathieu,

A quelle heure commence l'aube parce que 9h57 chez moi le soleil est levé depuis quelques heures !

Pour le SetWarning tu as raison, mais je devais pas être réveillé encore (l'aube je suppose) !

Jean-Marie