Discussion :

[sunvialley]

Bonjour,

je fais face à un tout petit problème, voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
        ChDir CurrentProject.Path
        If Dir(CurDir$ & "\Procédures\") = "" Then
            MkDir "Procédures"
        End If
 
        ChDir CurrentProject.Path & "\Procédures"
        If Dir(CurDir$ & "\" & domaine & "\") = "" Then
            MkDir domaine
        End If

le 2e test marche très bien, mais pas le 1er. Dans le 1er test cela plante si le répertoire existe. Mais je ne vois pas la raison.

Merci.

[Tofalu]

Dans l'entete d'un module :

Public Declare Function MakeSureDirectoryPathExists _
Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Ton code devient

MakeSureDirectoryPathExists CurrentProject.Path & "\Procédures\" & domaine & "\"

Plus besoin de test

[sunvialley]

Merci ca marche super bien et en plus c'est plus simple.
Encore une victoire de Tofalu.
Merci