etpisculrien
XLDnaute Occasionnel
Bonsoir à tous,
Une fois n'est pas coutume, je bosse le soir
Du coup, comme il fait nuit, j'aurais besoin de vos lumières...
Voilà mon problème (j'ai essayé différentes solutions genre "Application.Dialogs(xlDialogSaveAs).Show (,pdf)" mais ça plante à chaque fois):
j'ai un fichier excel complété par quelqu'un via macro
Je souhaite faire un bouton pour qu'il puisse enregistrer et envoyer (via thunderbird) son document une fois finalisé au format PDF. J'ai 2 possibilités qui s'offre à moi et j'hesite encore sur le choix... Du coup j'aimerais pouvoir :
1) soit que la fenetre "enregistrer sous" apparaisse mais avec comme choix de type de fichier un .pdf, et lui laisser choisir le nom de son fichier et son endroit (je récupèrerais après ces infos pour pouvoir envoyer le fichier par mail)
2) soit enregistrer le fichier sous un nom prédéterminé (ex : nom_fichier_date) dans un endroit précis (ou lui laisser le choix de l'endroit) puis récupérer le fichier pour l'envoyer via thunderbird
Si vous aviez une solution (voire 2) ce serait bien sympa
Tant qu'à abuser, si vous avez un truc pour envoyer le mail avec la pièce joint, je suis preneur... J'ai essayé ça mais ça marche pas
Private Sub CommandButton1_Click()
Dim destinataire, sujet, fichierjoint As String
destinataire = "Toto.Titi@xxxxx.com,tata.tutu@xxxxx.com"
sujet = "Salut!"
body = "Comment ca va ?"
fichierjoint = "C:\caisslog.txt"
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
MsgBox strcommand
Call Shell(strcommand, vbNormalFocus)
End Sub
Merci d'avance de votre aide
Une fois n'est pas coutume, je bosse le soir
Du coup, comme il fait nuit, j'aurais besoin de vos lumières...
Voilà mon problème (j'ai essayé différentes solutions genre "Application.Dialogs(xlDialogSaveAs).Show (,pdf)" mais ça plante à chaque fois):
j'ai un fichier excel complété par quelqu'un via macro
Je souhaite faire un bouton pour qu'il puisse enregistrer et envoyer (via thunderbird) son document une fois finalisé au format PDF. J'ai 2 possibilités qui s'offre à moi et j'hesite encore sur le choix... Du coup j'aimerais pouvoir :
1) soit que la fenetre "enregistrer sous" apparaisse mais avec comme choix de type de fichier un .pdf, et lui laisser choisir le nom de son fichier et son endroit (je récupèrerais après ces infos pour pouvoir envoyer le fichier par mail)
2) soit enregistrer le fichier sous un nom prédéterminé (ex : nom_fichier_date) dans un endroit précis (ou lui laisser le choix de l'endroit) puis récupérer le fichier pour l'envoyer via thunderbird
Si vous aviez une solution (voire 2) ce serait bien sympa
Tant qu'à abuser, si vous avez un truc pour envoyer le mail avec la pièce joint, je suis preneur... J'ai essayé ça mais ça marche pas
Private Sub CommandButton1_Click()
Dim destinataire, sujet, fichierjoint As String
destinataire = "Toto.Titi@xxxxx.com,tata.tutu@xxxxx.com"
sujet = "Salut!"
body = "Comment ca va ?"
fichierjoint = "C:\caisslog.txt"
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
MsgBox strcommand
Call Shell(strcommand, vbNormalFocus)
End Sub
Merci d'avance de votre aide