erreur 2003 variable

[jmcr]

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

 

[Patrice33740]

Bonjour,

L'export au format pdf n'existe pas dans Excel 2003.
Tu peux installer une pseudo imprimante (comme PdfCréator) qui permet de créer des pdf avec n'importe quel logiciel, via la commande imprimer (en VBA PrintOut).

 

[jmcr]

bonsoir PATRICE merci pour cette précisions ,je comprend j ai perdus deux jour pour rien
enfin merci beaucoup du renseignement