Crée nouveau dossier avec Mkdir

[Chasse]

Bonjour le forum

Pourriez vous m'aider à résoudre mon problème:
Tous les jours j’enregistre mon fichier par VBA sous format date « jeudi 19 mai », « vendredi 20 mai » Etc.
J’aimerais que au changement de mois un nouveau dossier ce crée « juin 2011 »
Et que les futurs fichiers de juin s’enregistre dans ce nouveau dossier

Sub EnregistrerSous()

Dim Mois1 As String, Mois2 As String
    	
Mois1 = Month(Sheets(Worksheets.Count - 1).Range("I1"))
Mois2 = Month(Sheets(Worksheets.Count - 2).Range("I1"))

G = Sheets(Worksheets.Count - 1).Range("I1").Value

    If Mois1 <> Mois2 Then
MkDir " H:\CTL\disposition\Planing Chauffeur\Année 2011\" & Format(G, "MMMM ")
ActiveWorkbook.SaveAs "H:\CTL\disposition\Planing Chauffeur\Année 2011\Mai\" & Format(G, "DDDD d mmm "), xlNormal

Else
ActiveWorkbook.SaveAs "H:\CTL\disposition\Planing Chauffeur\Année 2011\Mai\" & Format(G, "DDDD d mmm "), xlNormal


End Sub

J’arrive avec Mkdir crée le dossier mais je ne sais pas comment changer le chemin "H:\CTL\disposition\Planing Chauffeur\Année 2011\Mai\"


Merci d'avance pour vos réponses

 

[JNP]

Re : Crée nouveau dossier avec Mkdir

Bonsoir Chasse 🙂,
Peut-être tout simplement

ActiveWorkbook.SaveAs "H:\CTL\disposition\Planing Chauffeur\Année 2011\" & Format(G, "MMMM ") & "\" & Format(G, "DDDD d mmm "), xlNormal

Bonne soirée 😎

 

[Chasse]

Re : Crée nouveau dossier avec Mkdir

Bonjour JNP

Eh ouiii!! tout simplement

Pour le dossier année c’est je pense le même principe

Merci beaucoup et bonne soirée

 

[flyonets44]

Re : Crée nouveau dossier avec Mkdir

Bonsoir
tu peux mettre une condition pour créer automatiquement le chemin
if date > 40694 'le 31/05/2011 en vba, then
mkdir "ton nouveau chemin
end if
bonne soirée
Flyonets