Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

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

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

8 réponses

Avatar
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" a écrit dans le message de
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



Avatar
Jacky
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" a écrit dans le message de news:

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" a écrit dans le message de
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







Avatar
LSteph
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




Avatar
Jacky
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" a écrit dans le message de news:
%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




Avatar
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" a écrit dans le message de news:
%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








Avatar
Jacky
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
%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









Avatar
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
%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











Avatar
Céline Brien
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" a écrit dans le message de news:

;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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
%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