Convertir feuille Excel en Pdf

Un essai à tester. Te convient-il ?

Bye !

Merci pour ton dévouement GMb,

çà marche très bien.

J'essaie de comprendre ta macro, mais ce n'est pas évident pour mon niveau de débutant.

Peux-tu m'expliquer ton code de la macro 2 ?

ActiveSheet.Buttons.Add(45.75, 31.5, 267, 51).Select

sophang a écrit :

Peux-tu m'expliquer ton code de la macro 2 ?

Seule la macro du module 1 est utile.

Je te l’ai commentée sur le nouveau fichier joint.

Les autres macros sont des macros que j’ai enregistrées pour avoir la syntaxe exacte de certaines instructions.

OK ?

Bye !

Merci,

C'est plus clair maintenant, avec les commentaires des codes.

Peux-tu m'indiquer comment peut-on enregistrer le fichier Pdf avec la date qui se trouve en cellule B1 du fichier "base données"

c'est-à-dire "facture du 03/12/2015.pdf" ?

Peux-tu également me commenter tes codes ?

Merci d'avance.

sophang a écrit :

...enregistrer le fichier Pdf avec la date qui se trouve en cellule B1 du fichier "base données"c'est-à-dire "facture du 03/12/2015.pdf" ?

En fait, on ne peut pas, sous Excel avoir des ''/'' dans un nom de fichier.

J'ai donc mis des tirets pour les dates.

Nouvelle version à tester :

Bye !

Bonjour,

Très bien, j'ai adapté ton code à ma macro, et encore merci.

J'ai encore une autre requête.

J'ai ce macro qui permet de préparer un mail avec la pièce jointe. J'envoie au quotidien ce fichier pdf par mail.

Le problème est que le fichier joint a une date variable.

Par exemple :"Facture du 03-12-2015.pdf".

Le lendemain, le fichier sera "Facture du 04-12-2015".

La macro suivante ne permet que de préparer le mail qu'avec q'une pièce jointe avec un nom déja défini.

Comment modifier celà ?

Sub Envoi_mail()

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "xxxx@groupe.com"
myItem.CC = "xxxx@groupe.com"
myItem.Subject = "FACTURE DU "
myItem.Body = "Bonjour," & Chr(13) & Chr(13) & "Veuillez trouver en pièce jointe, la facture du " & Chr(13) & Chr(13) & "Cordialement."
Set myAttachments = myItem.Attachments
myAttachments.Add "\\chemin du fichier\Dossier facture\Facture du 03-12-2015.pdf"
MsgBox "...préparation du mail à envoyer " & myItem.To
myItem.Display
Set ol = Nothing

End Sub

Bonjour

Pour ce qui est des mails envoyés depuis Excel, je suis incompétent.

Mais crée une nouvelle demande pour ça et je suis sûr que quelqu'un t'aidera.

Bonne chance.

Bye !