création de sous-répertoire

[olivepao]

Bonjour le forum 🙂

Je désire sauvegarder mes fichiers dans un sous-répertoire en fonction de la date.

dans ma marco de sauvegarde, je défini les variables suivantes .

Dim

Repertoire As String, Annee As String, Mois As String

Je charge ensuite les variables Annee et Mois

Annee = Year(Now)
Mois = Month(Now)

Je défini mon répertoire de sauvegarde et le sous-répertoire de la manière suivante :

Repertoire = "D:\Sauvegarde\" & Annee & "-" & Mois

Pour finir je créé mon répertoire :

    If Dir(Repertoire, vbDirectory + vbHidden) = "" Then 
    
    MkDir Repertoire
    
    End If

Et badaboum, je récolte une erreur 76

Si je sauvegarde simplement sur D:\Sauvegarde\, il n'y a pas de problème.

Le répertoire Sauvegarde se crée et le fichier xls également.


Le problème provient de la création du sous-répertoire.

Le forum a-t-il une idée géniale ?

D'avance merci.

 

[skoobi]

Re : création de sous-répertoire

Bonjour,

il faut créer le répertoire sauvegarde ensuite le sous-répertoire:

If Dir("D:\Sauvegarde", vbDirectory) = "" Then MkDir "D:\Sauvegarde\"
If Dir(Repertoire, vbDirectory + vbHidden) = "" Then MkDir Repertoire

 

[olivepao]

Re : création de sous-répertoire

Salut skoobi 🙂

Merci pour ton post.

Je viens de tester, tout fonctionne.

@++