Bonjour, Si BPDir est une variable contenant le nom complet du dossier à créer, en utilisant l'instruction MkDir, ça donne : MkDir BPDir
Une méthode parmi d'autres...
A+
V.
-----Message d'origine----- Bonjour,
Sauriez-vous comment créer des dossiers dans l'explorateur depuis une macro
excel ?
Merci d'avance
.
Daniel.j
Une autre façon:
Sub CreateFolder() Dim fso ' As Scripting.FileSystemObject Dim fd ' As Scripting.Folder Dim sFolderName ' As String ' Initialisation du nom du dossier sFolderName = "C:NewDossier" Set fso = CreateObject("Scripting.FileSystemObject") ' Vérifier que le dossier à créer n'existe pas If Not fso.FolderExists(sFolderName) Then ' Créer le dossier. Set fd = fso.CreateFolder(sFolderName) MsgBox "Le dossier " & sFolderName & " a été créé" Else MsgBox "Le dossier " & sFolderName & " existe déjà!" End If End Sub Ajouter une référence à "Microsoft Scripting Runtime" depuis le menu Projet à Références de l'IDE Visual Basic. -- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Yann BARBARAY" a écrit dans le message de news: bovifd$cof$ | Bonjour, | | Sauriez-vous comment créer des dossiers dans l'explorateur depuis une macro | excel ? | | Merci d'avance | |
Une autre façon:
Sub CreateFolder()
Dim fso ' As Scripting.FileSystemObject
Dim fd ' As Scripting.Folder
Dim sFolderName ' As String
' Initialisation du nom du dossier
sFolderName = "C:NewDossier"
Set fso = CreateObject("Scripting.FileSystemObject")
' Vérifier que le dossier à créer n'existe pas
If Not fso.FolderExists(sFolderName) Then
' Créer le dossier.
Set fd = fso.CreateFolder(sFolderName)
MsgBox "Le dossier " & sFolderName & " a été créé"
Else
MsgBox "Le dossier " & sFolderName & " existe déjà!"
End If
End Sub
Ajouter une référence à "Microsoft Scripting Runtime" depuis le menu Projet à Références de l'IDE
Visual Basic.
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"Yann BARBARAY" <ybarbaray@mmcmarketing.net> a écrit dans le message de news:
bovifd$cof$1@news-reader5.wanadoo.fr...
| Bonjour,
|
| Sauriez-vous comment créer des dossiers dans l'explorateur depuis une macro
| excel ?
|
| Merci d'avance
|
|
Sub CreateFolder() Dim fso ' As Scripting.FileSystemObject Dim fd ' As Scripting.Folder Dim sFolderName ' As String ' Initialisation du nom du dossier sFolderName = "C:NewDossier" Set fso = CreateObject("Scripting.FileSystemObject") ' Vérifier que le dossier à créer n'existe pas If Not fso.FolderExists(sFolderName) Then ' Créer le dossier. Set fd = fso.CreateFolder(sFolderName) MsgBox "Le dossier " & sFolderName & " a été créé" Else MsgBox "Le dossier " & sFolderName & " existe déjà!" End If End Sub Ajouter une référence à "Microsoft Scripting Runtime" depuis le menu Projet à Références de l'IDE Visual Basic. -- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Yann BARBARAY" a écrit dans le message de news: bovifd$cof$ | Bonjour, | | Sauriez-vous comment créer des dossiers dans l'explorateur depuis une macro | excel ? | | Merci d'avance | |
