[Solutionné][VBA] erreur avec Paste, je comprends pas pourquoi

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Solutionné][VBA] erreur avec Paste, je comprends pas pourquoi

tuxbleu

renie ses origines

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 :cry:

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

Publicité

olivthill

Paste (avec un "e" à la fin et qui est prononcé "peste" ) est différent selon le type de données auquel il est appliqué.
En l'occurence, comme la copy concerne une selection, je crois qu'il faudrait faire un paste d'une selection, donc remplacer "ActiveSheet.Paste" par "Selection.paste".

Message cité 1 fois

tuxbleu

renie ses origines

olivthill a écrit :

oui, désolé pour le "e" manquant, ca veut forcement rien dire comme je l'avais écris :jap:

donc, j'ai essayé en suivant ton conseil :

Code :

Cells.Select
MsgBox "on a sélectionné"
Selection.Copy
MsgBox "on a copié"
Workbooks("16.xls" ).Activate
MsgBox "on a changé de feuille"
Cells.Select
MsgBox "on a re-selectionné"
Selection.Paste
MsgBox "on a collé et c'est fini"

Et j'ai une autre erreur : "Erreur 438 : propriété ou métode non gérée par cet objet"

Une idée ? merci du premier indice en tout cas

tuxbleu

renie ses origines

Solutionné !!!
Il fallait sélectionner un range avant le paste : ActiveWorkbook.ActiveSheet.Range("A1" ).Select

Code :

Cells.Select
MsgBox "on a sélectionné"
Selection.Copy
MsgBox "on a copié"
Workbooks("16.xls" ).Activate
MsgBox "on a changé de feuille"
MsgBox "on a re-selectionné"
ActiveWorkbook.ActiveSheet.Range("A1" ).Select
ActiveWorkbook.ActiveSheet.Paste
MsgBox "on a collé et c'est fini"

Ca, ca plante pas. :wahoo:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Solutionné][VBA] erreur avec Paste, je comprends pas pourquoi

Sujets relatifs
IE7 attraper l'erreur "URL trop longue"	VBA EXCEL liste déroulante entre deux fichiers
Erreur de code en PHP	Conversion VBA word vers VBS
[Resolu] Excel VBA Regrouper des valeurs depuis des classeurs/feuilles	Changer une application VBA pour un autre language de programmation
Commande VBA spécifique à CATIA	Problème sauvegarde envoi de mails Lotus Notes dans macro VBA
VBA Excel, problème de filtre avec valeurs décimales	Créer une fonction en VBA
Plus de sujets relatifs à : [Solutionné][VBA] erreur avec Paste, je comprends pas pourquoi

Page générée en 0.084 secondes