bonjour j'utilise le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?