Bonjour,
Ma macro semble simple, et pourtant je ne comprends le plantage :
Le but est d'ouvrir un fichier excel (160021.xls), de copier la feuille active, d'ouvrir un autre fichier (16.xls) de créer un onglet et d'y coller ce que j'ai copié précédemment.
Tout ce déroule bien, sauf le Past.
J'ai débuggé à base de "msgbox" comme vous pouvez le voir, et ya que là qu'il y a un soucis : "erreur d'exécution 1004 : erreur définie par l'objet..."
Le plus fort, c'est qu'une fois que ca a planté, si je vais sur la feuille où je voulais coller, j'ai juste à faire "Ctrl+v" et ca colle.
Ca fait plus de deux heures que je cherche une solution, j'y arrive pas, please help
Code :
- Sub Copie(nomOnglet)
- '
- ' Copie Macro
- '
- If test_fichier_ouvert("16.xls" ) = False Then
- Workbooks.Open Filename:="C:\Documents and Settings\All Users\Bureau\test\16.xls"
- Else
- Workbooks("16.xls" ).Activate
- End If
- Call CreerOnglet("16.xls", nomOnglet, False)
- If test_fichier_ouvert("160021.xls" ) = False Then
- Workbooks.Open Filename:="C:\Documents and Settings\All Users\Bureau\test\tout\160021.xls"
- Else
- Workbooks("160021.xls" ).Activate
- End If
-
- Cells.Select
- MsgBox "on a sélectionné"
- Selection.Copy
- MsgBox "on a copié"
- Workbooks("16.xls" ).Activate
- MsgBox "on a changé de feuille"
- ActiveSheet.Paste
- MsgBox "on a collé et c'est fini"
- End Sub
|
Message édité par tuxbleu le 10-03-2008 à 18:38:15