Macro

Bonjour à toutes et tous,

Comment écrire une macro pour enregistrer en PDF la feuille active d'un fichier excel sur le bureau d'un ordinateur quelque soit cet ordi

(Je le change souvent de poste de travail)

Merci de votre aide

Hello, 8)

Pour enregistrer sur le bureau quelque soit l'ordinateur, tu peux utiliser : Environ("userprofile") qui ressort l'emplacement chemin du dossier utilisateur où se trouve le dossier bureau :

CHEMIN = Environ("userprofile") & "\desktop\"

Et le code d'exportation rapidement bricolé avec l'enregistreur de macro :

    Dim CHEMIN As String
    CHEMIN = Environ("userprofile") & "\desktop\"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        CHEMIN & "Classeur1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
        OpenAfterPublish:=False
        'la partie : From:=1, To:=1 renvoi la sélection de page à exporter en pdf

tu peux mettre une variable au niveau du nom classeur1 mais bien garder le .pdf

Merci beaucoup