Vérifier si le dossier existe avant de le créer

[matthieu2701]

Bonjour,

Je souhaite créer le dossier d'un client. A l'intérieur je mettrais différents fichiers word, pdf ...

J'ai réussi à créer le dossier avec une msgbox mais je n'arrive pas à arrêter la macro si le le dossier est déjà créé et à faire afficher une msgbox du style "Le dossier est déjà créé"

La macro s'appelle "Dossier" dans mon fichier.

Ne faites pas attention au chemin d'enregistrement du fichier. Il vous paraitra bizarre mais c'est normal car je vais mes tes sur Mac.

Merci par avance pour votre aide.

 

[phlaurent55]

Re : Vérifier si le dossier existe avant de le créer

Bonjour Matthieu,

essaie avec ceci:

Sub Dossier()

With Sheets("Echéancier")
    Nom = .Range("B2")
    Ref = .Range("B1")
End With

Chemin = "MaTT'S HD:Users:Matthieu:" & Feuil3.Cells(2, 2).Text & " " & Feuil3.Cells(1, 2).Text

If Nom = "" Or Ref = "" Then
MsgBox "Veuillez compléter les champs Nom/Prénom et IGOR pour pouvoir générer le dossier du client", vbOKOnly + vbCritical, "Attention"
Exit Sub
End If

On Error GoTo fin

MkDir "MaTT'S HD:Users:Matthieu:" & Feuil3.Cells(2, 2).Text & " " & Feuil3.Cells(1, 2).Text


MsgBox "Le dossier numérique " & Nom & " " & Ref & " a été créé."
Exit Sub

fin:
MsgBox "Le dossier numérique " & Nom & " " & Ref & " a déjà été créé,impossible de le créer une seconde fois"
End Sub

à+
Philippe

 

[matthieu2701]

Re : Vérifier si le dossier existe avant de le créer

Merci philippe. Ca fait 2 heures que je me bats. J'essayé avec If.

On Error GoTo Fin signifie quoi ?

C'est possible que tu fasse pareil pour la macro "exportword" ?

Est-il possible que la msgbox se ferme seule au bout de x secondes ?

 

[phlaurent55]

Re : Vérifier si le dossier existe avant de le créer

Re,

si on veut créer un fichier ou dossier qui existe déjà, ça provoque une erreur

On Error GoTo Fin signifie quoi ?

cela signifie qu'en cas d'erreur (lorsqu'on veut créer qq chose qui existe déjà) la procédure s'aiguillera automatiquement vers fin: (voir la 4ème ligne en partant du bas dans l'exemple donné

Est-il possible que la msgbox se ferme seule au bout de x secondes ?

je ne pense pas que cela soit possible
par contre il est possible de faire apparaître un message dans StatusBox pendant une durée déterminée (remplace les dernières lignes par ceci:

fin:
Application.StatusBar = "IMPOSSIBLE DE CREER LE FICHIER, IL EXISTE DEJA"
Application.Wait (Now + TimeValue("00:00:05"))
Application.StatusBar = ""
End Sub

à+
Philippe

 

[matthieu2701]

Re : Vérifier si le dossier existe avant de le créer

fin:
Application.StatusBar = "IMPOSSIBLE DE CREER LE FICHIER, IL EXISTE DEJA"
Application.Wait (Now + TimeValue("00:00:05"))
Application.StatusBar = ""
End Sub

Philippe

Comment faire si je veux faire l'inverse. C'est à dire, mettre un message dans le statutbar si le dossier est créé et faire apparaitre la msgbox si le dossier est déjà créé ? ==> J'ai réussi

C'est possible que tu fasse pareil pour la macro "exportword" ?

 

[Pierrot93]

Re : Vérifier si le dossier existe avant de le créer

Bonjour Mathieu, Philippe🙂

Est-il possible que la msgbox se ferme seule au bout de x secondes ?

ci-dessous la "msgbox" reste affichée 3 secondes avant de se fermer toute seule...

CreateObject("WScript.Shell").Popup "Message....", 3, "Titre....", vbInformation

bonne journée
@+

 

[matthieu2701]

Re : Vérifier si le dossier existe avant de le créer

Bonjour Mathieu, Philippe🙂



ci-dessous la "msgbox" reste affichée 3 secondes avant de se fermer toute seule...

CreateObject("WScript.Shell").Popup "Message....", 3, "Titre....", vbInformation

bonne journée
@+

J'ai message d'erreur en éxécutant la macro. "Un composant ActiveX ne peut pas créer d'objet."

Comment résoudre ce soucis ?

Merci

 

[Pierrot93]

Re : Vérifier si le dossier existe avant de le créer

Re,

fonctionne sous 2003, sous 2010 à priori la "msgbox" ne se ferme pas toute seule.... regarde peut être ce lien, il y a une autre approche :
https://www.excel-downloads.com/threads/boite-de-dialogue-informative.205398/

 

[Pierrot93]

Re : Vérifier si le dossier existe avant de le créer

Re,

je viens de tester chez moi sous 2007.... pas de message d'erreur mais la "msgbox", comme sous 2010, ne se ferme pas seule....

 

[matthieu2701]

Re : Vérifier si le dossier existe avant de le créer

Re,

fonctionne sous 2003, sous 2010 à priori la "msgbox" ne se ferme pas toute seule.... regarde peut être ce lien, il y a une autre approche :
https://www.excel-downloads.com/threads/boite-de-dialogue-informative.205398/

Comment intégrer ça

Option Explicit
Private Sub UserForm_Activate()
Dim s As Single
s = Timer
Do While Timer < s + 2
DoEvents
Loop
Unload Me
End Sub

dans ma macro ?

 

[matthieu2701]

Re : Vérifier si le dossier existe avant de le créer

Re,

je viens de tester chez moi sous 2007.... pas de message d'erreur mais la "msgbox", comme sous 2010, ne se ferme pas seule....

Ah mince. Dommage

 

[Pierrot93]

Re : Vérifier si le dossier existe avant de le créer

Re,

Comment intégrer ça
dans ma macro ?

copie le module de l'userform dans ton classeur par un glisser déplacer dans l'éditeur vba, et tu mets cette instruction à l'endroit où tu aurais placé le "msgbox" :

UserForm1.Show

 

[matthieu2701]

Re : Vérifier si le dossier existe avant de le créer

Re,



copie le module de l'userform dans ton classeur par un glisser déplacer dans l'éditeur vba, et tu mets cette instruction à l'endroit où tu aurais placé le "msgbox" :

UserForm1.Show

Si je le mets à la place de la msgbox comment je détermine le message que je veux faire apparaître ?

 

[matthieu2701]

Re : Vérifier si le dossier existe avant de le créer

Comment intégrer ça

Option Explicit
Private Sub UserForm_Activate()
Dim s As Single
s = Timer
Do While Timer < s + 2
DoEvents
Loop
Unload Me
End Sub

dans ma macro ?

J'intègre tous dans ma macro déjà existante ? A quelle endroit ?

 

[Pierrot93]

Re : Vérifier si le dossier existe avant de le créer

Re,

tu peux modifier la propriété "caption" du label sur l'usf (ce dans l'éditeur vba), ou bien rajouter ceci dans le module de ce même usf, la modification s'effectuera via le code, à l'initialisation :

Private Sub UserForm_Initialize()
Label1.Caption = "Mon Message..."
End Sub