XL 2019 Message d'erreur variable non définie

[AIXELS]

Bonjour à tous les amis du Forum. 🖐
Je reviens vers vous après une très longue absence.
Mon problème est le suivant :
Je vous ai joint les fichiers. Le but de ma macro
est de sauvegarder la feuille active "DEVIS" sous PDF avec date du jour
valeurs des cellules "E7 + F7"
J'ai un message d'erreur concernant une variable non définie.
Comme vous pouvez le voir, les variables sont déclarées.
Mes anciennes macros fonctionnent sans problème.
Merci pour votre aide.
Bien cordialement

 

[Bernard_XLD]

Bonjour AIXELS, le forum

Comme vous pouvez le voir, les variables sont déclarées.

Ben non, justement !
C'est à cela que sert option explicit dans un module !

Cordialement, @+

 

[M12]

Bonjour,
place comme ceci, et Range ce n'est pas Rangee

Sub sauvegarde_en_PDF()
    Dim NomDossier$
   Dim NomFichier$

    'Chemin Dossier déclaré en variable
    NomDossier = "C:\SOS\SAUVEGARDES\"
  
        
    'Désactiver les messages d'alertes
    Application.DisplayAlerts = False
  
  
    'On créé le nom du fichier de sauvegarde (Date + Nom)
    NomFichier = Format(Now + 0 / 24, "dd-mmm-yyyy hh""h""mm") & Range("E7") & "-" & Range("F7")

  

    Application.DisplayAlerts = False

  
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    NomDossier & NomFichier, Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
                                    OpenAfterPublish:=False
    Windows("Impression pdf V3.xlsm").Activate
    Range("I7").Select
    ActiveWindow.Close
  

End Sub

 

[AIXELS]

Bonjour @Bernard_XLD et @M12
Merci pour vos réponses respectives.
@M12, j'ai un message d'erreur, je te fais suivre le message.
La macro s'arrête sur la section en jaune.
J'ai enregistré la macro pour la syntaxe, j'ai copié cette partie dans ma macro.
Merci pour ton aide.
Bien cordialement.

 

[M12]

Re,
Il y a quoi dans E7 et F7

 

[AIXELS]

Re,
Dans le fichier Excel, comme tu le voir, il y'a en
E7 : la marque du véhicule.
F7 : le numéro d'immatriculation.
J'ai supprimé

   Windows("Impression pdf V3.xlsm").Activate

Je ne sais pas à quoi ça correspond, ça fonctionne. Copié bêtement sur un exemple.
Bien cordialement.

 

[vgendron]

Bonjour
deux pistes
manque l'extension pour le fichier?
le répertoire de sauvegarde n'existe pas.

 

[AIXELS]

Bonjour
deux pistes
manque l'extension pour le fichier?
le répertoire de sauvegarde n'existe pas.

Bonjour @vgendron.
Merci pour ta réponse.
Tu as trouvé, le répertoire n'existe pas.
J'avais adapté ma macro qui se trouvait sur D: pour l'envoyer et sur C: je n'ai pas créé le s/répertoire "SAUVEGARDES"
Merci à tous pour votre aide et au temps que vous avez consacré à ma requête.
Bien cordialement.