Sujet Précédent Sujet Suivant

Creer un dossier ss excel

Résolu/Fermé
Thorliaf Messages postés 23 Date d'inscription dimanche 13 janvier 2008 Statut Membre Dernière intervention 23 mars 2010 - 12 nov. 2008 à 19:02
Thorliaf Messages postés 23 Date d'inscription dimanche 13 janvier 2008 Statut Membre Dernière intervention 23 mars 2010 - 13 nov. 2008 à 00:40
Bonjour,

Puis-je sous Excel, via une procedure VBA, créer un nouveau dossier dans "mes documents" ?
Le top serait que ce nouveau dossier porte le nom d'une variable public mise a jour au lancement d'une autre procédure déjà effectuée.
Et allez, soyons fou ... vérifier que ce nouveau dossier n'existe pas déjà ...

Exemple :

ActiveWorkbook.SaveAs Filename:="\\Sslep01\Users\oliviera\Mes documents\Courbes\" & NomClient & NumAffaire & TypeEchant, FileFormat:=xlWorkbookDefault

je voudrais que la variable "NomClient" serve à créer ce dossier et s'il existe que le fichier "NomClient & NumAffaire & TypeEchant" soit enregistré dans ce dossier.

Merci beaucoup pour vos suggestions ...

2 réponses

Réponse 1 / 2
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 244
12 nov. 2008 à 19:18
bonjour

mkdir "Mon_chemin_de_depart" & "\" & mavariable

ca devrait le faire
0
Réponse 2 / 2
Thorliaf Messages postés 23 Date d'inscription dimanche 13 janvier 2008 Statut Membre Dernière intervention 23 mars 2010 1
13 nov. 2008 à 00:40
Decidement ... merci encore mon cher Wilfried.
Ca marche impeccable et pour ceux que ca interresse je rajoute ci dessous une petite procedure qui liste tout les dossiers contenus dans un autre fichier afin de verifier si le dossier à créer n'existe pas :

Sub essais2()
Dim NomClient
Dim MonChemin
Dim MonDossier

NomClient = "Client1"
MonChemin = "\\Users\xxx\Mes documents\"
MonDossier = Dir(MonChemin, vbDirectory)

Do While MonDossier <> ""
If MonDossier <> "." And MonDossier <> ".." Then

If (GetAttr(MonChemin & MonDossier) _
And vbDirectory) = vbDirectory Then
Debug.Print MonDossier
End If
End If
MonDossier = Dir
If MonDossier= NomClient Then
ActiveWorkbook.SaveAs Filename:=MonChemin & MonDossier & "\" & NomClient & NumAffaire & TypeEchant, FileFormat:=xlWorkbookDefault
Exit Sub
End If

MkDir MonChemin & NomClient
MonChemin = CheminAcces & NomClient & "\"
ActiveWorkbook.SaveAs Filename:=CheminAcces & NomClient & NumAffaire & TypeEchant, FileFormat:=xlWorkbookDefault

Loop

End Sub
0