Enregistrement Excel En PDF Par Macro

Navigation

Inscrivez-vous gratuitementpour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

• Vous n'êtes pas encore inscrit sur Developpez.com ? Inscrivez-vous gratuitement !

• Quoi de neuf ?
• Forum
• Derniers messages
• Actions
  • Marquer les forums comme lus
  • Messages du jour
  • Bugs & Suggestions
• Réseau social
  • Groupes
  • Liste des utilisateurs
  • FAQ forum
  • Voir l'équipe du site
• Blogs
• Agenda
• Chat
• Règles
• Blogs
• Projets

• Recherche avancée

• 
• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• [XL-2016] Enregistrement excel en PDF par macro

+ Répondre à la discussion Discussion : Enregistrement excel en PDF par macro [XL-2016] Sujet :

Macros et VBA Excel

• Outils de la discussion
  • Afficher une version imprimable
  • S'abonner à cette discussion…
• Affichage
  • Mode linéaire
  • Choisir le mode hybride
  • Choisir le mode arborescent

1. 06/04/2017, 22h44 #1 stef3700 Membre confirmé Rédacteur techniqueInscrit enAvril 2017Messages57Détails du profilInformations personnelles :Sexe : Localisation : France, Yvelines (Île de France)Informations professionnelles :Activité : Rédacteur techniqueInformations forums :Inscription : Avril 2017Messages : 57 Enregistrement excel en PDF par macro

   Bonjour a tous novice en macro *1 Voila je voudrais avoir une macro pour enregistre mon fichier Excel en PDF avec le même nom puis au même endroit que la source du fichier , sans changer son nom bien sur, *2 Puis d'enregistré automatiquement en même tant en Excel (.xls) *3 Puis d'ouvrir le PDF pour vérifier ma mise en page. *4 Puis de fermée l'ensemble. pour évité de sélectionné les actions que Excel nous propose du fait de choisir enregistre sous puis de choisir le format PDF puis la destination de l'enregistrement. Voila si possible en une action donc la macro enfin j'espère Merci d'avance pour tous Cdt

   Répondre avec citation 0 1
2. 06/04/2017, 23h05 #2 kiki29 Expert confirmé ex Observeur CGG / Analyste prog.Inscrit enJuin 2006Messages6 132Détails du profilInformations personnelles :Sexe : Localisation : France, Finistère (Bretagne)Informations professionnelles :Activité : ex Observeur CGG / Analyste prog.Informations forums :Inscription : Juin 2006Messages : 6 132

   Salut, voir Excel et l'enregistreur de macro En bas de ce post 1 la dernière partie intitulée : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant P.-S. : Ce n'est pas le bon forum. D'urgence Antidote

   Répondre avec citation 0 0
3. 06/04/2017, 23h29 #3 stef3700 Membre confirmé Rédacteur techniqueInscrit enAvril 2017Messages57Détails du profilInformations personnelles :Sexe : Localisation : France, Yvelines (Île de France)Informations professionnelles :Activité : Rédacteur techniqueInformations forums :Inscription : Avril 2017Messages : 57

   Merci pour ta réponse rapide mais rien ne fonctionne sachant que je suis novice dans ce domaine. puis si je me trompe pas je ne vois pas pour qu'il enregistre avec le même nom que l'original. Merci

   Répondre avec citation 0 1
4. 06/04/2017, 23h50 #4 kiki29 Expert confirmé ex Observeur CGG / Analyste prog.Inscrit enJuin 2006Messages6 132Détails du profilInformations personnelles :Sexe : Localisation : France, Finistère (Bretagne)Informations professionnelles :Activité : ex Observeur CGG / Analyste prog.Informations forums :Inscription : Juin 2006Messages : 6 132

   Re, l'enregistreur de macros te fournira un embryon de code qu'il te faudra optimiser à la main.

   Répondre avec citation 0 0
5. 07/04/2017, 01h21 #5 stef3700 Membre confirmé Rédacteur techniqueInscrit enAvril 2017Messages57Détails du profilInformations personnelles :Sexe : Localisation : France, Yvelines (Île de France)Informations professionnelles :Activité : Rédacteur techniqueInformations forums :Inscription : Avril 2017Messages : 57

   Re voici ca avance Jai trouver ceci; Mais je ne trouve pas comment enregistrée dans le même dossier ou se trouve la source. De l'aide merci....

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   12345678910111213

   Sub Enregistrer_pdf_original() Rep = MsgBox("Voulez-vous sauvegarder en pdf ?", vbYesNo) If Rep = vbYes Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End If End Sub

   Répondre avec citation 1 0
