Macro : enregistrer sous .pdf, envoyer, effacer [Résolu/Fermé]

Messages postés
11
Date d'inscription
dimanche 17 avril 2011
Statut
Membre
Dernière intervention
18 juillet 2018
- - Dernière réponse :  ecoffeys - 18 juil. 2018 à 12:38
Bonjour,

j'ai pas mal parcouru le forum, trouvé de nombreuses questions, mais pas tout à fait les réponses que j'ai voulu ou alors, que je n'arrive pas à adapter sur ma feuille Excel.

mes collaborateurs doivent transmettre, plusieurs fois par jours, un fichier excel pour des changements d'articles à des opérateurs de saisie.

Je souhaite donc avoir :
un formulaire Excel, qui, avec une macro :
1 Enregistrerai dans un dossier, en format PDF est avec un nom "cellule B2"_"date" le document
2 ce pdf (ou l'excel) serait transmis par mail automatiquement à une adresse définie
3 les cellules seraient effacées pour l'utilisateur suivant

Pour les marcors 2 et 3, j'arrive à les faire, mais idéalement, j'aimerai les intérgrer en une seule macro et comme je n'y arrive avec la macro 1...

Merci pour votre aide
Sylvain
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
1837
Date d'inscription
mardi 24 juillet 2007
Statut
Membre
Dernière intervention
24 octobre 2018
387
1
Merci
Bonjour,

Pour la sauvegarde du PDF :

Sub savepdf()

    Dim File As String

    DateF = Format(Date, "_ddmmmmyyyy")
    'modifier le nom de feuille ci necessaire
    With Worksheets("Feuil1")
    File = "\" & .Range("B2") & DateF & ".pdf"
    'répertoire où le pdf va être sauvegardé
    Folder = "C:\"
    Path = Folder & File
    
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    End With
End Sub

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62858 internautes nous ont dit merci ce mois-ci

Merci, c'est exactement ce que je cherchais