XL 2019 Message d'erreur variable non définie

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

AIXELS

XLDnaute Occasionnel
Supporter XLD
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
 

Pièces jointes

Bonjour,
place comme ceci, et Range ce n'est pas Rangee
VB:
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
 
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.
 

Pièces jointes

  • Bloque sur cette section.jpg
    Bloque sur cette section.jpg
    62.1 KB · Affichages: 18
  • Message d'erreur2.jpg
    Message d'erreur2.jpg
    26.5 KB · Affichages: 16
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é

VB:
   Windows("Impression pdf V3.xlsm").Activate
Je ne sais pas à quoi ça correspond, ça fonctionne. Copié bêtement sur un exemple.
Bien cordialement.
 
Dernière édition:
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Exit sub save As
Réponses
3
Affichages
714
Retour