Transfer donnée suivant colonne
Bonjour,
Je n'y connais rien au niveau des macro
mais il faudrait que je puisse (par le biais de votre aide)
réaliser l'envoi d'information vers un autre fichier nommé Fichier listing.xlsx (ce fichier contient déjà des informations. Ces nouvelle informations devront ce mettre a la suite de ce qui existe déjà.
Le petit truc en plus c'est que les colonnes ne corresponde pas.
Ci joint un exemple avec des explications.
D'avance merci
KissCool
Bonjour
Un essai à tester. Te convient-il ?
Bye !
Bonjour et merci de ton implication,
j'ai une erreur quand je clic sur "Reporter"
En débug il m'annonce cette ligne
lgn = Workbooks("Fichier listing.xlsx").Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp)(2).Row
D'avance merci
mais je pense que sur le principe, c'est bien cela
KissCool
Bonjour
C'est curieux...Peut-être travailles-tu sur un PC où la version Excel est de 2003 ou antérieure.
Dans ce cas, remplace l'instruction qui bug :
lgn = Workbooks("Fichier listing.xlsx").Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp)(2).Rowpar :
lgn = Workbooks("Fichier listing.xlsx").Sheets("Feuil1").Range("A" & 65536).End(xlUp)(2).RowOK ?
Bye !
Non c'est une version d'Excel de 2013
les deux fichiers sont dans le même répertoire,
mais pas au premier niveau du disque dur (je ne sais pas si ça a une incidence)
merci
Le fichier de destination doit être ouvert.
Il doit avoir comme nom : "Fichier listing.xlsx"
La feuille de ce fichier où on colle les données doit s'appeler ''Feuil1".
Si ces conditions sont bien remplies, je ne vois pas pourquoi ce bug se produit...
Bye !
C'est pour ça que cela ne fonctionne pas,
le fichier de destination n'est pas ouvert.
Le but étant que celui ci ne soit pas ouvert, mais juste pouvoir inscrire dedans les novelles information
peux être faut il modifier la macro existante du bouton "Envoyer"
pour effectue le lien entre les différentes colonne ?
Merci
KissCool
Bonjour,
Comment serait il possible de modifier la macro (du bouton "Envoyer") pour intégrer la correspondance des colonnes
colD = Choose(j, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M")
colF = Choose(j, "C", "Q", "R", "B", "S", "T", "A", "M", "O", "U", "V", "W", "P") D'avance merci de votre aide
KissCool
Bonjour
Nouvel essai.
Bye !
Merci de ton implication,
mais entre les deux fichier Excel, je ne vois pas de différence dans la macro du bouton " Reporter"
Le but étant de pouvoir envoyer ces informations dans l'autre fichier Excel "Fichier listing..." sans que celui ci soit ouvert, mais
de pouvoir effectuer les correspondances des colonnes !
Voilà les contraintes du jours
Merci
KissCool
Merci gmb
mais j'ai une erreur ligne :
lgn = Workbooks("Fichier listing.xlsx").Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp)(2).Row
le fichier destination s'ouvre et c'est tout,
Sniff,
Bonne journée
KissCool
Bonjour
C'est curieux je viens de refaire l'essai et le Fichier listing s'ouvre, sans qu'on le voit, reçoit les données et se referme comme il faut...
Bye !
Ok
je ne sais pas qui c'est passé,
ça fonctionne comme je le souhaite.
Un GRAND merci pour ton aide et ta persévérance
Bonne journée
KissCool