Bonsoir,
J'ai besoin de faire une boucle pour ouvrir les répertoires dates (exemple 01_01_2012; 03_01_2012) dans un chemin et qu'ils existent
J'ai essayé comme ça :
Je récupère la date via un formulaire dans les cellules A4, B4, et C4 de la feuille 1, la 2ème date est la date du jour
Sub Macro1()
'
' Macro1 Macro
Dim chemin As String
chemin = DIR(["Q:\TOTO\" & Sheets("feuil1").[A6] & "\], [vbDirectory as VbFileAttribute = vbnormal])
While chemin = ""
If Sheets("feuil1").Range("A4").Value <= 31 Then
Sheets("feuil1").Range("A4").Value = Range("A4").Value + 1
Format Range("A4") = dd
Else
If Sheets("feuil1").Range("B4").Value <= 12 Then
Sheets("feuil1").Range("B4").Value = Range("B4").Value + 1
Format Range("B4") = mm
Else: Sheets("feuil1").Range("C4").Value = Range("C4").Value + 1
End If
End If
Wend
If chemin <> "" Then
Workbooks.Open Filename:= _
"Q:\TOTO\" & Sheets("feuil1").[A6] & "\fichiertiti.xls"
Sheets("General").Select
End If
End Sub
mais cela ne fonctionne pas.
Je précise que dans les différents répertoire le nom du fichier est toujours le même "fichiertiti.xls".
Merci d'avance pour votre aide.
J'ai besoin de faire une boucle pour ouvrir les répertoires dates (exemple 01_01_2012; 03_01_2012) dans un chemin et qu'ils existent
J'ai essayé comme ça :
Je récupère la date via un formulaire dans les cellules A4, B4, et C4 de la feuille 1, la 2ème date est la date du jour
Sub Macro1()
'
' Macro1 Macro
Dim chemin As String
chemin = DIR(["Q:\TOTO\" & Sheets("feuil1").[A6] & "\], [vbDirectory as VbFileAttribute = vbnormal])
While chemin = ""
If Sheets("feuil1").Range("A4").Value <= 31 Then
Sheets("feuil1").Range("A4").Value = Range("A4").Value + 1
Format Range("A4") = dd
Else
If Sheets("feuil1").Range("B4").Value <= 12 Then
Sheets("feuil1").Range("B4").Value = Range("B4").Value + 1
Format Range("B4") = mm
Else: Sheets("feuil1").Range("C4").Value = Range("C4").Value + 1
End If
End If
Wend
If chemin <> "" Then
Workbooks.Open Filename:= _
"Q:\TOTO\" & Sheets("feuil1").[A6] & "\fichiertiti.xls"
Sheets("General").Select
End If
End Sub
mais cela ne fonctionne pas.
Je précise que dans les différents répertoire le nom du fichier est toujours le même "fichiertiti.xls".
Merci d'avance pour votre aide.