Discussion :

[sharox]

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

[sharox]

Je répond a ma propre question^^

Donc vu que je comprenais pas ca ligne ou il y avais l'erreur
je me suis questionné sur l'erreur et non la ligne ou il y avais l'erreur

Donc j'ai changé mas procédure en mettant non pas

Code :

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

Entree.Close

mais

Code :

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

Workbooks(Nom_fiche_UDT).Close

qui est le nom du fichier .scl

[Slooby]

Hello !

Félicitations ^^

Quand les gens demandent de l'aide, mais qu'en même temps ils continuent de chercher par eux même, ça me fait plaisir

ça montre qu'on ne nous prend pas juste pour des pigeons.

Bonne continuation dans ton code !

[sharox]

Merci beaucoup ^^

bah avec plaisir hein

bonne journée et bonne continuation a toi aussi !

[SfJ5Rpw8]

bonjour,

Code :

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

1
2
3
 
    Open Nom_fichier_UDT For Input As #2
    Set Entree = Workbooks.Open(Nom_fichier_UDT)

pourquoi ouvrir 2 fois ton fichier ? il faut que tu de décide dans la méthode à utiliser


avec ta première ligne tu ouvre ton fichier pour un accès séquentiel , tu accède ensuite au données contenues dans ce fichier grâce aux instructions Input # ou Line Input # ...

avec ta deuxième ligne tu ouvre directement ton fichier dans ton tableur ... les données ce plaçant dans les cellules de ta feuille....

à toi de choisir ... et d'éviter de mixer les deux méthodes ...

[kiki29]

Salut, à lire et assimiler : Manipulation des fichiers en VBA