erreur 2003 variable

  • Initiateur de la discussion Initiateur de la discussion jmcr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jmcr

XLDnaute Occasionnel
bonjour le forum
voila mon petit soucis je tente de faire un macro pour sauvé mes divers feuille DE MON DOSSIER dans un sauvegarde en PDF j ai pioché a droite et a gauche quelque bout de macro pour en faire mienne
mais voila deux jours que je cherche la solution je but toujours sur la même ligne je pense que mon variable est pas bon pour mon Excel 2003
voila le code en question je le souligne en bleu HORREUR (erreur )
je voudrais comprendre ma stupidité svp ,et comment avoir la différence pour Excel 2003
avec tout ma gratitude et mon amitié
JMCR

Sub VersPDF()
Dim CheminFichier, Onglet, NomCompletFichier
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Sélectionner le dossier où sauvegarder chaque onglet : "
If .Show <> False Then
CheminFichier = .SelectedItems(1)
CheminFichier = CheminFichier & IIf(Right(CheminFichier, 1) = "\", "", "\")

Application.ScreenUpdating = False
For Each Onglet In Sheets
NomCompletFichier = CheminFichier & Onglet.Name
Onglet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomCompletFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Next Onglet
MsgBox "La ou les feuilles ont été sauvegardée(s) dans le dossier : " & vbLf & vbLf & CheminFichier
Else
MsgBox "Pas de dossier de sauvegarde -> Echec !"
Exit Sub
End If
End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
515
Réponses
13
Affichages
573
Réponses
2
Affichages
587
Réponses
9
Affichages
588
Réponses
2
Affichages
884
Retour