crer des repertoires avec VBA

[Philippe]

Bonjour a tous

lorsque j'enregistre un fichier a l'aide d'une macro j' ai une erreur

si le chemin n'est pas correct.

Je souhaiterai faire la procedure suivante :

Message d'erreur (chemin incorrect )
TEXTBOX, Nouveau chemin
Creation du nouveau chemin

est ce possible si oui comment

Merci a tous
A++++

 

[@Christophe@]

Bonsoir Philippe

Tu peux travailler avec le code suivant:

Sub Cree()
Dim Rep As String

On Error GoTo Nouveau

.....

Nouveau:
Rep = InputBox("Introduire le nouveau répertoire", "Crée répertoire")
MkDir Rep 'Crée nouveau répertoire dans le répertoire par défaut
'MkDir "C:\Mes Document\" & Rep 'Crée dans un répertoire spécifique
End Sub


Voila, j'espère que cela t'aidera


Bonne soirée

@Christophe@