J'ai besoin de votre aide...
Problème:Je suis sous Excel 2003 et je cherche via VBA à créer un
répertoire si l'utilisateur remplit OK sur une MSGBOX
J'ai donc fait un test sur mon répertoire:
If Dir(monrep, vbDirectory) = "" Then
MsgBox ("le répertoire n'est pas valide,")
*********************************
End If
Dans la ligne avec les ******* je voudrais que via une MSGBOX l'utilisateur
ait le choix de créer ou non le répertoire.Si il appuie sur OK, on crée le
répertoir monrep (mais comment, je ne sais pas) si non = exit sub.
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
jeanmarcnoury
On 14 jan, 14:55, PJ wrote:
Bonjour,
J'ai besoin de votre aide... Problème:Je suis sous Excel 2003 et je cherche via VBA à créer u n répertoire si l'utilisateur remplit OK sur une MSGBOX J'ai donc fait un test sur mon répertoire:
If Dir(monrep, vbDirectory) = "" Then MsgBox ("le répertoire n'est pas valide,") ********************************* End If
Dans la ligne avec les ******* je voudrais que via une MSGBOX l'utilisate ur ait le choix de créer ou non le répertoire.Si il appuie sur OK, on cr ée le répertoir monrep (mais comment, je ne sais pas) si non = exit sub.
Avez-vous des idées? Merci Salutations PJ
Hello,
en VB on ferait comme ça : Dim DirectoryName As String Dim rep As VbMsgBoxResult ' DirectoryName = "c:toto"
If Dir(DirectoryName, vbDirectory) = "" Then rep = MsgBox("Le répertoire " & DirectoryName & _ " n'existe pas." & vbCrLf & _ "Voulez vous le créer ?", _ vbYesNo, "Le Répertoire n'existe pas") If rep = vbYes Then MkDir DirectoryName MsgBox "répertoire créé" Else MsgBox "pas de répertoire créé." End If End If
Pas sur que mkdir existe en VBA. Si non, utiliser FSO pour la création du répertoire.
On 14 jan, 14:55, PJ <P...@discussions.microsoft.com> wrote:
Bonjour,
J'ai besoin de votre aide...
Problème:Je suis sous Excel 2003 et je cherche via VBA à créer u n
répertoire si l'utilisateur remplit OK sur une MSGBOX
J'ai donc fait un test sur mon répertoire:
If Dir(monrep, vbDirectory) = "" Then
MsgBox ("le répertoire n'est pas valide,")
*********************************
End If
Dans la ligne avec les ******* je voudrais que via une MSGBOX l'utilisate ur
ait le choix de créer ou non le répertoire.Si il appuie sur OK, on cr ée le
répertoir monrep (mais comment, je ne sais pas) si non = exit sub.
Avez-vous des idées?
Merci
Salutations
PJ
Hello,
en VB on ferait comme ça :
Dim DirectoryName As String
Dim rep As VbMsgBoxResult
'
DirectoryName = "c:toto"
If Dir(DirectoryName, vbDirectory) = "" Then
rep = MsgBox("Le répertoire " & DirectoryName & _
" n'existe pas." & vbCrLf & _
"Voulez vous le créer ?", _
vbYesNo, "Le Répertoire n'existe pas")
If rep = vbYes Then
MkDir DirectoryName
MsgBox "répertoire créé"
Else
MsgBox "pas de répertoire créé."
End If
End If
Pas sur que mkdir existe en VBA. Si non, utiliser FSO pour
la création du répertoire.
J'ai besoin de votre aide... Problème:Je suis sous Excel 2003 et je cherche via VBA à créer u n répertoire si l'utilisateur remplit OK sur une MSGBOX J'ai donc fait un test sur mon répertoire:
If Dir(monrep, vbDirectory) = "" Then MsgBox ("le répertoire n'est pas valide,") ********************************* End If
Dans la ligne avec les ******* je voudrais que via une MSGBOX l'utilisate ur ait le choix de créer ou non le répertoire.Si il appuie sur OK, on cr ée le répertoir monrep (mais comment, je ne sais pas) si non = exit sub.
Avez-vous des idées? Merci Salutations PJ
Hello,
en VB on ferait comme ça : Dim DirectoryName As String Dim rep As VbMsgBoxResult ' DirectoryName = "c:toto"
If Dir(DirectoryName, vbDirectory) = "" Then rep = MsgBox("Le répertoire " & DirectoryName & _ " n'existe pas." & vbCrLf & _ "Voulez vous le créer ?", _ vbYesNo, "Le Répertoire n'existe pas") If rep = vbYes Then MkDir DirectoryName MsgBox "répertoire créé" Else MsgBox "pas de répertoire créé." End If End If
Pas sur que mkdir existe en VBA. Si non, utiliser FSO pour la création du répertoire.
J'ai besoin de votre aide... Problème:Je suis sous Excel 2003 et je cherche via VBA à créer un répertoire si l'utilisateur remplit OK sur une MSGBOX J'ai donc fait un test sur mon répertoire:
If Dir(monrep, vbDirectory) = "" Then MsgBox ("le répertoire n'est pas valide,") ********************************* End If
Dans la ligne avec les ******* je voudrais que via une MSGBOX l'utilisateur ait le choix de créer ou non le répertoire.Si il appuie sur OK, on crée le répertoir monrep (mais comment, je ne sais pas) si non = exit sub.
Avez-vous des idées? Merci Salutations PJ
Hello,
en VB on ferait comme ça : Dim DirectoryName As String Dim rep As VbMsgBoxResult ' DirectoryName = "c:toto"
If Dir(DirectoryName, vbDirectory) = "" Then rep = MsgBox("Le répertoire " & DirectoryName & _ " n'existe pas." & vbCrLf & _ "Voulez vous le créer ?", _ vbYesNo, "Le Répertoire n'existe pas") If rep = vbYes Then MkDir DirectoryName MsgBox "répertoire créé" Else MsgBox "pas de répertoire créé." End If End If
Pas sur que mkdir existe en VBA. Si non, utiliser FSO pour la création du répertoire.
Bonjour Jean Marc
Si mkdir existe bien en VBA. !
Daniel
--
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
<jeanmarcnoury@gmail.com> a écrit dans le message de news:
448ac5a1-98a3-4984-8719-61f5d366b5e9@w1g2000prm.googlegroups.com...
On 14 jan, 14:55, PJ <P...@discussions.microsoft.com> wrote:
Bonjour,
J'ai besoin de votre aide...
Problème:Je suis sous Excel 2003 et je cherche via VBA à créer un
répertoire si l'utilisateur remplit OK sur une MSGBOX
J'ai donc fait un test sur mon répertoire:
If Dir(monrep, vbDirectory) = "" Then
MsgBox ("le répertoire n'est pas valide,")
*********************************
End If
Dans la ligne avec les ******* je voudrais que via une MSGBOX
l'utilisateur
ait le choix de créer ou non le répertoire.Si il appuie sur OK, on crée le
répertoir monrep (mais comment, je ne sais pas) si non = exit sub.
Avez-vous des idées?
Merci
Salutations
PJ
Hello,
en VB on ferait comme ça :
Dim DirectoryName As String
Dim rep As VbMsgBoxResult
'
DirectoryName = "c:toto"
If Dir(DirectoryName, vbDirectory) = "" Then
rep = MsgBox("Le répertoire " & DirectoryName & _
" n'existe pas." & vbCrLf & _
"Voulez vous le créer ?", _
vbYesNo, "Le Répertoire n'existe pas")
If rep = vbYes Then
MkDir DirectoryName
MsgBox "répertoire créé"
Else
MsgBox "pas de répertoire créé."
End If
End If
Pas sur que mkdir existe en VBA. Si non, utiliser FSO pour
la création du répertoire.
J'ai besoin de votre aide... Problème:Je suis sous Excel 2003 et je cherche via VBA à créer un répertoire si l'utilisateur remplit OK sur une MSGBOX J'ai donc fait un test sur mon répertoire:
If Dir(monrep, vbDirectory) = "" Then MsgBox ("le répertoire n'est pas valide,") ********************************* End If
Dans la ligne avec les ******* je voudrais que via une MSGBOX l'utilisateur ait le choix de créer ou non le répertoire.Si il appuie sur OK, on crée le répertoir monrep (mais comment, je ne sais pas) si non = exit sub.
Avez-vous des idées? Merci Salutations PJ
Hello,
en VB on ferait comme ça : Dim DirectoryName As String Dim rep As VbMsgBoxResult ' DirectoryName = "c:toto"
If Dir(DirectoryName, vbDirectory) = "" Then rep = MsgBox("Le répertoire " & DirectoryName & _ " n'existe pas." & vbCrLf & _ "Voulez vous le créer ?", _ vbYesNo, "Le Répertoire n'existe pas") If rep = vbYes Then MkDir DirectoryName MsgBox "répertoire créé" Else MsgBox "pas de répertoire créé." End If End If
Pas sur que mkdir existe en VBA. Si non, utiliser FSO pour la création du répertoire.