Macro Enregistrer sous, générer PDF, envoie par mail
Résolu
s.ecoffey
Messages postés
1
Statut
Membre
-
Willzac Messages postés 281 Statut Membre -
Willzac Messages postés 281 Statut Membre -
Bonsoir,
Je galère un peu pour automatiser un fichier, en fait, je m'arrache les cheveux ???? . Je suis capable de générer plusieurs macros individuellement, mais dès que je les associe, c'est le plantage complet...
voici ce que je cherche :
- établir un formulaire OK
- à l'aide d'une macro :
- l'enregistrer la version actuelle du formulaire sous
- chemin C:\...
- nom : AAA_MM_JJ HH:MM:SS_(Cellule).xlsm
- générer le pdf d'un des 5 onglets (faut-il 5 macro ? ou mieux encore, une boite de dialogue avec un choix)
- enregistrer ce PDF sous
- chemin C:\...
- nom : AAA_MM_JJ HH:MM:SS_(Cellule).pdf
- Annexer ce PDF dans un mail, brouillon, boite d'envoi ou mieux encore dans une fenêtre ouverte (sans destinataire, Object, corps de texte
Merci beaucoup pour votre aide et à charge de revanche
Sylvain
1 réponse
-
Bonjour,
Je vais essayer !
Essaye ceci :
Sub ecoff() Dim nom_fichier As String, emplacement As String Dim feuille As String emplacement = ActiveWorkbook.Path & "\" nom_fichier = Format(Now, "yyyy_mm_dd_hh_mm_ss") ActiveWorkbook.SaveAs emplacement & nom_fichier & ".xslm" feuille = Application.InputBox("Entrer le numero de la feuille:", "Convertir en PDF") Sheets(CInt(feuille)).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, Prtofilename:=ActiveWorkbook.Path & "\" & nom_fichier & ".pdf" End SubPour la première partie jusqu'à l'enregistrement sous format pdf
Will
