Bonjour,

Je travaille sur un programme où des données sont enregistrées dans des fichier .txt lorsque l'on appui sur un bouton "Enregistrer". Ces fichiers sont enregistrer dans un dossier "Groupes" situé dans le répertoire de l'application (App.path).

Je veux créer une fonction qui, lors de l'enregistrement, vérifie si le dossier "Groupes" existe et, dans le cas où il n'existe pas, le crée.

J'ai donc utiliser la fonction suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
        Dim MyPath As String 'Définition des variables
        Dim myName As String
 
        MyPath = App.Path & "\Groupes\"
 
        If (myName = Dir(MyPath, vbDirectory)) = vbEmpty Then
            GoTo enregistrer
 
        Else
 
        MkDir (App.Path & "\Groupes\")
            GoTo enregistrer
        End If
Ainsi, l'application crée le dossier s'il est absent du répertoire. Par contre, lorsque qu'il continu jusqu'à la fonction enregistrer, elle effectue tout sans erreur mais le fichier .txt n’apparaît pas dans le nouveau dossier créé alors que, si le dossier est déjà présent, tout s'enregistre parfaitement.

En résumé, si le dossier est créé manuellement avant l'utilisation de l'application, les fichiers .txt s'enregistrent alors que si le dossier est créé par l'intermédiaire de l'application, les fichiers .txt n'apparaissent pas dans le dossier et il n'y a pas de message d'erreur. L'application continu comme si tout avait fonctionné.

Que faire???

Merci beaucoup!

Gamuelf