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