6. 07/04/2017, 05h28 #6 kiki29 Expert confirmé ex Observeur CGG / Analyste prog.Inscrit enJuin 2006Messages6 132Détails du profilInformations personnelles :Sexe : Localisation : France, Finistère (Bretagne)Informations professionnelles :Activité : ex Observeur CGG / Analyste prog.Informations forums :Inscription : Juin 2006Messages : 6 132

   Salut, qqch dans le genre ci-dessous de la lecture :

   • Manipulation des fichiers en VBA
   • Early Late Binding

   P.-S. : Pour baliser ton code

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1234567891011121314151617

   Option Explicit Sub Enregistrer_pdf_original() Dim Rep As Long, sFichier As String Dim FSO As Object Rep = MsgBox("Voulez-vous sauvegarder en pdf ?", vbYesNo) If Rep = vbYes Then Set FSO = CreateObject("Scripting.FileSystemObject") sFichier = ThisWorkbook.Path & "\" & FSO.GetBaseName(ThisWorkbook.Name) Set FSO = Nothing ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End If End Sub

   Répondre avec citation 0 0
7. 07/04/2017, 14h11 #7 stef3700 Membre confirmé Rédacteur techniqueInscrit enAvril 2017Messages57Détails du profilInformations personnelles :Sexe : Localisation : France, Yvelines (Île de France)Informations professionnelles :Activité : Rédacteur techniqueInformations forums :Inscription : Avril 2017Messages : 57

   Merci kiki29 fonctionne Nikel ou la vache ta réponse a 4 heures du mat ca déchire y a-t-il la possibilité d'avoir un message si le fichier PDF existe déjà avant de l'écraser en message de type box par oui ou non puis aussi qu'il effectue une sauvegarde du fichier Excel aussi en même tant. merci d'avance

   Répondre avec citation 0 0
8. 07/04/2017, 14h36 #8 kiki29 Expert confirmé ex Observeur CGG / Analyste prog.Inscrit enJuin 2006Messages6 132Détails du profilInformations personnelles :Sexe : Localisation : France, Finistère (Bretagne)Informations professionnelles :Activité : ex Observeur CGG / Analyste prog.Informations forums :Inscription : Juin 2006Messages : 6 132

   Salut, pour la sauvegarde au format Excel, je te laisse le soin de poursuivre. Se méfier de ce genre de messages en cascade du style "voulez-vous écraser ce fichier", "êtes vous sur de l'écraser", "bon on va l'écraser" qui lassent très vite l'utilisateur et ne le responsabilise pas.

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   123456789101112131415161718192021222324252627

   Option Explicit Sub Enregistrer_pdf_original() Dim Rep As Long, Rep2 As Long, sFichier As String Dim FSO As Object Rep = MsgBox("Voulez-vous sauvegarder en pdf ?", vbYesNo) If Rep = vbYes Then Set FSO = CreateObject("Scripting.FileSystemObject") sFichier = ThisWorkbook.Path & "\" & FSO.GetBaseName(ThisWorkbook.Name) & ".pdf" If FSO.FileExists(sFichier) Then Rep2 = MsgBox("Le fichier pdf existe déjà, confirmer son écrasement ?", vbYesNo) If Rep2 = vbYes Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End If Else ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End If Set FSO = Nothing End If End Sub

   Répondre avec citation 0 0
9. 07/04/2017, 16h03 #9 stef3700 Membre confirmé Rédacteur techniqueInscrit enAvril 2017Messages57Détails du profilInformations personnelles :Sexe : Localisation : France, Yvelines (Île de France)Informations professionnelles :Activité : Rédacteur techniqueInformations forums :Inscription : Avril 2017Messages : 57

   Encore merci pour ta rapidité tes un chef........ Pour ne pas abuser est-il possible d'enregistrée en PDF un ensemble d'onglet donc pas la totalité en même temps par exemple onglet AVIS 1 ; AVIS 2 AVIS 3 ; AVIS 4 Merci encore Cdt

   Répondre avec citation 0 0
