VBA vérifier l'existence d'un dossier et le créer s'il n'existe pas

Le
Céline Brien
Bonjour à tous,
Dans une macro, quels codes doit-on utiliser pour vérifier l'existence du
dossier
R:ReportFev
et, s'il n'existe pas, le créer.
Merci de votre aide et bon vendredi 13,
Céline
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #4448041
Bonsoir,
'---------------
Sub jj()
If Dir("RReport", 16) = "" Then MkDir ("d:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("d:ReportFev")
End Sub
'---------
Salutations
JJ

"Céline Brien" news: %
Bonjour à tous,
Dans une macro, quels codes doit-on utiliser pour vérifier l'existence du
dossier
R:ReportFev
et, s'il n'existe pas, le créer.
Merci de votre aide et bon vendredi 13,
Céline



Jacky
Le #4448001
Oupssss!!! plutôt
'------------
Sub jj()
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("RReportFev")
End Sub
'-------------
Désolé.
JJ

"Jacky"
Bonsoir,
'---------------
Sub jj()
If Dir("RReport", 16) = "" Then MkDir ("d:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("d:ReportFev")
End Sub
'---------
Salutations
JJ

"Céline Brien" news: %
Bonjour à tous,
Dans une macro, quels codes doit-on utiliser pour vérifier l'existence du
dossier
R:ReportFev
et, s'il n'existe pas, le créer.
Merci de votre aide et bon vendredi 13,
Céline







LSteph
Le #4447981
Bonsoir,
Juste au cas où:

Sub jjls()
On Error GoTo fin
ChDrive "R:/"
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("R:ReportFev")
Exit Sub
fin:
MsgBox " Erreur d'Unité ou non disponible"
End Sub

;-)

Bonne soirée.

lSteph

Bonjour à tous,
Dans une macro, quels codes doit-on utiliser pour vérifier l'existence du
dossier
R:ReportFev
et, s'il n'existe pas, le créer.
Merci de votre aide et bon vendredi 13,
Céline




Jacky
Le #4447961
Re....
Tout juste.
'---------------
Mais je revendique énergiquement la paternité de cette Sub et proteste
fortement contre ce "renommage" > Sub jjls() <
illicite.
Cependant je te laisse ajouter le mot manquant dans le Msgbox.......
;-)))
JJ


"LSteph" %23Djv2$
Bonsoir,
Juste au cas où:

Sub jjls()
On Error GoTo fin
ChDrive "R:/"
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("R:ReportFev")
Exit Sub
fin:
MsgBox " Erreur d'Unité ou non disponible"
End Sub

;-)

Bonne soirée.

lSteph

Bonjour à tous,
Dans une macro, quels codes doit-on utiliser pour vérifier l'existence du
dossier
R:ReportFev
et, s'il n'existe pas, le créer.
Merci de votre aide et bon vendredi 13,
Céline




LSteph
Le #4447951
En fait: Sub lsjj()
;o))
Heu!...aufait
Cela fera en plus un apéro pour ta peine,
en plus de la gestion des erreurs

je voulais juste t'éviter un autre oupss! plutôt

Oupssss!!! plutôt
'------------
Sub jj()
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("RReportFev")
'''''''''''''''''''''''''''''''''''''''''''''''ICI
''''''''''''''''''''''''''''''''''''''''''''''"R:" et non R
End Sub
'-------------
Désolé.
JJ



:)

Re....
Tout juste.
'---------------
Mais je revendique énergiquement la paternité de cette Sub et proteste
fortement contre ce "renommage" > Sub jjls() <
illicite.
Cependant je te laisse ajouter le mot manquant dans le Msgbox.......
;-)))
JJ


"LSteph" %23Djv2$
Bonsoir,
Juste au cas où:

Sub jjls()
On Error GoTo fin
ChDrive "R:/"
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("R:ReportFev")
Exit Sub
fin:
MsgBox " Erreur d'Unité ou non disponible"
End Sub

;-)

Bonne soirée.

lSteph

Bonjour à tous,
Dans une macro, quels codes doit-on utiliser pour vérifier l'existence du
dossier
R:ReportFev
et, s'il n'existe pas, le créer.
Merci de votre aide et bon vendredi 13,
Céline








Jacky
Le #4447921
N'essaie pas de retomber sur tes pattes
Je t'ai vu avec la gomme à gratter le ":"
Bon, je retourne déboulonner les vis des rails du tgv
;o))

"LSteph" %
En fait: Sub lsjj()
;o))
Heu!...aufait
Cela fera en plus un apéro pour ta peine,
en plus de la gestion des erreurs

je voulais juste t'éviter un autre oupss! plutôt

Oupssss!!! plutôt
'------------
Sub jj()
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("RReportFev")
'''''''''''''''''''''''''''''''''''''''''''''''ICI
''''''''''''''''''''''''''''''''''''''''''''''"R:" et non R
End Sub
'-------------
Désolé.
JJ



:)

Re....
Tout juste.
'---------------
Mais je revendique énergiquement la paternité de cette Sub et proteste
fortement contre ce "renommage" > Sub jjls() <
illicite.
Cependant je te laisse ajouter le mot manquant dans le Msgbox.......
;-)))
JJ


