crer des repertoires avec VBA

  • Initiateur de la discussion Philippe
  • Date de début
P

Philippe

Guest
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@

Guest
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@
 

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 754
Membres
101 812
dernier inscrit
trufu