Enregistrement dans un dossier selon variables

  • Initiateur de la discussion Initiateur de la discussion Guy_L
  • Date de début Date de début

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 !

Guy_L

XLDnaute Occasionnel
Bonjour,
J'ai créé la macro suivante:
Code:
   Dim eq As String * 5                        'pour le nom du fichier
   Dim an As String * 4                        'pour l'année
    eq = Range("J8")                             'capture du nom de fichier
'   annee = Range("J6")                        ' capture de l'année
    dossier = "\\[chemin]\" & Range("J6").Value
    MkDir dossier
    ActiveWorkbook.SaveAs Filename":=\\[chemin]\" & dossier & "\AB_" & (eq)
Ecrite comme ça, il y a un bug dans la dernière ligne
Alors que si je l'écris comme suit, ça marche (mais ça ne m'arrange pas car je voulias automatiser la création d'un dossier par année.
Code:
    Dim eq As String * 5                        'pour le nom du fichier
   Dim an As String * 4                        'pour l'année
    eq = Range("J8")                             'capture du nom de fichier
'   annee = Range("J6")                        ' capture de l'année
    dossier = "\\[chemin]\" & Range("J6").Value
    MkDir dossier
    ActiveWorkbook.SaveAs Filename:="\\[chemin]\" & "2013" & "\AB_" & (eq)
est-ce un problème de syntaxe ?

PS: que dois-je rajouter pour éviter qu'il n'y ait un conflit si le dossier "2013" existe déjà ?
 
Dernière édition:
Re : Enregistrement dans un dossier selon variables

Bonjour,

peut être comme suit :
Code:
annee = Range("J6")                        ' capture de l'année
    dossier = "\\[chemin]\" & Range("J6").Value
    MkDir dossier
    ActiveWorkbook.SaveAs Filename:="\\[chemin]\" & annee  & "\AB_" & eq

bon après midi
@+
 
- 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

Réponses
3
Affichages
672
Réponses
2
Affichages
511
Retour