!!!!!! C'est vrai !! je suis sacrément bete !!!
Bref, le prob c que la tu dois :
1/ ouvrir le workbook
2/ copier coller
3/ fermer le workbook
La methode est soite pas trop compliquée et très propre mais bon t'as des fenetres qui s'ouvrent et qui se ferment ...
Du coup moi j'ai fait un ptit code pas complique du tout qui fait la meme chose mais en un peu plus système D. Voila le code pr ceux que ca interessent :
Dim i As Integer
Dim a As Integer
Worksheets("Parametres").Range("C15").Value = ListBox1.Value
Worksheets("Data").Range("A1:O5000").Clear
Worksheets("Data").Range("A1").Formula = "='C:\Excel\CCB\Fichiers Export\[" & ListBox1.Value & "]A'!A1"
Worksheets("Data").Range("A1").Copy
Worksheets("Data").Range("A1:O5000").PasteSpecial _
Paste:=xlPasteFormulas, SkipBlanks:=True
Sheets("Data").Activate
Sheets("Data").Select
i = 1
While Sheets("Data").Range("C1").Offset(i).Value <> "0"
i = i + 1
Wend
Sheets("Data").Range("C" & i & ":C5000").EntireRow.ClearContents
voila voila !
Ceci étant dit si qqun a du code tt fait pr la méthode énoncée au tout début du message je suis preneur !!
Merci
a++
dom.
PS : super forum j'vous dis
=