Discussion :

[Naoned005]

Bonjour,

J'ai lu cette discussion.
J'ai essayé le code de jfontaine

Code :

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

1
2
3
4
5
Sub CopierUnePlageDeCelluleDansUnAutreFichier()
 
ActiveWorkbook.Sheets("VBA Essai").Range("A1:E42").Copy Workbooks("rrrrrr").Sheets(Feuil1).Range("A1")
 
End Sub

J'ai 1 fichiers Excel d'ouvert nommé VBA essai ou il y a juste les petits trucs suivant dans la Feuilles 1.

date fonds	Actions acheté	quantité d'action
12-avr-12	Financiere	Total	1000
12-avr-12	Bellancourt	Axa	9
12-avr-12	Bellancourt	Axa	8
12-avr-12	Financiere	Axa	7
12-avr-12	Bellancourt	Axa	4
12-avr-12	Bellancourt	Axa	5
12-avr-12	Financiere	Axa	6
12-avr-12	Bellancourt	Axa	3
12-avr-12	Bellancourt	Total	2
12-avr-12	Financiere	Axa	1
12-avr-12	Bellancourt	Axa	2
12-avr-12	Financiere	Axa	2
12-avr-12	Bellancourt	Axa	3
12-avr-12	Bellancourt	Axa	5
12-avr-12	Financiere	Axa	4
12-avr-12	Bellancourt	Axa	4
12-avr-12	Financiere	Axa	7
12-avr-12	Bellancourt	Total	8
12-avr-12	Bellancourt	Axa	69
12-avr-12	Bellancourt	Axa	5
12-avr-12	Bellancourt	Axa	54
12-avr-12	Financiere	Axa	4
12-avr-12	Bellancourt	Axa	5
12-avr-12	Bellancourt	Axa	56
12-avr-12	Financiere	Total	1000

Normalement avec ton code, mes données devraient se copier dans un deuxieme fichier excel qui va s'ouvrir appelé rrrrrr dans la feuille Feuil1 à partir de A1?

[jfontaine]

Normalement avec ton code, mes données devraient se copier dans un deuxieme fichier excel qui va s'ouvrir appelé rrrrrr dans la feuille Feuil1 à partir de A1?

Le classeur doit être ouvert pour que ce code fonctionne.
NB :il faut mettre des Quotes avant et après Feuil1 si c'est le nom de l'onglet

[Naoned005]

Avec ce code, cela ne semble pas fonctionner

Code :

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

1
2
3
4
5
6
Sub CopierUnePlageDeCelluleDansUnAutreFichier()
 
ActiveWorkbook.Sheets("VBA Essai").Range("A1:E42").Copy Workbooks("rrrrrr").Sheets("Feuil1").Range("A1")
 
 
End Sub

Pourtant j'ai deux fichiers excel enregistré sur mon bureau et ouvert un qui s'appel VBA Essai et un autre qui s'appel rrrrrr et quand je fais exécuter ma plage A1 à E42 de la premiere feuille active du fichier VBA Essai ne se copie pas dans la Feuil1 du fichier rrrrrr



Merci pour ta réponse en tout cas

[L'Albatros]

En décomposant la ligne en plusieurs instructions, regarde là où ça coince avec des balises. C'est moche mais radical:

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
 
Sub CopierUnePlageDeCelluleDansUnAutreFichier()
'
' L'Albatros
 
'ActiveWorkbook.Sheets("VBA Essai").Range("A1:E42").Copy Workbooks("rrrrrr").Sheets("Feuil1").Range("A1")
 
Windows("VBA essai.xlsm").Activate
Sheets("Feuil1").Select
MsgBox "Balise test 1"
Range("A1:E42").Select
Selection.Copy
MsgBox "Balise test 2"
Windows("rrrrrrr.xlsx").Activate '----attention au nombre de "r"
Sheets("Feuil1").Select
Range("A1").PasteSpecial
 
End Sub

'-------------------------------------------------------------------------
Merci de valider mon commentaire si je vous ai aidé

[bilou23]

La feuille de ton classeur VBA Essai qui contient la plage a copier s'appelle aussi VBA Essai ? Sinon, il faut remplacer VBA Essai dans ton code par le nom de la feuille.
Assure toi aussi que le classeur VBA Essai est active avant d’exécuter le code.