Choix emplacement destination

Bonjour.

Je sollicite votre aide, j'utilise une macro qui me permet de créer un fichier pdf via un classeur excel.Se fichier est toujours enregisté dans le même emplacement de destination,j'aimerais si possible bien sur avoir le choix de son emplacement ,comme qu'en on fait un enregistrer sous dans excel.Je vous remercie de votre aide.

Bonsoir,

Pas de macro dans ton fichier.

étrange la pièce joint fonctionne,je me suis peut être mal exprimé (macro ou application)comment faire ?

Un fichier .xlsx ne peut contenir de macro. Il faut l'enregistrer (avec la macro) en .xlsm.

ok ,mais alors comment faut'il faire, comme ca ?je m'excuse je suis mauvais.....avec excel

Un fichier .xlsm conserve les macros qu'il contient... mais il faut d'abord les avoir mises dedans !

décidément je vais ressayer, merci de votre aide.

Comme ca ?

Essaie ceci :

Sub PDF()
    Dim LeNom As String, LaDate As String, LeRep
    LeNom = Range("B2").Value
    LaDate = Format(Date, "yyyy.mm.dd")
    LeNom = LeNom & " - " & LaDate & ".pdf"
    LeRep = Application.GetSaveAsFilename(LeNom, "PDF Files (*.pdf), *.pdf")
    If LeRep Then
        ActiveSheet.ExportAsFixedFormat xlTypePDF, LeRep
        MsgBox "Le fichier a bien été créé"
    End If
End Sub

Cordialement.

je dois remplacer copier coller le code dans le le fichier joint ?

Il serait préférable de placer le code dans un module standard, il y serait plus à sa place...

Et le raccorder à ton bouton...

NB- Fait deux petites retouches au code ci-dessus.

Vois le fichier.

"dans un module standard" un nouveau classeur?HELP

Je crois que tu as des bases plus qu'élémentaires à acquérir... !

OH que OUI

je ne m'en sort pas

Je t'ai retourné le classeur ! L'as-tu regardé ?

oui ,bien sur ,je l'ai ouvert un bon nombre de fois (7)c'est super j'ai le choix comme voulu de l'emplacement de destination mais lors de l'enregistrement il y a le message "debogage" je ne sais pas modifier le code pour le bon fonctionnement.encore merci.

Quel message ? Si tu as une erreur d'exécution il faut dire laquelle ? Et dans quelles circonstances elle se produit ?

erreur d’exécution 13

incompatibilité de type

If LeRep Then est en jaune

elle se produit l'ors de l'enrgistrement

Essaie en modifiant ainsi :

    If LeRep <> False Then