Bonjour a tous,

J'ai un script qui a un problème et je ne comprend pas pourquoi

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
If ExisteFichier(Nom_fichier_UDT) Then
    Open Nom_fichier_UDT For Input As #2
    Set Entree = Workbooks.Open(Nom_fichier_UDT)
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows(Nom_fichier_Listing).Activate
    Sheets(Nom_fiche_UDT).Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Entree.Close
End If
En gros ce code dois ouvrir un fichier .scl (ou .txt) sous Excel
Il copie les info qu'il y a dans ce fichier dans le classeur Excel actif
Puis ferme le fichier .scl
et refait pareil pour un autre fichier car il est présent sous une boucle

Et il me met un message d'erreur qui est :
Erreur 55
Fichier déjà ouvert

En me montrant la ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Open Nom_fichier_UDT For Input As #2