Bonjour,
J'ai créé la macro suivante:
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.
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à ?
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)
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)
PS: que dois-je rajouter pour éviter qu'il n'y ait un conflit si le dossier "2013" existe déjà ?
Dernière édition: