copier des données d'un classeur vers un autre

**jackall** · 01/08/2008, 10h49

bonjour à tous,

voila ma petite question, comment je pourrais faire pour copier des données d'un classeur, vers un autre ?
en sachant que c'est pour faire une base de donnée avec le deuxième classeur

voila en attendant de vous lire
salutation

**ilcocodrillo** · 01/08/2008, 11h44

Heu.... Copier-Coller... non ?

**jackall** · 01/08/2008, 11h49

oui j'y avais déja pensé, mais je voudrai que cela ce fasse automatiquement, sa serais plus pratique pour moi ^^

**fring** · 01/08/2008, 12h05

Envoyé par jackall

mais je voudrai que cela ce fasse automatiquement

C'est à dire ? Dès que le café a fini de couler ?

**jackall** · 01/08/2008, 12h07

heu ... nan ... pas vraiment, sa serait trop long ... ^^
non en fait je voudrais que lors de la fin de la dernière macro de mon programme qui se trouve dans mon premier classeur, qu'elles se copies d'elle même dans le deuxième classeur.

bon je vais reformuler un peu tout sa ^^

Mon premier classeur se compose de deux feuilles, dans chacune de ces feuilles il y a un bouton qui me permet de faire tous les calculs des feuilles respective.
Mon but est de copier automatiquement à chaque fin de calcul les données dans mon deuxième classeur ou la base de donnée sera faite.

^^voila je pense cette fois j'ai mieu expliquer ^^

merci d'avance

**fring** · 01/08/2008, 14h36

le croco t'a donné la réponse il me semble, tu copies/colles tes données dans ton autre classeur, il suffit de mettre la procédure de copier/coller en fin de procédure de calcul.

**jackall** · 01/08/2008, 14h48

oui je suis d'accord avec vous, mais pour chaques calculs que je fait, je voudrais que les résultats se place toujours une ligne en dessou des précédent, c'est sa qui me bloque en fait ...

**fring** · 01/08/2008, 15h07

En concidérant que tes deux classeurs sont ouverts, voici un petit exemple qui va copier une plage de cellules A1:C10 de la feuille2 du classeur1 vers la feuille2 du classeur2, à la suite des données précédemment copiées

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
Dim ShSource As Worksheet, ShDest As Worksheet
 
Set ShSource = Workbooks("classeur1.xls").Sheets("Feuil2")
Set ShDest = Workbooks("classeur2.xls").Sheets("Feuil2")
 
ShSource.Range("A1:C10").Copy ShDest.Range("A65535").End(xlUp).Offset(1, 0)
 
End Sub

**jackall** · 01/08/2008, 15h21

merci pour ta réponse,
maintenant est ce que tu pourrais m'aider pour que à chaque fois que je fais des calculs, il me les copies sur la ligne suivante dans ma base de donée ?

**fring** · 01/08/2008, 15h26

bin...euuhhh...il me semble que c'est ce que je viens de t'expliquer

Tu as une procédure qui réalise des calculs, à la fin de cette procédure tu ajoutes les quelques lignes de code en adaptant la plage de cellules, les noms de classeurs et de feuilles. Je ne vois pas très bien ce que je peux faire de plus (à part faire couler le café

)

**jackall** · 01/08/2008, 15h29

ben une bonne tasse de café serais la bienvenu

en tout cas merci bien pour ton aide je pense que sa va m'aider énormément
un grand merci pour ton aide

**Gorfael** · 01/08/2008, 15h40

Salut à tous
fring déolé de critiquer ton code, mais

Code :

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

ShSource.Range("A1:C10").Copy ShDest.Range("A65535").End(xlUp).Offset(1, 0)

devrait présenter une erreur : copy n'admet pas, à ma connaissance Offset. Moi, je remplacerais

Code :

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

ShDest.Range("A65535").End(xlUp).Offset(1, 0)

par

Code :

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

ShDest.Range("A" & shdest.[A65535].End(xlUp).row + 1)

Mais j'ai pas testé.
A+

**fring** · 01/08/2008, 15h45

Envoyé par Gorfael

Mais j'ai pas testé.

Moi oui

**jackall** · 01/08/2008, 15h48

heu je suis désolé de revenir vous embêter un peu mais j'ai encore un petit problème ...

