création répertoire via excel

[KIM]

Bonjour le forum,
Le code ci-dessous me sauvegarde le classeur dans un répertoire nommé LFEUIL du répertoire courant sans problème:
.....
Chemin = ActiveWorkbook.Path
....
ActiveWorkbook.SaveAs Filename:= _
Chemin & '\\' & 'LFEUIL' & '\\' & WS.Name & '-' & Format(Date, 'dd-mm-yyyy') & '.xls', FileFormat:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=False

Par contre, si le répertoire LFEUIL n'existe pas, il sort une erreur. comment inclure dans ce code, avant la sauvegarde, le test suivant: Si répertoire 'LFEUIL' n'existe pas dans le répertoire courant alors créer le répertoire 'LFEUIL' et executer la sauvegarde.

Merci d'avance de votre aide
Amicalement

 

[Hervé]

Bonjour Kim

peut etre comme ceci :

'nécessite l'activation de la référence micorsoft scripting runtime
Dim fs As New FileSystemObject
Dim chemin As String

chemin = 'C:\\\\\\\\Aherve\\\\\\\\macro\\\\\\\\toto'

'test presente du répertoire
If Not fs.FolderExists(chemin) Then
'si inexistant, crée le répertoire
fs.CreateFolder (chemin)
End If

pense à activer la référence indiquer dans le code.

salut

Message édité par: hervé, à: 20/06/2006 15:03

 

[KIM]

Re Hervé, JMPS, et le forum,
Merci pour la reponse rapide,
je n'ai pas trouvé comment activer la reference microsoft scripting car
J'ai toujours une erreur de définition de type pour la variable fs.
merci de votre aide
Amicalement
KIM

 

[Hervé]

re

et tu aura cet erreur tant que tu n'aura pas coché cette référence 🙂

dans VBE, menu outil, référence, recherche Miscrosoft scripting runtime et coche la case.

salut

 

[KIM]

Re hervé, JMPS, et le forum,
ça marche merci,
effectivement je ne pouvais pas voir les references dans le code car la macro s'est arrétée en erreur d'execution. Il a fallu réinitialisé l'exécution pour avoir accés au menu outils/references
@JMPS,
je suis intéressé pour savoir comment ça fonctionne chez toi sans que la référence en question soit cochée.
Merci encore
Amicalement
KIM

 

[Bernard_XLD]

Salut Kim, Hervé, Jmps

sinon à l'ancienne et sans références

Cordialement, A+

If Dir('C:\\Yeahou', vbDirectory) = '' Then MkDir 'C:\\Yeahou'