Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 08/10/2011, 17h46   #1
Membre du Club
 
Inscription : septembre 2006
Messages : 197
Détails du profil
Informations forums :
Inscription : septembre 2006
Messages : 197
Points : 44
Points : 44
Par défaut probleme workbooks close

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 ?
fmris est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/10/2011, 18h07   #2
Expert Confirmé Sénior
 
Avatar de mercatog
 
Inscription : juillet 2008
Messages : 5 848
Détails du profil
Informations forums :
Inscription : juillet 2008
Messages : 5 848
Points : 13 907
Points : 13 907
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
__________________
Cordialement.
mercatog est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/10/2011, 22h55   #3
Membre du Club
 
Inscription : septembre 2006
Messages : 197
Détails du profil
Informations forums :
Inscription : septembre 2006
Messages : 197
Points : 44
Points : 44
ca marche merci
fmris est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 19h41.


 
 
 
 
Partenaires

Hébergement Web