Macro Enregistrer sous, générer PDF, envoie par mail
Résolu
s.ecoffey
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Willzac Messages postés 266 Date d'inscription Statut Membre Dernière intervention -
Willzac Messages postés 266 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Macro Enregistrer sous, générer PDF, envoie par mail
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Audacity enregistrer son pc - Guide
- Enregistrer en pdf - Guide
- Comment enregistrer un mail - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
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 Sub
Pour la première partie jusqu'à l'enregistrement sous format pdf
Will