Création de dossier et sous dossier

[Windfly]

Bonjour le forum,

Vous êtes tellement efficace que je me tourne encore vers vous pour mon nouveau problème.

Dans une cellule A1 j'ai une référence '10', dans A2 une référence 'X00' et dans A3 j'ai les 2 autres cellules concaténés soit '10X00'.

Au moment de sauvegarder mon fichier je voudrais qu'il me créé un 1er dossier qui s'appelle '10' et dans celui ci un sous dossier qui s'appelle '10X00'. Pourquoi? Parce que je voudrais que si il y a un changement d'indice (exemple X01) il créé un autre sous dossier '10X01' dans le dossier '10'.

Pour cela, j'ai essayé d'écrire le code suivant:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Chemin = Sheets('accueil').Range('H6')
Chemin1 = Sheets('Data2').Range('B1')

If ThisWorkbook.Name = Worksheets('Data2').Range('B1') & '.xls' Then
ThisWorkbook.Save
Else
fs.createfolder ('W😛ièces\\' & Chemin & '\\' & Chemin1)

ChDir 'W😛ièces\\' & Chemin & '\\' & Chemin1
ActiveWorkbook.SaveAs Filename:='W😛ièces\\' & Chemin & '\\' & Chemin1 & '\\' & Worksheets('Data2').Range('B1') & '.xls'
End If
End Sub


Mon problème est que lorsque je ferme le fichier, il me met le message 'Objet Requis'...

Auriez vous une solution à mon problème?

Merci beaucoup d'avance

Cordialement

Guillaume

 

[ERIC S]

Bonjour

voici la syntaxe que j'utilise

Set fs = CreateObject('scripting.filesystemobject')
If fs.folderexists(ThisWorkbook.Path & '\\ARTIS') = False Then
MkDir ThisWorkbook.Path & '\\ARTIS'
MsgBox 'Le sous-répertoire ARTIS a été créé, il faut y mettre le fichier d'extraction Artis Merci'
End If


A+

 

[Windfly]

Bonjour Eric,

Pouvez vous me décrire un peu votre syntaxe svp?
Je ne comprends pas grand chose, ni ce qu'elle fait concretement.

Merci d'avance

Guillaume

 

[ERIC S]

re

infos trouvées dans l'aide pour la première ligne qui définit l'objet fs

ensuite vérification de l'existence du sous répertoire (thisworkbook.path est l erépertoire du fichier qui contient cette macro et 'Artis' mon sous répertoire (à noter qu'il faut un backslash devant Artis mais ne passe pas sur le forum
si le sous répertoire n'existe pas on le crée par mkdir (make directory)

A+