Msgbox en cas de doublon

Bonjour,

Voici mon problème, j'ai une macro qui créer des dossiers sur le réseau de mon service.

Lorsque le dossier existe déjà et que j'utilise la macro il y a un message de bug (genre fin ou débogage).

Je souhaiterais mettre plutôt un msgbox pour dire que le dossier existe déjà, faire OK et ça termine l'opération.

Mon problème est que je ne sais pas comment faire ce contrôle de présence ou non.

Merci de votre aide.

Bonjour

if dir("Chemin/Nom")<>"" then msgbox...

Bonjour Florent6744, 78Chris

78Chris, si je puis me permettre, c'est "\" et non "/" l'arborescence Windows

  If Dir("C:\Dossier\Sous-dossier", vbDirectory) <> "" Then
    MsgBox "Le dossier existe déjà", vbCritical, "OUPS...."
  End If

@+

Bonjour

BrunoM45 a écrit :

78Chris, si je puis me permettre, c'est "\" et non "/" l'arborescence Windows

You are rigth ! Sorry

Tout d'abord désolé pour ce retour très tardif.

Merci pour votre aide ça fonctionne... jusqu'au clic sur OK.

Il dit quand même qu'il y a un bug a partir du premier mkdir.

Je pense qu'il manque juste un arrêt de la macro en cas de msgbox.

Je met ci dessous la macro pour que vous puissiez voir comment je l'ai ecrite.

Sub Creation_dossier()
'On Error Resume Next
Dim Lig As Byte
Dim LeRep As String, LaColl As String, LaVille As String, Ledoss As String
LeRep = "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\07_GESTION 2021_2024\01_COLLECTIVITES\"
LaColl = Cells(ActiveCell.Row, 90).Value
LaVille = Cells(ActiveCell.Row, 89).Value
Ledoss = Cells(ActiveCell.Row, 25).Value
'Lig = Range("A65536").End(xlUp).Row

    If Dir(LeRep & LaColl & "\" & LaVille & "\09_TRAVAUX\" & Ledoss, vbDirectory) <> "" Then
    MsgBox "Le dossier existe déjà", vbCritical, "OUPS...."
    End If

    MkDir LeRep & LaColl & "\" & LaVille & "\09_TRAVAUX\" & Ledoss
    MkDir LeRep & LaColl & "\" & LaVille & "\09_TRAVAUX\" & Ledoss & "\ETUDE_TVX"
    MkDir LeRep & LaColl & "\" & LaVille & "\09_TRAVAUX\" & Ledoss & "\FINANCIER"
    MkDir LeRep & LaColl & "\" & LaVille & "\09_TRAVAUX\" & Ledoss & "\RECEPTION"
End Sub

Bonjour Florent6744,

Placé dans le contexte, il manque effectivement la sortie de MsgBox

Sub Creation_dossier()
'On Error Resume Next
Dim Lig As Byte
Dim LeRep As String, LaColl As String, LaVille As String, Ledoss As String
LeRep = "Y:\01_DOSSIERS ACTIFS\07_MAINTENANCE_EP\07_GESTION 2021_2024\01_COLLECTIVITES\"
LaColl = Cells(ActiveCell.Row, 90).Value
LaVille = Cells(ActiveCell.Row, 89).Value
Ledoss = Cells(ActiveCell.Row, 25).Value
'Lig = Range("A65536").End(xlUp).Row

    If Dir(LeRep & LaColl & "\" & LaVille & "\09_TRAVAUX\" & Ledoss, vbDirectory) <> "" Then
      MsgBox "Le dossier existe déjà", vbCritical, "OUPS...."
      Exit Sub  ' On sort de la procédure
    End If
    ' Sinon on créé les sous-dossiers
    MkDir LeRep & LaColl & "\" & LaVille & "\09_TRAVAUX\" & Ledoss
    MkDir LeRep & LaColl & "\" & LaVille & "\09_TRAVAUX\" & Ledoss & "\ETUDE_TVX"
    MkDir LeRep & LaColl & "\" & LaVille & "\09_TRAVAUX\" & Ledoss & "\FINANCIER"
    MkDir LeRep & LaColl & "\" & LaVille & "\09_TRAVAUX\" & Ledoss & "\RECEPTION"
End Sub

A+

Bonjour,

ça marche nickel.

Merci a tous pour votre aide.