Bonjour,
Après avoir parcouru le forum et avoir essayer plusieurs code, je n'arrive toujours pas à réaliser mon export en PDF. Mon problème est que l'export fonction sur excel 2013 (version utilisé lors du codage). Mais il ne fonction pas avec excel 2007, cela me renvoi une erreur "424".
Je vous joint le code :
Sub Bouton7_Cliquer()
Dim sRep As String ' Répertoire de sauvegarde
Dim sFilename As String ' Nom du fichier
sRep = "D:\PAGODES LOCATION\Excel Baptiste\" ' Répertoire de sauvegarde (si non spécifié, répertoire actif par défaut)
sFilename = Range("E3") & "-" & Range("A8") & "." & "pdf" ' Nom du fichier
Range("A1:G47").Select.Activate
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sRep & sFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Range("I22").Select
Sheets("Suivi_des_factures").Select
End Sub
Merci par avance de votre aide .