Excel Macro - Enregistrer feuilles Excel en fichiers PDF

mayoniron Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,

J'ai un fichier Excel contenant plusieurs onglets (66 au total). Je souhaiterais enregistrer chacun de ces onglets en fichier PDF 8un fichier PDF par feuille).

Je ne suis pas une experte en macro mais j'ai celle ci-dessous qui fonctionne parfaitement pour un autre de mes fichiers:

For i = 1 To Sheets.Count
Sheets(i).Select
ChDir "C:\mesdocuments"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\mesdocuments\feuille_" & i & ".pdf"
Next i


Cependant, elle ne fonctionne pas dans le fichier que je souhaite convertir maintenant.
Lorsque je debug, l'erruer se situe sur la ligne:

Sheets(i).Select

Je ne comprend pas d'où vient l'erreur....
Quelqu'un pourrait-il m'éclairer sur l'erreur?

Merci d'avance :-) :-)

Cordialement,
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Voilà un exemple à adapter:

http://www.cjoint.com/c/FEupRUx0dvQ

@+ Le Pivert
0