High-Tech Santé Médecine Droit-Finances

Bien choisir

son appareil photo

Rechercher : dans
Par :

Macro excel - Réunir des données

Dernière réponse le 21 mar 2009 à 15:39:16 fabnad, le 5 mar 2009 à 10:33:07 
 Signaler ce message aux modérateurs

Bonjour,

Toujours débutant en Macro excel....

Maintenant je cherche à réunir plusieurs données sous un même fichier dans un même onglet.

Mon document de base est classeur2.xls J'ai deux onglets, un nommé "Mois" vierge de données, l'autre nommé "Année" avec les anciennes données des mois précédents.
Mes données sont dans le fichier Classeurtestextraction.xls (Ce document regroupe mes données du mois)

A partir de classeur2.xls je veux lancer une macro permettant:
D'aller copier les données dans Classeurtestextraction.xls
De les coller dans l'onglet "Mois" de classeur2.xls
Jusque là je sais faire

Puis de les coller dans l'onglet "Année" de classeur2.xls
Comme dit précédement dans cet onglet figure déjà des données (données des mois précédents).
Je veux faire identifier à la macro la première cellule libre dans la colonne A afin de coller mes nouvelles données juste en dessous de la dernière ancienne.....
En résumé j'ai dans cet onglet des données occupants les colonnes A à G jusqu'à la ligne n
Je souhaite coller mes nouvelles données en An+1

Merci de vos réponses.

Configuration: Windows 2000
Internet Explorer 6.0

Posez votre question Répondre

1

pilas31, le 5 mar 2009 à 10:48:56

Bonjour,

La première ligne libre en VBA se trouve avec la formule suivante :

Sheets("Année").Range("A65536").End(xlUp).Row +1

A+
Cordialement,

   
Répondre à pilas31

2

fabnad, le 5 mar 2009 à 16:36:46

Salut Pilas31,

merci de ton retour,

cependant j'ai bien précisé être débutant.....
et donc je ne sais pas comment intégrer la comande dans ma macro.
De plus je viens d'être basculé sur un nouveau PC qui utilise office 2007

Ci dessous ma macro:
Visiblement rien ne marche je t'explique ma démarche dans ma tentative de macro !!!

Je souhaite copier dans la feuil1 les données qui commence en A1 et qui finisse en C quelquechose d'où la commande

Dim Derlig As Long
Sheets("Feuil1").Select
Derlig = Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(Derlig, 3)).Copy

puis les coller dans le feuil3 avec en point de référence la première cellule libre en colonne A d'où les commande
Sheets("Feuil3").Range("A65536").End(xlUp).Row 1
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ensuite copier des données se trouvant dans Feuil2 qui commencent en A1 et qui finisse en C quelquechôse d'où la commande
Dim Derlig As Long
Sheets("Feuil2").Select
Derlig = Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(Derlig, 3)).Copy

et enfin coller ses données dans la première cellule libre en colonneA

Sheets("Feuil3").Range("A65536").End(xlUp).Row 1
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Voici le tout associé:

Sub Macro3()
'
' Macro3 Macro
'

'
Dim Derlig As Long
Sheets("Feuil1").Select
Derlig = Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(Derlig, 3)).Copy
Sheets("Feuil3").Select
Sheets("Feuil3").Range("A65536").End(xlUp).Row 1
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Dim Derlig As Long
Sheets("Feuil2").Select
Derlig = Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(Derlig, 3)).Copy
Sheets("Feuil3").Range("A65536").End(xlUp).Row 1
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub


J'ai une erreur au niveau du second "Dim derlig As Long"...!!!

   
Répondre à fabnad

3

pilas31, le 5 mar 2009 à 17:05:50

Salut,

Je regarde et je te dis....

A+ Cordialement,

   
Répondre à pilas31

4

pilas31, le 5 mar 2009 à 17:15:21

Bon voila: 

Sub Macro3()
'
' Macro3 Macro
'
Dim Derlig As Long
'
Sheets("Feuil1").Select
Derlig = Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(Derlig, 3)).Copy
Sheets("Feuil3").Select
Derlig = Range("A65536").End(xlUp).Row + 1
Cells(Derlig, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Feuil2").Select
Derlig = Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(Derlig, 3)).Copy
Sheets("Feuil3").Select
Derlig = Range("A65536").End(xlUp).Row + 1
Cells(Derlig, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub


Ton code était presque correct, les 2 problèmes étaient :
1/ la double déclaration de Derlig
2/ avant le paste il faut selectionner la cellule

Cela doit fonctionner

A+ Cordialement,

   
Répondre à pilas31

5

fabnad, le 6 mar 2009 à 23:44:14

Merco Pilas,

J'avance petit à petit.
J'ai créé un code suite à tes infos avec création d'un Tab Croisé Dyn et j'ai un nouveau problème ... !!!


J'ai tenté +sieurs macros
1ére macro: directement avec sélection de données comme tu m'as appris puis insertion d'un tab croisé dyn.
2éme macro: Création d'une page - Insertion d'un tab Croisé Dyn

Le problèmeapparaît dès la commande "activeworkbook"

Voici mon code:



Sub Import_données()
'
' Import_données Macro
'

'
ChDir "C:\Users\ct2017\Local"
Workbooks.Open Filename:="C:\Users\ct2017\Local\Extraction_Mois.xls"
'
Dim Derlig As Long
'
Sheets("Mois").Select
Derlig = Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(Derlig, 7)).Copy
Windows("Stat.xls").Activate
Sheets("Année").Select
Derlig = Range("A65536").End(xlUp).Row + 1
Cells(Derlig, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Mois").Select
Derlig = Range("A65536").End(xlUp).Row + 1
Cells(Derlig, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'
Windows("Extraction_Mois.xls").Activate
ActiveWorkbook.Close
'
Sheets("Année").Select
Derlig = Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(Derlig, 11)).Select
'
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Année!L1C1:L34C11", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Graph1!L4C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10
Sheets("Graph1").Select
Cells(4, 1).Select

End Sub

   
Répondre à fabnad

6

pilas31, le 8 mar 2009 à 18:47:11

Bonjour,

J'ai regardé ton problème et voilà la solution qui fonctionne chez moi : 

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Année!R1C1:R21C8").CreatePivotTable TableDestination:="Graph1!R4C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10

Juste une petite remarque, si tu veux que tout le tableau soit pris en compte pour le tableau croisé dynamique et si je reprends la fin de ton code, cela devient : 
Sheets("Année").Select
Derlig = Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(Derlig, 11)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=Selection) _
.CreatePivotTable TableDestination:="Graph1!R4C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10

