VBA-Enregistrer Feuilles Au Format PDF

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-2007] VBA-Enregistrer Feuilles au format PDF

+ Répondre à la discussion Discussion : VBA-Enregistrer Feuilles au format PDF 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. 05/05/2017, 11h24 #1 Maverik76 Membre régulier ÉtudiantInscrit enJuin 2014Messages7Détails du profilInformations personnelles :Sexe : Âge : 36Localisation : France, Seine Maritime (Haute Normandie)Informations professionnelles :Activité : ÉtudiantInformations forums :Inscription : Juin 2014Messages : 7

   Bonjour, je possède un tableau avec plusieurs onglets et j'aimerai faire un bouton pour pouvoir enregistrer,séparément, en pdf ces derniers et en fonction de leur nom. J'ai commencé par faire une liste des feuilles avec leurs noms correspondants dans la colonne suivante. Ensuite j'ai en "C4" fait une liste déroulante des feuilles et en D4 j'utiliserai la fonction "recherchev" pour associer la feuil au nom qui lui correspond. Et ensuite j'ai fait une tentative de macro pour pouvoir enregistrer en fonction de ces deux cellules mais cela ne marche pas, voici le code :

   Code :

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

   1234567891011

   Sub Export_PDF() Dim fichier As String 'adaptez le nom de la feuille With Worksheets([C4].Value) fichier = "Saint etienne rouvray_" & .Range([D4].Value) & ".pdf" 'pensez a ecrire le chemin Chemin = "E:\Saint Etienne du rouvray " & "\" & fichier .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With End Sub

   je ne suis pas du tout familier avec VBA mais j'ai fait ce code à partir de recherches ^^ Si vous pouvez m'éclairer j'en serai ravi J'ai oublié de préciser que je travaille sur microsoft Excel 2007 !

   Répondre avec citation 0 0
2. 05/05/2017, 11h31 #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, t'inspirer de ceci ou de cela en élaguant. Voire de cela encore.

   Répondre avec citation 0 0
3. 05/05/2017, 11h36 #3 BENNASR Expert confirmé Responsable comptable & financierInscrit enDécembre 2013Messages2 975Détails du profilInformations personnelles :Sexe : Localisation : TunisieInformations professionnelles :Activité : Responsable comptable & financierSecteur : FinanceInformations forums :Inscription : Décembre 2013Messages : 2 975

   Bonjour Pour moi j'utilise ce code pour enregistrer mon fichier excel en PDF sous un dossier qui s'appelle rapport mensuel à adapter pour ton cas :

   Code :

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

   12345678910111213

   Sub EnrPDF() Dim Ar(2) As String Ar(0) = Feuil1.Name Ar(1) = Feuil2.Name Ar(2) = Feuil3.Name Application.ScreenUpdating = False Sheets(Ar).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Rapport Mensuel " _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Application.ScreenUpdating = True End Sub

   BONNE CONTINUATION

   Répondre avec citation 0 0
4. 05/05/2017, 11h43 #4 riaolle Membre Expert IngénieurInscrit enOctobre 2016Messages1 706Détails du profilInformations personnelles :Sexe : Âge : 31Localisation : France, Indre et Loire (Centre)Informations professionnelles :Activité : IngénieurSecteur : IndustrieInformations forums :Inscription : Octobre 2016Messages : 1 706

   Bonjour, Je pense que tu t'emmêles les pattes avec les feuilles auxquelles tu fais référence. Que veux-tu faire avec :

   Code :

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

   123	With Worksheets([C4].Value) .... .Range([D4].Value) End With

   Là, tu regardes dans la feuille dont le nom est la valeur de la cellule C4 et tu veux y utiliser la cellule dont le nom est la valeur de la cellule D4. Est-ce bien cela? As-tu nommé des cellules? Est-ce que tu veux pas plutôt récupérer la valeur de la cellule D4? En plus de cela, il faudrait enlever le point devant, non? Tu veux récupérer la valeur de la cellule D4 de la feuille Active, pas de la feuille à exporter, non?

   Code :

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

   1234567891011

   Sub Export_PDF() Dim fichier As String 'adaptez le nom de la feuille With Worksheets(Range("C4").Value) fichier = "Saint etienne rouvray_" & Range("D4").Value & ".pdf" 'pensez a ecrire le chemin Chemin = "E:\Saint Etienne du rouvray " & "\" & fichier .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With End Sub

   Répondre avec citation 0 0
5. 05/05/2017, 12h25 #5 Maverik76 Membre régulier ÉtudiantInscrit enJuin 2014Messages7Détails du profilInformations personnelles :Sexe : Âge : 36Localisation : France, Seine Maritime (Haute Normandie)Informations professionnelles :Activité : ÉtudiantInformations forums :Inscription : Juin 2014Messages : 7

   En fait ce que ma macro sélectionne la feuille dont l’identifiant est en C4 et qu’elle enregistre cette feuille avec le contenu de la cellule D4 pour avoir un nom de fichier comme ceci : « nomcommune_test » dans le cas présent et que cela soit enregistrer en pdf. Et pour le nom je sais pas ce qui est plus simple : utiliser la cellule D4 de la feuille active ou utiliser le nom de la feuille sélectionnée en C4 Je vais essayer de réaliser une autre macro en fonction de vos réponses ^^ et je reviendrais vers vous quand cela sera fini (que la macro fonctionne ou pas )

   Répondre avec citation 0 0

+ Répondre à la discussion

Actualités

FAQs OFFICE

TUTORIELS OFFICE

LIVRES OFFICE

SOURCES VBA

OFFICE 2010

• 
• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• [XL-2007] VBA-Enregistrer Feuilles au format PDF

« Discussion précédente | Discussion suivante »

Discussions similaires

1. Ouvrir, concaténer et enregistrer des pdf Par giaco dans le forum C++Builder Réponses: 11 Dernier message: 03/05/2007, 13h07
2. [FPDF] problème de titre avec fpdf et enregistrement du pdf créé Par tiger63 dans le forum Bibliothèques et frameworks Réponses: 1 Dernier message: 17/04/2007, 21h04
3. [ezPDF] Enregistrer mon .pdf sur le server Par lagag dans le forum Bibliothèques et frameworks Réponses: 1 Dernier message: 04/10/2006, 11h41
4. [SGBD] FPDF+enregistrer le pdf généré dans BDD MySQL Par Flushovsky dans le forum SQL Procédural Réponses: 3 Dernier message: 29/11/2005, 17h22

Partager

Partager

• 
• 
• 
• 
• 
• 
• 
• 

• Nous contacter
• Developpez.com
• Haut de page