Rapatrier des données d'un fichier excel à l'autre via VBA

Bonjour,
Je souhaiterais rapatrier des données d'un fichier à un autre sachant que dans les deux fichiers j'ai des données communes notamment le numéro de l'activité dans le fichier 1 "Colonne G" dans le fichier 2 "colonne B".

le premier fichier me permet de planifier les activités au jour le jour
le deuxième fichier 2 me permet de suivre les activités finit pour archivages des dossiers

Dans le premier fichier je souhaiterais, récupérer trois informations :
* A quel entreprise j'ai confier la tâche "Colonne V"
* A quelle personne j'ai transmis le dossier "Colonne AW"
* Et si le prestataire m'a rendu le dossier "colonne AX".

Ces trois informations je souhaiterais les retrouver dans mon deuxième fichier en face du bon numéro d'activité.
Sachant que ces 3 informations devront être rapatrier dans les colonnes suivantes :
* A quel entreprise j'ai confier la tâche "Colonne H"
* A quelle personne j'ai transmis le dossier "Colonne I"
* Et si le prestataire m'a rendu le dossier "colonne J".

N'arrivant pas à créer une macro qui me permet de faire ça je me tourne vers vous merci d'avance de prendre du temps pour me répondre

bonjour aurel262,

Je me permets, si tu veux bien de reformuler ta demande.
tu cherches à remplir le fichier 2 à partir du 1 avec :
F1 Col V = F2 Col H
F1 Col AW = F2 Col I
F1 Col AX = F2 Col J

Veux-tu absolument du VBA ou de simples formules ?

Merci

Ben les formules j'ai essayé avec rechercheV mais ça me met en permanence #N/A et d'autre formule Excel idem
Du coup je penser plutôt à du VBA

aurel262

d'abord, je te conseille d'utiliser les tables d'excel pour travailler, ce qui permet de lire facilement les formules tant dans un fichier que dans VBA...
Tu trouveras un bon tuto ici :

Pour ton pb, je te propose des formules du type Index Equiv, beaucoup plus efficasse que les rechercheV
Dans ton fichier 2

Code:

---

1 2 3

colonneH=INDEX (Class1.xlsx!TbSource[#Données];Equiv([#Cette ligne];Class1.xlsx!TbSource[Us];0);22) colonneI=INDEX (Class1.xlsx!TbSource[#Données];Equiv([#Cette ligne];Class1.xlsx!TbSource[Us];0);49) colonneH=INDEX (Class1.xlsx!TbSource[#Données];Equiv([#Cette ligne];Class1.xlsx!TbSource[Us];0);50)

---

22, 49, 50 correspondant aux colonnes V, AW et AX du fichier 1
Class1.xlsx!TbSource[#Données] = tout le tableau du fichier 1
[#Cette ligne] représente la cellule que tu cherches dans le fichier 2
0 = Avec exactitude
TbSource[Us]= Us est le nom de la colonne du fichier 1 (source) qui contient la donnée cherchée que tu peux remplacer par qqc comme (A2) si tu n'as pas nommé tes tableaux

Tu auras une réponse de type #N/A si la donnée recherchée dans le fichier 2 n'existe pas dans le fichier 1

j'espère que ça répondra à ta question

bonjour aurel262
Si ton pb est résolu, ce serait sympa de nous faire par ta solution et de cliquer sur le bouton Pièce jointe 201273
Merci et bonne journée