Voilà mais attention cela ne fonctionne que la première fois puisque c'est une création.

A+ Cordialement,

   
Répondre à pilas31

7

fabnad, le 9 mar 2009 à 11:56:17

Bonjour Pilas,

Merci de ton attention.
Je n'arrive pas à avancer malgré tes infos.
Je me demande si cela ne provient pas de mon fichier.

Est il possible de t'envoyer mon support de travail afin que tu fasses des tests dessus?

A+

   
Répondre à fabnad

8

pilas31, le 9 mar 2009 à 16:33:12

Bonjour,

Oui tu peux déposer le fichier sur www.cijoint.fr et me donner le lien pour le télécharger.

A+ Cordialement,

   
Répondre à pilas31

9

fabnad, le 10 mar 2009 à 11:11:02

Salut Pilas,

voici le lien.

http://www.cijoint.fr/cjlink.php?file=cj200903/cijDwPvDNj.xl­s

J'ai ajouté dans le fichier l'onglet "extraction_Mois" qui normalement est un autre fichier.
Pour que la macro corresponde il faut extraire cette onglet et le coller dans un fichier du même nom avec en nom d'onglet "Mois"
De plus la macro fait référence à l'arborescence de mon poste il faudra que tu modifies, mais c'est toi le pro pas moi, donc tu dois savoir....

Je te remercie de ton attention*

A+

   
Répondre à fabnad

10

pilas31, le 10 mar 2009 à 12:08:00

Salut,

Ok je regarde

A+ Cordialement,

   
Répondre à pilas31

11

pilas31, le 10 mar 2009 à 17:19:53

Re Bonjour,

Voila, j'ai modifié ton classeur pour qu'il fonctionne. Tu trouveras ma version sur cijoint :
http://www.cijoint.fr/cjlink.php?file=cj200903/cijnL7RFCg.xl­s

Les principales modifications sont les suivantes :
1/ la fonction de création du TCD est corrigée
2/ Si le TCD existe déjà, on ne fait que modifier la source de données, s'il n'existe pas on le crée. Ainsi tu peux activer l'import régulièrement, le tableau se complète et le TCD se met à jour
3/ Il faut que la feuille Graph1 existe (je l'ai ajoutée, il ne faut pas la supprimer)
4/ j'ai pris l'initiative de corriger un peu les formules des colonnes de H à K pour que les cellules restent blanches lorsqu'il n'y a pas d'incident

Regardes le code de la macro et dis-moi s’il y a encore des problèmes ou s’il y a des choses que tu ne comprends pas.


A+
Cordialement,

   
Répondre à pilas31

12

fabnad, le 12 mar 2009 à 19:26:25

Salut Pilas,


Merci la macro fonctionne super.
Je tente de comprendre les commandes en faisant défiler la macro pas à pas.
Je tenterai de la comparer avec la macro originale pour identifier les erreurs.

Merci également pour la modif des formules.... je savais faire mais je n'ai pas prit le temps....

Petite question tout de même:

Si je souhaite rajouter un graphique via un TDC dois-je créér un nouveau TDC ?
J'ai tenté de la faire mais sans grand succès.... !!!
Comme d'hab ....

A+

   
Répondre à fabnad

13

pilas31, le 12 mar 2009 à 22:21:50

Salut Fabnad,

Pour répondre à ta question non il n'est pas utile de créer un nouveau TCD. Par VBA il suffit de mettre les instructions suivantes : 

    Charts.Add
    ActiveChart.SetSourceData Source:=Sheets("Graph1").Range("A4")
    ActiveChart.Location Where:=xlLocationAsNewSheet


Cela créé un graphique à partir du TCD de la feuille "Graph1" dans une nouvelle feuille.
Chaque fois que tu exécutes ce code, une nouvelle feuille est créée toujours à partir du même TCD.

A+ Cordialement,

   
Répondre à pilas31

14

fabnad, le 15 mar 2009 à 15:58:46

Salut,

Manip de copie dans une autre feuille ok

Par contre si je change les données dans le TCD cela me change les donnés dans le graph de la nouvelle feuille....!!!
Donc impossible de créer d'autres graph compétement différent par cette commande....

Donc je relance encore un SOS

   
Répondre à fabnad

16

 pilas31, le 21 mar 2009 à 15:39:16

Bonjour,

Je viens de voir ta remarque.
Alors, rien ne t'empêche de créer un autre TCD dans une autre feuille à partir des mêmes données et un autre graphe à partir de ce nouveau TCD. Tu peux dupliquer le code et changer les noms de la feuille et du TCD...

A+ Cordialement,

   
Répondre à pilas31
Posez votre question Répondre
Ils ont besoin de votre aide