Macro déverser info dans prochaine case vide

Nolan03 Messages postés 9 Statut Membre -  
Nolan03 Messages postés 9 Statut Membre -
Bonjour,

J'ai besoin de faire une macro sur Excel liant deux fichier Excel distincts.

J'ai un tableau avec une série de chiffres (un par colonne qui correspond à un par année) (en ligne) correspondant à un nom (colonne A) qui doit alimenter à la première case vide de la ligne un autre fichier excel.

Ce deuxième fichier excel comporte les mêmes noms et les mêmes informations sauf qu'elles sont renseignées par date d'arrivée. Ce qui fait que pour un nom le chiffre juste à côté correspondra à l'année 2003 tandis que le chiffre juste à côté du nom d'en dessous correspondra à l'année 2006.

Les derniers chiffres (de la dernière années) ne se trouvent donc pas au même endroit (colonne) dans les deux fichiers ...

Je voudrais un bouton sur le premier fichier me permettant de tout déverser dans le deuxième.

Comment puis-je faire ...?

Merci d'avance !

.
A voir également:

9 réponses

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour

Comment puis-je faire ...?

Déjà être plus clair !

Au besoin, mettre les classeurs sans données confidentielles en pièce jointe (format XL97-2003) sur
http://cijoint.fr/
et coller le lien proposé dans le message de réponse
0
Nolan03 Messages postés 9 Statut Membre
 
Bonjour,

J'ai mis les fichiers sur http://cijoint.fr/ et vous trouverez ci-dessous les liens.

Sur chaque fichier est indiqué le déroulé de ce que je souhaiterai faire.

http://www.cijoint.fr/cjlink.php?file=cj201102/cijOMqMkdC.xls

http://www.cijoint.fr/cjlink.php?file=cj201102/cijL3Vuw5B.xls

Merci beaucoup de votre aide !!!
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour,
OK merci

Dans le 1° fichier (si je me mélange pas les pinceaux) il ya plusieurs feuille (marseille l'autre Paris): il faudrait donc un bouton par feuille ou ...?

Tu dis,
dans l'attente....
0
Nolan03 Messages postés 9 Statut Membre
 
Salut,

En fait, il faudra un unique bouton sur la page "sommaire" qui permettrait de déverser toutes les nouvelles données de toutes les pages du classeur!

Merci beaucoup !!!
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
OK, je rajoute donc une feuille sommaire
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Nolan03 Messages postés 9 Statut Membre
 
Je pensais mettre le bouton sur la première feuille du premier fichier (qui est vide) , mais en effet c'est peut être plus logique de la mettre sur le deuxième fichier !

Merci !
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
et non, je l'ai fait comme tu voulais au départ :-)

1/la macro est à adapter à l'emplacement réel du classeur baptisé "recap"
petit extrait
'ouvre le fichier recap 
Application.ScreenUpdating = False 
Workbooks.Open Filename:="D:\téléchargés\recap.xls" 'fullname à adapter

A faire au départ avant tout essai: chemin et nom du classeur

2/dans le fichier source l'ordre des feuilles est important pour suivre l'ordre vertical dans recap

3/petit truc non résolu: le transport des couleurs( du bleu à orange !!!): sans doute un mystère de 2007 (je viens juste de récupérer la licence 2007); les classeurs sont au format 97-2003

ci joint la b^te
https://www.cjoint.com/?3ckpIoSkrHf

Michel
0
Nolan03 Messages postés 9 Statut Membre
 
merci infiniment !!!

Pour les couleurs --> aucun souci! Ce n'est pas grave!

Cependant j'ai un souci avec le passage de l'ouverture du fichier recap !

L'emplacement est : D:\Mes documents\essai macro
le nom du fichier est : recap.xls

et en écrivant cela :
Application.ScreenUpdating = False
Workbooks.Open Filename:="D:\Mes documents\essai macro" 'recap.xls

J'ai droit au surlignage jaune avec la flèche sur le côté...
Je ne comprends pas ...
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Workbooks.Open Filename:="D:\Mes documents\essai macro\recap.xls "
ne pas oublier les guillemets

une astuce pour trouver la syntaxe, dans une cellule quelconque de récap
=SUBSTITUE(GAUCHE(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))-1);"[";"")
0
Nolan03 Messages postés 9 Statut Membre
 
Bonjour,

Merci infiniment pour ton aide! Je ne m'en serai jamais sortie toute seule !!!

Mais (car il y a presque toujours un mais...) le problème s'avère plus compliqué que prévu ...
J'ai remis sur cijoint.fr les deux nouveaux fichiers:
http://www.cijoint.fr/cjlink.php?file=cj201102/cijIFt6Olo.xls
http://www.cijoint.fr/cjlink.php?file=cj201102/cijE360XV7.xls
http://www.cijoint.fr/cjlink.php?file=cj201102/cijy5JreoC.xls

État des lieux des nouvelles données à prendre en compte:
1/ Il y a deux fichiers sources et un unique fichier recap
2/ Les données sources sont de quatre natures (A B C D)
3/ Chaque nature de données va s'intégrer dans une feuille spécifique du fichier recap qui rassemble l'intégralité des villes étudiées
4/ Ce n'est pas la dernière case remplie qu'il faut intégrer dans le fichier recap car en bout de ligne il y a la moyenne et l'évolution. Je pense qu'il faudrait alors formuler le corps de VBA en disant "la case remplie juste avant la première case vide")

Merci encore sincèrement pour tout ce que tu as fait, merci de ton aide.

Je n'ai pas pu te remercier ce WE car plus d'internet chez (quand il n'y a plus de problème, il y en a encore ...)
0
Nolan03 Messages postés 9 Statut Membre
 
Bonjour,

Je suis consciente du fait que ce que je demande prend énormément de temps et n'est pas si simple que cela, mais je ne saurai te remercier assez pour ton aide...

J'ai pensé à quelque chose qui pourrait simplifier la macro:
au lieu de copier le dernier chiffre (sachant que je n'ai jamais toutes les données en même temps...), on pourrait copier toute la ligne à chaque fois, comme cela pas d'erreur...

Merci encore d'avance pour ton aide!
0