Discussion :

[fredym]

'' Bonjour tous,

erreur d'accès chemin/fichier car ne détecte pas le répertoire 'FactOut' pourtant existant sur le lecteur d:\...

comment peut-on palier à cette erreur? ajouter 'd:\' devant la variable ChemRep ajouter une instruction qui teste le lecteur utilisé ?
Ne suis pas parvenu à solutionner... merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
    Dim ChemRep As String
         ChemRep = ActiveWorkbook.Path & "\FactOut\"    ' sur disque d:\ ...
            If Dir(ChemRep, vbDirectory + vbHidden) <> ChemRep Then ' si répertoire n'existe pas:
                MsgBox "Crée le répertoire : " & ChemRep
                MkDir (ChemRep)   ' provoque erreur d'exécution '75': Erreur d'accès Chemin/Fichier
                ' ...
            Else
                ' ...
            End If
 End Sub

[Pierre Fauconnier]

Salut.

Tu utilises ActiveWorkbook.Path. Si ton fichier actif n'est pas sur D:\, ça posera problème. Exécute le code en pas à pas et teste la valeur de ChemRep dans les variables locales (fenêtre que tu peux afficher via le menu Affichage du VBE).

[fredym]

Bonjour Mr Fauconnier,

Le fichier actif est sur le disque D:\ . La fenêtre des variables locales ainsi que le msgbox (ligne 6) le confirme.
J'ai même placé le fichier actif sur le c:\ ; au 1er passage du test, la sub crée bien le répertoire 'FactOut' et au 2è passage provoque la même erreur d'exécution.

J'ai un doute sur le code en ligne 5 parce que la condition if ne se fait pas et poursuit le code à Mkdir au lieu d'aller à Else
Je vais devoir chercher une autre stratégie pour tester l'existence ou non du dossier 'FactOut'
Merci tout de même...

[Pierre Fauconnier]

En fait, lorsque ton dossier est créé, DIR renvoie . pour le test sur ce dossier (comme dans l'antique DOS, . = dossier actif, .. = dossier parent).

Tu dois adapter ta ligne de test d'existence:

Code :

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

If Dir(ChemRep, vbDirectory + vbHidden) <> "."