Discussion :

[EricBOG]

Bonjour à tous!

Je me prends la tête depuis qques heures pour réussir à copier des données d'une feuille d'un classeur ouvert (macro activée par bouton), vers une autre feuille (déjà nommée) d'un autre classeur qui est fermé.
Toutes les étapes se déroulent plutot bien jusqu'à la dernière (ActiveSheet.Paste) et je n'arrive pas à trouver pourquoi.

Merci pour l'aide. Ci-dessous mon code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub StartMacroExportData()
 
Dim wb_Target As Workbook
Dim wb As Workbook
Dim wsCOMP As Worksheet
Dim wsMAMGMS As Worksheet
 
Set wb = Me.Application.ActiveWorkbook
Set wsCOMP = wb.Sheets("Consolidated GMS Data")
wsCOMP.Cells.Select
Selection.Copy
 
Workbooks.Open ("\\homedrives.bog.net\doueri1\Documents\Business Dispatching Data Process\Business Dispatching Analysis.xlsm")
 
Set wb_Target = Workbooks("Business Dispatching Analysis.xlsm")
Set wsMAMGMS = wb_Target.Sheets("Comparison MAM-GMS")
 
wb_Target.Activate
Sheets("Comparison MAM-GMS").Select
ActiveSheet.Paste
 
End Sub

[MlNOU]

Bonjour,


Une fois de plus un petit probleme de balise , le petit # en haut pour que ton code soit bien lisible.
Merci .


Cordialement MlNOU.

[Invité]

Code :

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

1
2
3
4
5
6
7
Sub StartMacroExportData()
Dim wb As Workbook
Dim OpenWb As Workbook
Set wb = ActiveWorkbook
Set OpenWb = Workbooks.Open("\\homedrives.bog.net\doueri1\Documents\Business Dispatching Data Process\Business Dispatching Analysis.xlsm")
wb.Sheets("Consolidated GMS Data").Cells.Copy OpenWb.Sheets("Comparison MAM-GMS").Range("A1")
End Sub

[EricBOG]

Bonjour Robert et merci pour ta réponse rapide et ton indulgence quant à mon oubli de balise
Je ne pourrai tester ta solution que lundi, mais je suis sûr que cela va fonctionner. Bon WE!

Eric

Bonjour Robert,

Je viens de tester le programme que tu m'avais envoyé vendredi.
Il m'indique un problème de synthaxe concernant la dernière ligne:

Code :

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

Set OpenWb = Workbooks.Open("\\homedrives.bog.net\doueri1\Documents\Business Dispatching Data Process\Business Dispatching Analysis.xlsm") wb.Sheets("Consolidated GMS Data").Cells.Copy OpenWb.Sheets("Comparison MAM-GMS").Range("A1")

J'ai un peu recherché sur le net et les fonctions semblent pourtant bien écrites. Vois tu d'où cela pourrait provenir?

Merci. Eric

[Invité]

bonjour,
avant de te l'envoyer, je l'ai testé avec un fichier local, et je n'ai pas trouvé de problème.
maintenant je viens de refaire le test et toujours pas de problème????

Code :

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

wb.Sheets("Consolidated GMS Data").Cells.Copy Destination:=OpenWb.Sheets("Comparison MAM-GMS").Range("A1")

[EricBOG]

Ca fonctionne super bien.
En fait je suis un boulet, je n'avais pas mis à la ligne avant le wb.sheet

Désolé et encore merci!

PS: Si tu veux, j'ai posté un autre problème de macro sur le forum VBA "Somme de valeur suivant condition sur cellule "
(je me permets étant donné ton efficacité!)

Eric