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
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
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
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
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" <celinebrien@laurentides.qc.ca> a écrit dans le message de
news: %23QVffrffHHA.444@TK2MSFTNGP04.phx.gbl...
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
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
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
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
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
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.
lStephBonjour à 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
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
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.
lStephBonjour à 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
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.
lStephBonjour à 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
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" <lecocosteph@frite.fr> a écrit dans le message de news:
%23Djv2$gfHHA.1388@TK2MSFTNGP05.phx.gbl...
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
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.
lStephBonjour à 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
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ôtOupssss!!! 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.
lStephBonjour à 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
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" <lecocosteph@frite.fr> a écrit dans le message de news:
%23Djv2$gfHHA.1388@TK2MSFTNGP05.phx.gbl...
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
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ôtOupssss!!! 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.
lStephBonjour à 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
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ôtOupssss!!! 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.
lStephBonjour à 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
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" <lecocosteph@frite.fr> a écrit dans le message de news:
%23NSPCRhfHHA.4596@TK2MSFTNGP05.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
%23Djv2$gfHHA.1388@TK2MSFTNGP05.phx.gbl...
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
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ôtOupssss!!! 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.
lStephBonjour à 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
;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 SubN'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ôtOupssss!!! 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.
lStephBonjour à 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
;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" <lecocosteph@frite.fr> a écrit dans le message de news:
%23NSPCRhfHHA.4596@TK2MSFTNGP05.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
%23Djv2$gfHHA.1388@TK2MSFTNGP05.phx.gbl...
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
;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 SubN'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ôtOupssss!!! 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.
lStephBonjour à 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