j'ai utiliser donc le code donné au dessu, mais mis à ma sauce bien évidement ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
Sub macro1()
Dim ShSource As Worksheet, ShDest As Worksheet
 
Set ShSource = Workbooks("projet_stage.xls").Sheets("STAT_GOOD")
Set ShDest = Workbooks("Base_de_Donnée.xls").Sheets("BDD")
 
ShSource.Range("C17:G17").Copy ShDest.Range("C5").End(xlUp).Offset(1,0)
End Sub

et une fois que je vais dans le classeur de la base de donnée, il y a écrit : #DIV/0!

même en remplaçant :

Code :

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

1
2
3
4
5
6
7
8
Sub macro1()
Dim ShSource As Worksheet, ShDest As Worksheet
 
Set ShSource = Workbooks("projet_stage.xls").Sheets("STAT_GOOD")
Set ShDest = Workbooks("Base_de_Donnée.xls").Sheets("BDD")
 
ShSource.Range("C17:G17").Copy ShDest.Range("C" & ShDest.[A65535].End(xlUp).Row + 1)
End Sub

même erreur dans la base de donnée ...

**fring** · 01/08/2008, 15h56

Oui...je n'ai pas réfléchi suffisament, ce que je t'ai proposé il copie tout, y compris les formules et c'est ce qui coince dans le fichier de destination.

Essaye ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
Dim ShSource As Worksheet, ShDest As Worksheet
 
Set ShSource = Workbooks("projet_stage.xls").Sheets("STAT_GOOD")
Set ShDest = Workbooks("Base_de_Donnée.xls").Sheets("BDD")
 
ShSource.Range("C17:G17").Copy
ShDest.Range("C65535").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
 
End Sub

**jackall** · 01/08/2008, 16h07

oui voila la sa marche trés trés bien ^^
grâce à ce bon en avant, j'ai une autre question qui me vient,
je voudrai copier donc deux lignes mais les placer l'une à coté de l'autre dans la base de donné, comme par exemple la ligne C17:G17 et la ligne C18:G18
parceque jusqu'à maintenant elle se place l'une en dessou de l'autre

**Gorfael** · 01/08/2008, 16h17

Salut jackall et le forum
Je suppose que tes lignes contiennent des formules en adressage relatif ?

Code :

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

ShSource.Range("C17:G17").Copy ShDest.Range("C5").End(xlUp).Offset(1,0)

à remplacer par

Code :

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

1
2
ShSource.Range("C17:G17").Copy
ShDest.Range("C5").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Faire coper/collage spécial : les valeurs
Sinon, puisque c'est des résultats de formules que contient la colonne C, il me semble qu'il serait préférable de copier les paramètres, et éventuellement les résultats (en copier/coller spécial value). Comme ça, tu pourrais en remettant les paramètres sauvegardées, avoir les bons résultats.
A+

**jackall** · 01/08/2008, 16h23

oui merci, je vais voir avec sa se que je peut faire, merci pour votre aide, les gens sur ce forum sont extrèmement sympa, j'aime bien

voila encore merci de votre aide
@+

**fring** · 01/08/2008, 16h35

je voudrai copier donc deux lignes mais les placer l'une à coté de l'autre dans la base de donné, comme par exemple la ligne C17:G17 et la ligne C18:G18
parceque jusqu'à maintenant elle se place l'une en dessou de l'autre

Juste une petite adaptation qui devrait ressembler à un truc du genre

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
Sub Macro1()
Dim ShSource As Worksheet, ShDest As Worksheet, DerL As Long
 
Set ShSource = Workbooks("projet_stage.xls").Sheets("STAT_GOOD")
Set ShDest = Workbooks("Base_de_Donnée.xls").Sheets("BDD")
 
DerL = ShDest.Range("C65535").End(xlUp).Row + 1
 
ShSource.Range("C17:G17").Copy
ShDest.Range("C" & DerL).PasteSpecial xlPasteValues
Application.CutCopyMode = False
ShSource.Range("C18:G18").Copy
ShDest.Range("H" & DerL).PasteSpecial xlPasteValues
Application.CutCopyMode = False
 
End Sub

**jackall** · 01/08/2008, 17h20

voila désormais cela fonctionne trés trés bien merci pour votre aide

à bientôt tous le monde
@+

copier des données d'un classeur vers un autre

Macros et VBA Excel

Discussions similaires

Partager

Partager