Creer un dossier ss excel

Résolu
Thorliaf -  
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 Contributeur
    bonjour

    mkdir "Mon_chemin_de_depart" & "\" & mavariable

    ca devrait le faire
    0
    1. Thorliaf Auteur
      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