Discussion :

[Willyson]

Bonjour ,
J'ai un problème avec mon code vba .
Le but du code est d'ouvrir en boucle des fichiers en format (.bld) qui se trouve dans un répertoire("C:\Conversion\") ,lorsque que je lance mon code , au lieu qu'il ouvre le fichier dans le répertoire que je lui ai indiqué , il crée dans le dossier document un fichier de même nom et de taille vide et me sort un message d'erreur . Mais quand j'ai déja ouvert le fichier manuellement et que je relance le code il parvient alors à exécuter normalement.
Je n'arrive résoudre le problème , j'ai donc besoin de votre aide.
Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Import()
 
    Dim monfichier As String
    Dim Destname As String
    Dim Chemin As String
 
     Chemin = "C:\Conversion\"
      monfichier = Dir(Chemin & "*.bld")
 
  While monfichier <> ""
 
   strFileName = monfichier
 
Open strFileName For Binary As #1
Close 1
monfichier=Dir()
 
Wend
 
End Sub

Merci d'avance

[Marc-L]

Bonjour, bonjour !

Conformément aux règles du forum, édite ton post et balise le code via l'icône dédiée # !

Sinon c'est normal : il suffit de contrôler ce que renvoie la fonction Dir (comme pourtant expliqué dans l'aide VBA) …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Daniel.C]

Bonjour,

Mets :

Code :

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

strFileName = chemin & monfichier

[Willyson]

Merci beaucoup Daniel.C , Ca marche