Macro Enregistrer sous, générer PDF, envoie par mail
Résolu/Fermé
s.ecoffey
Messages postés
1
Date d'inscription
mercredi 30 novembre 2022
Statut
Membre
Dernière intervention
30 novembre 2022
-
30 nov. 2022 à 18:33
Willzac Messages postés 266 Date d'inscription mercredi 27 septembre 2017 Statut Membre Dernière intervention 20 juin 2024 - 5 déc. 2022 à 08:39
Willzac Messages postés 266 Date d'inscription mercredi 27 septembre 2017 Statut Membre Dernière intervention 20 juin 2024 - 5 déc. 2022 à 08:39
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
- Enregistrer en pdf - Guide
- Yahoo mail - Accueil - Mail
- Audacity enregistrer son pc - Guide
- Enregistrer son ecran - Guide
1 réponse
Willzac
Messages postés
266
Date d'inscription
mercredi 27 septembre 2017
Statut
Membre
Dernière intervention
20 juin 2024
14
Modifié le 5 déc. 2022 à 09:25
Modifié le 5 déc. 2022 à 09:25
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