10. 07/04/2017, 16h49 #10 kiki29 Expert confirmé ex Observeur CGG / Analyste prog.Inscrit enJuin 2006Messages6 132Détails du profilInformations personnelles :Sexe : Localisation : France, Finistère (Bretagne)Informations professionnelles :Activité : ex Observeur CGG / Analyste prog.Informations forums :Inscription : Juin 2006Messages : 6 132

    Re, à adapter pour les noms et nombre de feuilles

    Code :

    Sélectionner tout - Visualiser dans une fenêtre à part

    123456789101112131415161718192021222324252627282930313233343536373839

    Sub Enregistrer_pdf_original() Dim Rep As Long, sFichier As String Dim FSO As Object Rep = MsgBox("Voulez-vous sauvegarder en pdf ?", vbYesNo) If Rep = vbYes Then Set FSO = CreateObject("Scripting.FileSystemObject") sFichier = ThisWorkbook.Path & "\" & FSO.GetBaseName(ThisWorkbook.Name) & ".pdf" If FSO.FileExists(sFichier) Then Rep = MsgBox("Le fichier pdf existe déjà, confirmer son écrasement ?", vbYesNo) If Rep = vbYes Then SavePDF sFichier Else SavePDF sFichier End If Set FSO = Nothing End If End Sub Private Sub SavePDF(sNomFichier As String) Dim Ar(1) As String Ar(0) = "Feuil1" Ar(1) = "Feuil3" Application.ScreenUpdating = False Sheets(Ar).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=sNomFichier, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Sheets("Feuil1").Select Application.ScreenUpdating = True End Sub

    Répondre avec citation 1 0
11. 07/04/2017, 18h12 #11 stef3700 Membre confirmé Rédacteur techniqueInscrit enAvril 2017Messages57Détails du profilInformations personnelles :Sexe : Localisation : France, Yvelines (Île de France)Informations professionnelles :Activité : Rédacteur techniqueInformations forums :Inscription : Avril 2017Messages : 57

    Merci beaucoup je test puis je vous tient au jus T un chef

    Répondre avec citation 0 0
12. 09/04/2017, 02h27 #12 stef3700 Membre confirmé Rédacteur techniqueInscrit enAvril 2017Messages57Détails du profilInformations personnelles :Sexe : Localisation : France, Yvelines (Île de France)Informations professionnelles :Activité : Rédacteur techniqueInformations forums :Inscription : Avril 2017Messages : 57

    Encore Merci Fonctionne Nikel Longue vie au FOFO

    Répondre avec citation 0 0
13. 21/01/2019, 18h12 #13 munff Invité de passage Administrateur systèmes et réseauxInscrit enDécembre 2015Messages1Détails du profilInformations personnelles :Sexe : Âge : 35Localisation : France, Lot (Midi Pyrénées)Informations professionnelles :Activité : Administrateur systèmes et réseauxSecteur : Biens de consommationInformations forums :Inscription : Décembre 2015Messages : 1 Macro PDF

    BOnjour, Merci pour cette macro. Est-il possible d'ajouter dans la macro la possibilité de nommer le fichier enregistrer ainsi que le chemin ?

    Code :

    Sélectionner tout - Visualiser dans une fenêtre à part

    123456789101112131415161718192021222324252627

    Option Explicit Sub Enregistrer_pdf_original() Dim Rep As Long, Rep2 As Long, sFichier As String Dim FSO As Object Rep = MsgBox("Voulez-vous sauvegarder en pdf ?", vbYesNo) If Rep = vbYes Then Set FSO = CreateObject("Scripting.FileSystemObject") sFichier = ThisWorkbook.Path & "\" & FSO.GetBaseName(ThisWorkbook.Name) & ".pdf" If FSO.FileExists(sFichier) Then Rep2 = MsgBox("Le fichier pdf existe déjà, confirmer son écrasement ?", vbYesNo) If Rep2 = vbYes Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End If Else ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End If Set FSO = Nothing End If End Sub

    Merci. Cordialement,

    Répondre avec citation 0 0

+ Répondre à la discussion Cette discussion est résolue.

Actualités

FAQs OFFICE

TUTORIELS OFFICE

LIVRES OFFICE

SOURCES VBA

OFFICE 2010

• 
• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• [XL-2016] Enregistrement excel en PDF par macro

« Discussion précédente | Discussion suivante »

Discussions similaires

1. [XL-2003] Envoyer un fichier Excel en Pdf par mail Par FCL31 dans le forum Macros et VBA Excel Réponses: 6 Dernier message: 25/03/2010, 17h29
2. [XL-2000] Ouvrir et imprimer un pdf par macro Par lagondenoumea dans le forum Macros et VBA Excel Réponses: 1 Dernier message: 17/12/2009, 06h57
3. [Excel]Ouvrir feuille par macro. Par JML62400 dans le forum Macros et VBA Excel Réponses: 3 Dernier message: 20/02/2009, 19h11
4. Suppression de tous les enregistrements d'un table par macro Par bla94 dans le forum Access Réponses: 2 Dernier message: 12/12/2006, 01h22
5. Imprimer des selections excel en pdf par VBA Par ouellet5 dans le forum Macros et VBA Excel Réponses: 4 Dernier message: 07/12/2005, 18h29

Partager

Partager

• 
• 
• 
• 
• 
• 
• 
• 

• Nous contacter
• Developpez.com
• Haut de page