Problème avec bouton excel
Résolu
Bonjour,
j'ai crée un bouton sur une feuille excel, ce bouton va m'ouvrir un fichier txt sous un nouveau classeur excel, copier cette feuille, et revient me la copier dans mon classeur de base.
La macro de mon bouton se place dans vb dans l'onglet microsoft excel objects/ feuille 4. Mon code est le suivant:
Workbooks.OpenText Filename:="D:\IMPORT.txt", Origin:=xlWindows, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Windows("IMPORT.txt").Activate
Cells.Select
Selection.Copy
Windows("moulinette_prob2.xls").Activate
ActiveSheet.Paste
Workbooks("IMPORT.txt").Close SaveChanges:=False
Quand j'arrive sur la ligne Cells.select une erreur apparait: Erreur d'execution 1004: Erreur définie par l'application ou par l'objet.
Ce que je ne comprends pas c'est que si je mets mon code dans un module et que je lance la macro manuellement depuis vb cela fonctionne... HELP Please!!!!! Merci d'avance
j'ai crée un bouton sur une feuille excel, ce bouton va m'ouvrir un fichier txt sous un nouveau classeur excel, copier cette feuille, et revient me la copier dans mon classeur de base.
La macro de mon bouton se place dans vb dans l'onglet microsoft excel objects/ feuille 4. Mon code est le suivant:
Workbooks.OpenText Filename:="D:\IMPORT.txt", Origin:=xlWindows, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Windows("IMPORT.txt").Activate
Cells.Select
Selection.Copy
Windows("moulinette_prob2.xls").Activate
ActiveSheet.Paste
Workbooks("IMPORT.txt").Close SaveChanges:=False
Quand j'arrive sur la ligne Cells.select une erreur apparait: Erreur d'execution 1004: Erreur définie par l'application ou par l'objet.
Ce que je ne comprends pas c'est que si je mets mon code dans un module et que je lance la macro manuellement depuis vb cela fonctionne... HELP Please!!!!! Merci d'avance
Configuration: Windows XP Internet Explorer 6.0
