Creer un dossier ss excel

Résolu
Thorliaf Messages postés 24 Statut Membre -  
Thorliaf Messages postés 24 Statut Membre -
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 ...
Configuration: Windows XP
Internet Explorer 7.0

2 réponses

  1.
    wilfried_42 Messages postés 912 Statut Contributeur 245
     
    bonjour

    mkdir "Mon_chemin_de_depart" & "\" & mavariable

    ca devrait le faire
    0
  2. Thorliaf Messages postés 24 Statut Membre 1
     
    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