W
Windfly
Guest
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 ('Wièces\\' & Chemin & '\\' & Chemin1)
ChDir 'Wièces\\' & Chemin & '\\' & Chemin1
ActiveWorkbook.SaveAs Filename:='Wiè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
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 ('Wièces\\' & Chemin & '\\' & Chemin1)
ChDir 'Wièces\\' & Chemin & '\\' & Chemin1
ActiveWorkbook.SaveAs Filename:='Wiè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