Enregistrement zone en pdf récalcitrante

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.

Bonjour,

essaie ainsi :

Sub EnregistrementPDF()
'Définition 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").Value & " VS " & Range("X7").Value & ".pdf"
    With ActiveSheet
        'Fixe la plage à enregistrer
        .PageSetup.PrintArea = "$L$2:$AC$51"
        'Enregistre la plage en PDF
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=Chemin & Nom, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
    End With
End Sub

Bonsoir Jean-Eric,

Merci pour ta réponse mais même résultat, fenêtre d'erreur idem et texte surligné en jaune au débogage, celui-là :

.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=Chemin & Nom, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Bonjour,

Quelles sont les valeurs en O7 et X7 ?

Cdlt.

En O7 et X7 j'ai du texte.

Ce qui est étonnant, c'est quand je fais la manip "à la main" c'est à dire en zonant la plage de cellules et enregistrer sous et pdf, cela fonctionne.

Re,

Cela fonctionne en enregistrant sous Dropbox ?

Cdlt.

oui

Bonjour à tous,

Je me suis aperçu que sur le poste sur lequel les macros ne fonctionnaient pas, je n'avais pas l'extension pdf pour enregistrer sous !! comme ce que j'ai là :

les 3 dernières extensions sont absentes (PDF; Document XPS; Feuille de calcul OpenDocument) !!!

Il faudrait que j'installe le plugin SaveAsPDFandXPS, mais il n'est plus dispo sur le centre de téléchargement de microsoft.

J'ai pu le trouver sur 2 sites dont 01net...mais puis-je faire confiance à cette exe ?? !!

Qu'en pensez-vous ?

Avez-vous une autre source pour ce plugin ?

Merci