Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Créer un répertoire

Créer un répertoire

4 réponses
Avatar
José Perez
Bonjour,
Quelqu'un pourrait il m'aider pour créer un dossier à l'aide d'une macro ?
Ce qui serait bien c'est la possibilité de choisir la destination du
dossier.
Merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
HD
Avec la fonction MkDir :


MkDir ("C:toto")

va créer le répertoire C:toto ...

--
@+
HD
Avatar
Jacky
Bonjour,
Ceci peut-être:
'----------
If Dir("d:toto", 16) = "" Then MkDir "d:toto"
'-------
Salutations
JJ

"José Perez" a écrit dans le message de
news:445af488$0$21211$
Bonjour,
Quelqu'un pourrait il m'aider pour créer un dossier à l'aide d'une macro ?
Ce qui serait bien c'est la possibilité de choisir la destination du
dossier.
Merci




Avatar
papou
Bonjour
En complément des réponses fournies, si tu veux le choix de la destination
tu peux t'inspirer de ceci :
Dim ChoixDossier As FileDialog
Dim DossierDepart, DossierACreer$
Set ChoixDossier = Application.FileDialog(msoFileDialogFolderPicker)
With ChoixDossier
If .Show = -1 Then
For Each it In .SelectedItems
DossierDepart = it
Next it
End If
End With

DossierACreer = Application.InputBox("Entrer le nom du dossier à créer dans
" & DossierDepart, "Nouveau dossier", , , , , , 2)
Select Case MsgBox("Confirmer création du dossier " & DossierACreer & vbLf &
"dans : " & DossierDepart, vbYesNo + vbQuestion, "Confirmer")
Case vbNo: Exit Sub
Case Else
On Error GoTo YaUnBug
MkDir DossierDepart & Application.PathSeparator & DossierACreer
MsgBox "Le nouveau dossier a bien été créé", vbInformation, "Opération
réussie"
End Select
Exit Sub

YaUnBug:
MsgBox "la procédure n'a pas pu aboutir" & vbLf & "vérifier que le nom du
nouveau dossier est correct", vbExclamation, "Erreur"


Cordialement
Pascal
"José Perez" a écrit dans le message de news:
445af488$0$21211$
Bonjour,
Quelqu'un pourrait il m'aider pour créer un dossier à l'aide d'une macro ?
Ce qui serait bien c'est la possibilité de choisir la destination du
dossier.
Merci



Avatar
Jacky
Bonjour Pascal

Qu'elle est la fonction de cette instruction, que je n'ai pas sur xl97 ??
Set ChoixDossier = Application.FileDialog(msoFileDialogFolderPicker)


Salutations
JJ

"papou" <cestpasbon@çanonplus> a écrit dans le message de
news:%
Bonjour
En complément des réponses fournies, si tu veux le choix de la destination
tu peux t'inspirer de ceci :
Dim ChoixDossier As FileDialog
Dim DossierDepart, DossierACreer$
Set ChoixDossier = Application.FileDialog(msoFileDialogFolderPicker)
With ChoixDossier
If .Show = -1 Then
For Each it In .SelectedItems
DossierDepart = it
Next it
End If
End With

DossierACreer = Application.InputBox("Entrer le nom du dossier à créer
dans

" & DossierDepart, "Nouveau dossier", , , , , , 2)
Select Case MsgBox("Confirmer création du dossier " & DossierACreer & vbLf
&

"dans : " & DossierDepart, vbYesNo + vbQuestion, "Confirmer")
Case vbNo: Exit Sub
Case Else
On Error GoTo YaUnBug
MkDir DossierDepart & Application.PathSeparator & DossierACreer
MsgBox "Le nouveau dossier a bien été créé", vbInformation, "Opération
réussie"
End Select
Exit Sub

YaUnBug:
MsgBox "la procédure n'a pas pu aboutir" & vbLf & "vérifier que le nom du
nouveau dossier est correct", vbExclamation, "Erreur"


Cordialement
Pascal
"José Perez" a écrit dans le message de news:
445af488$0$21211$
Bonjour,
Quelqu'un pourrait il m'aider pour créer un dossier à l'aide d'une macro
?


Ce qui serait bien c'est la possibilité de choisir la destination du
dossier.
Merci