Problème avec bouton excel
Résolu
fab1205
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
fab1205 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
fab1205 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Problème avec bouton excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
