Bonsoir,
J'ai le code suivant qui fonctionne très bien sur un pc mais qui bogue sur un autre pc en m'affichant une fenêtre d'erreur !! ??
Quelqu'un pourrait me dire pourquoi ?
Le code:
Sub EnregistrementPDF()
'Definition des variables
Dim Chemin As String
Dim Nom As String
'Fixe le chemin d'enregistrement
Chemin = "C:\Users\alain\Dropbox\Perso\RCSP XV\Les feuilles de match des rencontres\"
'Fixe le nom du fichier en récupérant la valeur des cellules des équipes
Nom = Range("O7") & " VS " & Range("X7").Value
'Fixe la plage à enregistrer
ActiveSheet.PageSetup.PrintArea = "$L$2:$AC$51"
'Enregistre la plage en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Chemin & Nom, _
Quality:=xlQualityMaximum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Le message d'erreur :
erreur d'execution '5':
Argument ou appel de procédure incorrect
De "ActiveSheet.PageSetup... à False" surligné en jaune
Merci d'avance pour vos lumières.