Microsoft 365 VBA : Création fichier via MkDir & enregistrement automatique

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Arnaud59000

XLDnaute Nouveau
Bonjour tout le monde !


Je reviens vers vous avec un nouveau problème :

Je souhaite enregistrer automatiquement mes onglets dans un nouveau fichier en fonction de la date actuelle. C'est c'est bon.

Cependant, quand je veux utiliser la fonction MkDir() pour créer mon fichier, la première fois cela fonctionne, mais à partir de la seconde j'obtiens une erreur de chemin (Erreur"75")

Voici mon code :



Sub CopieFeuilles()

Dim Monchemin As String
Dim MonDossier As String


Monchemin = "XXXXXXXXXX"
MonDossier = Format(Now(), " mmyyyy")


[c'est à partir de ici que les problèmes commencent]

'If CBool(PathFileExists(Monchemin + MonDossier)) Then
'If Dir("XXXXXXXXX + MonDossier, vbDirectory) <> "" Then
MsgBox ("ok")

Else

MkDir (Monchemin + MonDossier)

End If

For Each sh In ActiveWorkbook.Sheets
If Not sh.Name Like "*TCD*" And Not sh.Name Like "*ADM*" And Not sh.Name Like "*BDD*" Then


sh.Copy

ActiveWorkbook.SaveAs Monchemin + MonDossier + "\" & sh.Name & Format(Now(), " mmyyyy")
ActiveWorkbook.Close

End If
Next

End Sub


Merci d'avance pour votre aide.
 
Solution
Bonsoir Arnaud COGEZ,

Si le fichier contenant la macro est enregistré vous pouvez créer le sous-dossier comme ceci :
VB:
Monchemin = ThisWorkbook.Path & "\" 'dossier existant, à adapter
MonDossier = "XXXXXXXXXX" & Format(Now, " mmyyyy") 'nom du sous-dossier
If Dir(Monchemin & MonDossier, vbDirectory) = "" Then MkDir Monchemin & MonDossier
A+
Bonsoir Arnaud COGEZ,

Si le fichier contenant la macro est enregistré vous pouvez créer le sous-dossier comme ceci :
VB:
Monchemin = ThisWorkbook.Path & "\" 'dossier existant, à adapter
MonDossier = "XXXXXXXXXX" & Format(Now, " mmyyyy") 'nom du sous-dossier
If Dir(Monchemin & MonDossier, vbDirectory) = "" Then MkDir Monchemin & MonDossier
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
511
Réponses
6
Affichages
2 K
Réponses
17
Affichages
1 K
Retour