"LSteph" %23Djv2$
Bonsoir,
Juste au cas où:

Sub jjls()
On Error GoTo fin
ChDrive "R:/"
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("R:ReportFev")
Exit Sub
fin:
MsgBox " Erreur d'Unité ou non disponible"
End Sub

;-)

Bonne soirée.

lSteph

Bonjour à tous,
Dans une macro, quels codes doit-on utiliser pour vérifier l'existence
du dossier
R:ReportFev
et, s'il n'existe pas, le créer.
Merci de votre aide et bon vendredi 13,
Céline









LSteph
Le #4447881
;o))))
Une autre façon de faire avancer le tgv:

Sub lsjj()
Dim myDrv As String
myDrv = Left(CurDir, 3)

On Error GoTo fin
ChDrive "R:/"

On Error Resume Next
MkDir "R:Report"
MkDir "R:ReportFev"
On Error GoTo fin

ChDrive myDrv

Exit Sub
fin:
MsgBox " Unité erronée ou non disponible"
ChDrive myDrv

End Sub


N'essaie pas de retomber sur tes pattes
Je t'ai vu avec la gomme à gratter le ":"
Bon, je retourne déboulonner les vis des rails du tgv
;o))

"LSteph" %
En fait: Sub lsjj()
;o))
Heu!...aufait
Cela fera en plus un apéro pour ta peine,
en plus de la gestion des erreurs

je voulais juste t'éviter un autre oupss! plutôt

Oupssss!!! plutôt
'------------
Sub jj()
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("RReportFev")
'''''''''''''''''''''''''''''''''''''''''''''''ICI
''''''''''''''''''''''''''''''''''''''''''''''"R:" et non R
End Sub
'-------------
Désolé.
JJ
:)



Re....
Tout juste.
'---------------
Mais je revendique énergiquement la paternité de cette Sub et proteste
fortement contre ce "renommage" > Sub jjls() <
illicite.
Cependant je te laisse ajouter le mot manquant dans le Msgbox.......
;-)))
JJ


"LSteph" %23Djv2$
Bonsoir,
Juste au cas où:

Sub jjls()
On Error GoTo fin
ChDrive "R:/"
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("R:ReportFev")
Exit Sub
fin:
MsgBox " Erreur d'Unité ou non disponible"
End Sub

;-)

Bonne soirée.

lSteph

Bonjour à tous,
Dans une macro, quels codes doit-on utiliser pour vérifier l'existence
du dossier
R:ReportFev
et, s'il n'existe pas, le créer.
Merci de votre aide et bon vendredi 13,
Céline











Céline Brien
Le #4447431
Bonjour à tous,
Bonjour Jacky,
Bonjour LSteph,
Merci beaucoup beaucoup pour vos réponses.
J'ai copié et collé cette ligne de code dans ma macro et elle fait mon
bonheur :
If Dir("R:ReportFev", 16) = "" Then MkDir ("R:ReportFev")
Le dossier Report devrait toujours exister.
C'est le dossier Fev qui pourrait être supprimé par erreur.
Merci encore pour votre aide très précieuse !
Céline


"LSteph"
;o))))
Une autre façon de faire avancer le tgv:

Sub lsjj()
Dim myDrv As String
myDrv = Left(CurDir, 3)

On Error GoTo fin
ChDrive "R:/"

On Error Resume Next
MkDir "R:Report"
MkDir "R:ReportFev"
On Error GoTo fin

ChDrive myDrv

Exit Sub
fin:
MsgBox " Unité erronée ou non disponible"
ChDrive myDrv

End Sub


N'essaie pas de retomber sur tes pattes
Je t'ai vu avec la gomme à gratter le ":"
Bon, je retourne déboulonner les vis des rails du tgv
;o))

"LSteph" %
En fait: Sub lsjj()
;o))
Heu!...aufait
Cela fera en plus un apéro pour ta peine,
en plus de la gestion des erreurs

je voulais juste t'éviter un autre oupss! plutôt

Oupssss!!! plutôt
'------------
Sub jj()
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("RReportFev")
'''''''''''''''''''''''''''''''''''''''''''''''ICI
''''''''''''''''''''''''''''''''''''''''''''''"R:" et non R
End Sub
'-------------
Désolé.
JJ
:)



Re....
Tout juste.
'---------------
Mais je revendique énergiquement la paternité de cette Sub et proteste
fortement contre ce "renommage" > Sub jjls() <
illicite.
Cependant je te laisse ajouter le mot manquant dans le Msgbox.......
;-)))
JJ


"LSteph" %23Djv2$
Bonsoir,
Juste au cas où:

Sub jjls()
On Error GoTo fin
ChDrive "R:/"
If Dir("R:Report", 16) = "" Then MkDir ("R:Report")
If Dir("R:ReportFev", 16) = "" Then MkDir ("R:ReportFev")
Exit Sub
fin:
MsgBox " Erreur d'Unité ou non disponible"
End Sub

;-)

Bonne soirée.

lSteph

Bonjour à tous,
Dans une macro, quels codes doit-on utiliser pour vérifier
l'existence du dossier
R:ReportFev
et, s'il n'existe pas, le créer.
Merci de votre aide et bon vendredi 13,
Céline













Publicité
Poster une réponse
Anonyme