probleme workbooks close [Résolu]

[fmris]

bonjour j'utilise le code suivant

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
   Dim Fichier As String
Fichier = Application.GetOpenFilename("Fichiers sans extension (*.), '*.")
Workbooks.OpenText Fichier, _
       Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
       xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
       Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
       TrailingMinusNumbers:=True
'MsgBox ActiveWorkbook.ActiveSheet.Name
 
   Cells.Select
    Selection.Copy
    Windows("alignement v01.xls").Activate
    Sheets("Feuil1").Select
    Cells.Select
    ActiveSheet.Paste
    Workbooks(2).Close

seulement dans ma macro, une fenetre a la fin apparait indiquant que le presse papier contient une grande quantié d'inforamtions. Je clique sur oui et tout rentre dans l'ordre.
seulement je souhaiterais que cette fenetre n'apparait plus ou que je reponde oui dans mon code mais je ne sais pas comment faire ?

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Fichier As Variant
 
Application.ScreenUpdating = False
Fichier = Application.GetOpenFilename("Fichiers sans extension (*.), '*.")
If Fichier <> False Then
    Workbooks.OpenText Fichier, Origin:=xlWindows, StartRow:=1, _
                       DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                       ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
                       Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    With ActiveWorkbook
        .Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets("Feuil1").Range("A1")
        .Close False
    End With
End If

[fmris]

ca marche merci