Créer un dossier

Résolu
Signaler
Messages postés
91
Date d'inscription
mardi 8 avril 2003
Statut
Membre
Dernière intervention
15 mars 2013
-
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
-
Bonjour,
j'ai une petite application sous excel  qui sauvegarde fichier Excel dans un dossier que j'ai nommé Sauvegarde Valorisation

Cette appli doit être distribuée à plusieur de mes collègues je souhaite donc créer automatiquement au lancement de l'appli (si il n'existe pas ) ce dossier sous le répertoire D:\ mes documents\

Donc deux questions:

Comment vérifier si il existe et Bypassé la procédure
le créer si il existe

Merci de vos réponses et bonne journée

7 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Et avec ceci?
If Dir("C:\TOTO", vbDirectory) = vbNullString Then MkDir ( "C:\TOTO" )

@+: =89254 Ju£i?n
Pensez: Réponse acceptée
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Salut,

Comment vérifier si il existe et Bypassé la procédure >>>>> Fonction Dir()
le créer si il existe >>>>> l'inverse non?

Avec une recherche sur le site ou sur www.codyx.org la réponse en deux secondes!

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut,

Regarde : MkDir

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Aussi oui!

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut:

MkDir " D:\ mes documents"

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
91
Date d'inscription
mardi 8 avril 2003
Statut
Membre
Dernière intervention
15 mars 2013

Merci à tous,
cela fonctionne parfaitement avec la ligne de code de julien
bonne journée à tous
Jfrancois
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Laisse tomber le "D:" et remplace par ThisWorkbook.Path
L'utilisateur n'aura peut-être pas toujours de D: , mais il aura toujours ThisWorkbook.Path qui est le répertoire où est ton application...

MPi