Extraction d'une plage de cellules

[BremyHH]

Bonjour,

Voici la petite partie de programme qui me pose probleme..

Sub ouvrir_txt()

Dim MonFichier As String
Dim main_file As String
Dim data_file As String
Dim tbl As Variant

main_file = ActiveWorkbook.Name

MonFichier = Application.GetOpenFilename

If MonFichier = "False" Then
End
End If

Workbooks.OpenText filename:=MonFichier

data_file = ActiveWorkbook.Name

tbl = Range("A1:A130").value
Workbooks("main_file").Range("A1:A130").value = tbl
Workbooks("data_file").Close

End Sub

Lorsque je lance la macro, j'obtiens une erreur Out of range sur cette ligne. Je n'arrive vraiment pas a comprendre d'ou vient le probleme. J'ai utilisé une syntaxe semblabe a celle ci dans mon programme principal, et celui ci fonctionne parfaitement (A la seule difference que les plages que je m'anipulais étaient sur le meme Workbook).

J'ai utilisé la fenetre de variables locales, et mon tableau tbl contient bien 130 cases.
Comment se fait il que j'obtienne une erreur lorsque j'essaye de "coller" ce tableau dans une plage de cellules de meme supercifie ?

Merci d'avance, en espérant avoir été assez clair ^^

 

[Pierrot93]

Re : Extraction d'une plage de cellules

Bonjour,

A priori il manque déjà le nom de la feuille :

Workbooks("main_file.xls").Sheets("NomFeuille").Range("A1:A130").value = tbl

bon après midi
@+

Edition : rajouté également l'extension du fichier

 

[BremyHH]

Re : Extraction d'une plage de cellules

Tu viens de me faire tilter mon erreur.. L'extention, en fait le soucis Out of range provient du fait que je mettais

Workbooks("main_file")... au lieu de workbooks(main_file) avec main_file était une variable :/

Merci pour ton aide, c'est incroyable, a force de passer la journée a programmer et débuguer des problemes assez complexe, on finit par faire des erreurs toute betes !

Bonne aprem a toi aussi

 

[kjin]

Re : Extraction d'une plage de cellules

Bonjour,
Rien a avoir avec la dimension du tableau
Il y a 2 erreurs
- la variable entre guillemets
- l'absence de feuille

Edit : salut Pierrot

A+
kjin

 

[Pierrot93]

Re : Extraction d'une plage de cellules

Re,

et pas de souci avec le "sheets" manquant ?

Edition : bonjour Kjin

 

[BremyHH]

Re : Extraction d'une plage de cellules

Non pas de soucis avec le Worksheets("XXXX") manquant, mais je l'ai rajouté, au cas ou, pour etre sur de ne pas avoir de probleme