Salutations à tous ! Actuellement, je rencontre un problème avec un code VBA qui a pour objectif d'exporter une plage d'impression au format PDF. Alors que cela fonctionne parfaitement sur Excel 2010, cela semble poser problème sur Excel 2007.
Je vous remercie par avance pour votre réponse.
Sub ExporterFeuillePDF()
Dim CheminFichier As String
Dim NomFichier As String
Dim Feuille As Worksheet
Dim Plage As Range
Dim DialogueDossier As Object
' Définir la feuille à exporter
Set Feuille = ThisWorkbook.Sheets("301BIS")
' Définir la plage à exporter
Set Plage = Feuille.Range("A4:Z227")
' Ouvrir la boîte de dialogue de sélection de dossier
Set DialogueDossier = Application.FileDialog(msoFileDialogFolderPicker)
DialogueDossier.Title = "Sélectionnez un dossier pour sauvegarder le fichier PDF"
' Vérifier si l'utilisateur a sélectionné un dossier
If DialogueDossier.Show = -1 Then
CheminFichier = DialogueDossier.SelectedItems(1)
' Demander le nom du fichier
NomFichier = InputBox("Entrez le nom du fichier PDF :")
' Vérifier si le nom du fichier est spécifié
If NomFichier <> "" Then
' Ajouter l'extension .pdf si nécessaire
If Right(NomFichier, 4) <> ".pdf" Then
NomFichier = NomFichier & ".pdf"
End If
' Exporter la feuille vers un fichier PDF
Plage.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminFichier & "\" & NomFichier
MsgBox "La feuille a été exportée en PDF avec succès.", vbInformation
Else
MsgBox "Le nom du fichier n'a pas été spécifié.", vbExclamation
End If
End If
End Sub