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
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
- Comment enregistrer un mail - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Windows live mail - Télécharger - Mail
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
