Création de dossiers par macro, avec vérif si existant.

[800vfr76]

Bonjour à tous,
J'ai cette macro pour créer un nouveau dossier, et je souhaiterais que si le dossier existe déjà que la macro ne s'exécute pas.

Sub nouvelleannée()

Dim Fso As Object, Source As String, Destination As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Source = Sheets("Données2").Range("A90") & "\Modèle\Année"
Destination = Sheets("Données2").Range("A90") & "\Année " & Range("A5").Value + 1
Fso.CopyFolder Source, Destination, False
MsgBox ("Un nouveau dossier a été créé pour l'année " & Range("A5") + 1), vbInformation, Sheets("Données2").Range("A92")

End Sub

Sheets("Données2").Range("A90") est égal à mon fichier Workbook.Path
"Année " & Range("A5").Value + 1 est égal l'année en cours + 1

Que doit-on ajouter et ou pour résoudre mon problème.

Merci à vous pour suggestions.

 

[Pierrot93]

Re : Création de dossiers par macro, avec vérif si existant.

Bonjour,

regarde peut être ceci :

 Destination = Sheets("Données2").Range("A90") & "\Année " & Range("A5").Value + 1
 If Dir(Destination, vbDirectory) <> "" Then Exit Sub

bonne journée
@+

 

[800vfr76]

Re : Création de dossiers par macro, avec vérif si existant.

RE,

Merci Pierrot93 ça marche nickel.