Microsoft 365 Petit souci lors de la création de dossier par Excel

[libellule85]

Bonjour le forum,
J'ai un petit souci quand je veux créer des dossiers à partir d'Excel et que le nom de ceux-ci contiennent des accents.
Actuellement ils sont créés comme ceci :
pour le 1er : Localisation g├®ographiques
pour le 2ème : Services G├®n├®raux
Comment faire dans Excel pour que le caractère avec des accents sorte "normalement" lors de la création des dossiers.
D'avance merci pour votre aide.
Bien cordialement

 

[fanfan38]

Bonjour
Ci joint ma solution (double clic sur le nom du dossier à créer)

A+ François

 

[libellule85]

Bonjour fanfan38,
Merci beaucoup pour ta réponse.

 

[patricktoulon]

bonjour
@fanfan38
un test dir peut être avant non?
histoire de pas planter là

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Chemin As String
    Chemin = ActiveWorkbook.Path & "/" & Target.Value
    If Dir(Chemin, vbDirectory) = "" Then
        MkDir Chemin
        MsgBox ("Dossier créé")
    Else
        MsgBox "Le dossier " & Target.Value & " existe dèjà"
    End If
End Sub

 

[libellule85]

Bonjour patricktoulon,
Merci beaucoup pour ta réponse.

 

[halecs93]

bonjour
@fanfan38
un test dir peut être avant non?
histoire de pas planter là

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Chemin As String
    Chemin = ActiveWorkbook.Path & "/" & Target.Value
    If Dir(Chemin, vbDirectory) = "" Then
        MkDir Chemin
        MsgBox ("Dossier créé")
    Else
        MsgBox "Le dossier " & Target.Value & " existe dèjà"
    End If
End Sub

ou alors :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim Chemin As String
    
    Cancel = True
    
    If Target.Value = "" Then Exit Sub
    
    Chemin = ActiveWorkbook.Path & "\" & Target.Value
    
    If Dir(Chemin, vbDirectory) = "" Then
        MkDir Chemin
        MsgBox "Dossier créé"
    Else
        MsgBox "Le dossier " & Target.Value & " existe déjà"
    End If

End Sub

 

[patricktoulon]

re
L'art de surenchérir pour rien
@halecs93 93 fait moi plaisir essaie un double clic sur une cellule vierge avec mon code
ton test si vide est inutile puisque va va donner le dossier du classeur et il existe déjà
donc cette pseudo protection est superfétatoire

le cancel je te l'accorde