Dir : "erreur d'exécution '5'" argument ou appelle de procedure incorrect

Bonjour à tous,

Voici mon problème j'ai une boucle while définie avec un Dir dans les conditions. Le problème est que si j'utilise cette fonction une autre fois dans ma boucle ça ne marche pas.

voici les problèmes:

si mon fichier n'existe pas alors lors du fichier= Dir il me met cette erreur.
Si mon fichier existe la boule ne fais qu'un seul tour.

Dans mon dossier :"données d'essai zip" j'ai 2 fichier donc je devrais avoir à la fin n = 2.

Mon but n'est pas de comté les fichiers le n est juste là comme moyen de contrôle de ma boucle.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Function Existencedossier(Dossieratest As Variant) As Variant Existencedossier = Dir(Dossieratest, vbDirectory)   End Function   Sub fichier()   Dim fichier As Variant Dim cheminfichier As Variant Dim Dossiertempasup As Variant   Dim n As Integer   'ouverture des fichiers EVRP cheminfichier = "C:\Users\xxx\Desktop\Suivi\données essai zip\" fichier = Dir(cheminfichier & "*.*") n = 0 While fichier <> "" n = n + 1     Dossiertempasup = "C:\Users\xxx\Desktop\Dossier tempon à sup" If Existencedossier(Dossiertempasup) = "" Then MkDir Dossiertempasup End If fichier = Dir Wend   MsgBox n   End Sub

---

J'espère que j'ai été claire.

Merci d'avance de votre aide.

Bonjour,

tester avec les lignes n°23 à 25 en commentaire …

Oui je l'ai déjà fait ça marche nickel c'est pour ça que je me dis que le problème viens du fait que je test l’existence d'un dossier par la même méthode et du coup ça fait planter la boucle.

C'est donc bien une erreur de conception / logique :

il faudrait peut-être tester l'existence du dossier avant la ligne n°16, non ?!

C'est bon ça marche :)

Merci beaucoup

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub fichier()   Dim fichier As Variant Dim cheminfichier As Variant Dim Dossiertempasup As Variant   Dim n As Integer   Dossiertempasup = "C:\Users\xx\Desktop\Dossier tempon à sup" If Existencedossier(Dossiertempasup) = "" Then MkDir Dossiertempasup End If   'ouverture des fichiers EVRP cheminfichier = "C:\Users\xxx\Desktop\Suivi\données essai zip\" fichier = Dir(cheminfichier & "*.*") n = 0 While fichier <> "" n = n + 1   fichier = Dir Wend   MsgBox n MsgBox "Mise à jour fini" End Sub

---