XL 2019 Message d'erreur variable non définie

AIXELS

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

  • Message d'erreur.jpg
    Message d'erreur.jpg
    65.2 KB · Affichages: 24
  • Sauvegarde sous PDF.xlsm
    22.5 KB · Affichages: 5

M12

XLDnaute Accro
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
 

AIXELS

XLDnaute Occasionnel
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: 16
  • Message d'erreur2.jpg
    Message d'erreur2.jpg
    26.5 KB · Affichages: 15

AIXELS

XLDnaute Occasionnel
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:

AIXELS

XLDnaute Occasionnel
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.
 

Discussions similaires

Réponses
3
Affichages
473

Statistiques des forums

Discussions
311 720
Messages
2 081 923
Membres
101 840
dernier inscrit
SamynoT