Comment créer un répertoire à partir du macro?

[Apollon16]

bonjour,

J'ai créé une macro avec un enregistrement automatique.

Je teste l'existant du répertoire d'enregistrement avant d'enregistrer.

Ma question comment faire pour créer automatique le répertoire avec ma macro si celui n'excite pas?

Merci d'avance pour vos conseil avisés

[Math]

Bonjour,

utilise MkDir pour créer un répertoire

Code: Tout sélectionner

MkDir "le nom du répertoire à créer"

bonne journée

[Mytå]

Salut le forum

Une façon de faire

Code: Tout sélectionner

Function RépertoireExiste(Chemin As String) As Boolean
On Error Resume Next
RépertoireExiste = GetAttr(Chemin) And vbDirectory
    If RépertoireExiste = True Then
        Exit Function
    Else
        MkDir (Chemin)
    End If
End Function


La macro appellante

Code: Tout sélectionner

Sub tester()
Call RépertoireExiste("c:\essai")
End Sub

Mytå

[Apollon16]

Merci à vous

Désolé de la réponse tardive cause de vacances.

Je testerais cette solution et vous tiendrai au courant a la fin des vacances.

@+

[Apollon16]

Bonjour,

De retour de vacances, j'ai essayé tous fonctionnent.

Merci encore pour votre aide.

Dans ma lancer, j'aimerais savoir s'il était possible que dans le chemin on puissent lui faire intégrer l'année.

Je m'explique j'aimmerais qu'excel me crait un chemin comme exemple si joint:

"C:\essai\2008\" pour l'année 2008 ou "c:\essai\2009\" pour 2009 etc, etc......

Encore merci pour cettte première réponse

@+

[Mytå]

salut le forum

Oui, tu peux en passant par deux étapes

Code: Tout sélectionner

Sub tester()
Call RépertoireExiste("c:\essai\")
Call RépertoireExiste("c:\essai\" & Year(Date))
End Sub


Mytå

[Apollon16]

Merci Myta,

C'est tout à fait ce que je cherchait.

Tous fonctionnent à la perfection.

@+