Macro enregistrement onglet PDF
Marie7831
Messages postés
12
Statut
Membre
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
Bonjour,
N'ayant pas trouvé de réponses sur le forum, je me permets de créer un poste.
J'ai un fichier Excel avec 100 onglets correspondant à un document pour 100 villes différentes.
Je souhaiterais pouvoir enregistrer chaque onglet au format PDF en prenant en compte le nom de l'onglet(nom de la ville) et un petit texte avant "FE _ nom de la ville".
J'ai trouvé cette macro sauf qu'il y a un problème ! Lorsque que j'ouvre par exemple le PDF Toulon par exemple, le document à l'intérieur est celui de la ville suivante (et donc de l'onglet suivant) (Toulouse).
Avez-vous une idée d'où cela peut venir ? :) Je ne suis pas très douée en VBA, je bidouille toujours un peu, j'ai tenté plusieurs bidouillages mais ça ne fonctionne pas :)
Merciii par avance :)
Marie
Sub Macro1()
For i = 1 To Sheets.Count
Dim nomfeuille As String
nomfeuille = ActiveSheet.Name
Sheets(i).Select
ChDir "F:\Service Marketing\DOCUMENTS\TEST MACRO"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="F:\Service Marketing\DOCUMENTS\TEST MACRO\FE _ " & nomfeuille & ".pdf"
Next i
End Sub
N'ayant pas trouvé de réponses sur le forum, je me permets de créer un poste.
J'ai un fichier Excel avec 100 onglets correspondant à un document pour 100 villes différentes.
Je souhaiterais pouvoir enregistrer chaque onglet au format PDF en prenant en compte le nom de l'onglet(nom de la ville) et un petit texte avant "FE _ nom de la ville".
J'ai trouvé cette macro sauf qu'il y a un problème ! Lorsque que j'ouvre par exemple le PDF Toulon par exemple, le document à l'intérieur est celui de la ville suivante (et donc de l'onglet suivant) (Toulouse).
Avez-vous une idée d'où cela peut venir ? :) Je ne suis pas très douée en VBA, je bidouille toujours un peu, j'ai tenté plusieurs bidouillages mais ça ne fonctionne pas :)
Merciii par avance :)
Marie
Sub Macro1()
For i = 1 To Sheets.Count
Dim nomfeuille As String
nomfeuille = ActiveSheet.Name
Sheets(i).Select
ChDir "F:\Service Marketing\DOCUMENTS\TEST MACRO"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="F:\Service Marketing\DOCUMENTS\TEST MACRO\FE _ " & nomfeuille & ".pdf"
Next i
End Sub
A voir également:
- Macro enregistrement onglet PDF
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Rouvrir onglet fermé chrome - Guide
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
Merci pour votre réponse. Je viens de faire le test mais cela ne change rien, j'ai toujours un soucis de décalage, même si je me mets sur la première feuille au moment de lancer la macro.
Que puis-je essayer d'autres ? :)
Sheets(1) et Feuil1 n'est peut-être pas la meme chose. Quand vous ouvrez le VBA regardez la partie Feuil
exemple:
: "azerty"
Vous pouvez avoir des décalages entre Nom et Index
Rebonjour,
Malheureusement je ne trouve pas mon erreur... La Feuil1 est bien celle par laquelle il faut commencer.
Je ne suis pas vraiment douée en VBA ! lol
Devrait aller mieux:
Sub Macro1() Dim Sh As Worksheet Dim nomfeuille As String ChDir "F:\Service Marketing\DOCUMENTS\TEST MACRO" For Each Sh In Worksheets nomfeuille = Sh.Name Worksheets(nomfeuille).ExportAsFixedFormat Type:=xlTypePDF, Filename:="F:\Service Marketing\DOCUMENTS\TEST MACRO\FE _ " & nomfeuille & ".pdf" Next End SubBonne journée !