Discussion :

[Chabanana]

Bonjour à tous,

Je viens de passer quelques heures à écrire une macro Xcel pour mon boulot. Cependant, elle bug à l´endroit ou je m´y attendais le moins! En effet, une partie de ma macro consiste à faire des copier coller de feuilles entre deux fichiers... l´erreur 400 apparait à ce niveau là. Ci-dessous la partie du code qui ne va pas à priori:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Workbooks("banane.xls" ).Activate
 Sheets("Means").Select
	Cells.Select
 	Application.CutCopyMode = False
    	Selection.Copy
Workbooks("dollar.xlsm" ).Activate
Sheets("Sheet1").Select
	Cells.Select
	ActiveSheet.Paste

Je me torture l´esprit sur ce code de base, mais peut-etre que je suis à un point ou je n´ai plus de recul sur ce que je fais!

En vous remerciant par avance pour votre aide!

Charlène

[Nico Chg]

Bonjour,

EDIT:Peux tu poster ton code entre balise # ([CODE][ /CODE]) ?

Première chose qui me vient à l'esprit, c'est la gestion de la mémoire, surtout si tu boucle sur le code.

Essaie de copier coller le code en tête de module, ou dans un nouveau module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Sub Clear_Clipboard()
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
End Sub

Sinon, ton code peut être simplifier en deux lignes, tous ces select, c'est avec l'enregistreur de macro, non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.CutCopyMode = False
Workbooks("banane.xls" ).Sheets("Means").Cells.Copy
Workbooks("dollar.xlsm" ).Sheets("Sheet1").Cells.Paste
Call Clear_Clipboard

Sinon tu as un message d'erreur particulier ? Ou c'est juste erreur 400, point final ?

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.CutCopyMode = False
Workbooks("banane.xls" ).Sheets("Means").Cells.Copy
Workbooks("dollar.xlsm" ).Sheets("Sheet1").Cells.Paste
Call Clear_Clipboard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("banane.xls" ).Sheets("Means").Cells.Copy  Workbooks("dollar.xlsm" ).Sheets("Sheet1").Range("A1") 'non?

[Theze]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.....Cells.Copy

Alors autant copier la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Workbooks("banane.xls").Worksheets("Means").Copy Workbooks("dollar.xlsm").Worksheets(1)

Hervé.

[Invité]

Bonjour,
et oui

[Chabanana]

Bonjour à tous,

Merci pour le coup de main !
Désolée pour le manque de réaction mais il a fallu que je laisse mon code de coté pour un moment.
Pour répondre à Nico, j´ai crée ce code par moi meme, sans passer par l´enregistreur macro. J´ai appris VBA sur le tas et je pensais que c´était ainsi qu´il fallait procéder. Mais tes conseils sont bons à prendre dans tous les cas !

Je vais faire tourner vos suggestions, en croisant les doigts pour que cela marche et que je puisse mettre ce sujet en tant que résolu!

A+

Charlène