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
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