Intégrer les N° de clients dans un autre fichier


#1

Bonjour et merci d’avance

Voila j’ai deux fichiers Excel , un avec des N° de client et l’autre sans ces numéros , je souhaite intégrer les N° de clients directement dans l’autre fichiers correspondant à chaque ligne (environ 3470 lignes ) .
Fichiers 2
No CLIENT

RAISON SOCIALE

ADRESSE

C.P.

VILLE

TELEPHONE

NOMS

EMAILS

CA 2017

CA 2016

%

GAINS

CUMUL

DATE CDE

Non existant

92160

ANTONY

Fichiers 1
No CLIENT

RAISON SOCIALE

ADRESSE

C.P.

VILLE

CA 2017

CA 2016

%

GAINS

CUMUL

DATE CDE

TELEPHONE

NOMS

EMAILS

Existant

92160

ANTONY

Merci de votre réponse

Fabrice Honold
0660418857
[Description : Description : Logo - ISO14001]


#2

#3

Bonjour!

Je ne suis pas sur d’avoir bien compris ta question.
Pourrais tu nous donner plus de détails stp et si possible inclure un fichier d’exemple?

Merci et à bientôt


#4

Bonjour et merci de votre réponse.
Désolé pour l’explication succincte.

Voilà en pièce jointe deux exemples de fichiers Excel, pas forcément en cohérence dans les données pris au hasard, mais la base et construction est bien la bonne.

En fait le 1er tableau comporte des N° de clients et je souhaite les associées directement sur le 2scd tableaux t qui ne comporte justement pas ces N° de clients, plus noms, contacts et Emails.

Afin d’éviter de tous ressaisir à la main ou de faire du copier-coller, car j’ai environ 3470 lignes.

Merci

Fabrice Honold

[téléchargement (1)]: 06 60 41 88 57
• : honoldfabrice@hotmail.commailto:honoldfabrice@hotmail.com

Classeur1 Exemple (1).xlsx (10.7 KB)

Classeur2 Exemple.xlsx (9.71 KB)


#5

Bonjour,

A savoir:
Y a t’il plusieurs N° de client par rapport au nom de l’établissement, code postal et ville ?

Si OUI, c’est mort


#6

Non un seul numéro par client

Merci

Fabrice Honold

[téléchargement (1)] : 06 60 41 88 57


#7

Re,

Les deux classeurs doivent être dans le même dossier.
Modifier dans la macro le noms des classeurs pour le montage final

ATTENTION AUX ESPACES AVANT et/ou APRES DANS LES CELLULES (Voir dans le classeur Exemple 1 que vous avez mis en ligne)

Ouvrir que le classeur Exemple 2 et clic sur le bouton Bleu

CODE VBA:

Sub Transfert()
Dim i%, j%, DlWb1%, DlWb2%, Cherche$
Dim Wb2 As Object
Dim Wb1 As Object
 
Application.ScreenUpdating = False 'Désactive le rafraissement d'écran

'************************************************************************
'              MODIFIER LES NOMS DES CLASSEURS SI DIFFERENT
'************************************************************************

Set Wb1 = Workbooks("Classeur2 Exemple.xlsm") ' classeur qui possède le code VBA & les N° clients
Set Wb2 = Workbooks.Open("Classeur1 Exemple (1).xlsx") ' ouvre le classeur 2
    
DlWb1 = Wb1.Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row  'n° de la dernière ligne non vide de la colonne B
DlWb2 = Wb2.Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
  For i = 2 To DlWb2 'Boucle classeur 1
    For j = 2 To DlWb1 ' Boucle classeur 2
      Cherche = Wb1.Sheets("feuil1").Cells(j, 2).Value 'Variable contenant le morceau de Raison sociale à comparer
      If Wb2.Sheets("feuil1").Cells(i, 2).Value Like "*" & Cherche And _
        Wb2.Sheets("feuil1").Cells(i, 4).Value = Wb1.Sheets("feuil1").Cells(j, 4).Value And _
        Wb2.Sheets("feuil1").Cells(i, 5).Value = Wb1.Sheets("feuil1").Cells(j, 5).Value Then  'Si la raison sociale concorde, on copie

        Wb1.Sheets("feuil1").Cells(j, 1).Value = Wb2.Sheets("feuil1").Cells(i, 1).Value 'N° Client
        Wb2.Sheets("feuil1").Cells(i, 12).Value = Wb1.Sheets("feuil1").Cells(j, 6).Value ' N° téléphone
        Wb2.Sheets("feuil1").Cells(i, 13).Value = Wb1.Sheets("feuil1").Cells(j, 7).Value 'Noms
        Wb2.Sheets("feuil1").Cells(i, 14).Value = Wb1.Sheets("feuil1").Cells(j, 8).Value  'Emails
      End If
    Next j
  Next i
  
Wb2.Close True 'Ferme et enregistre le classeur Exemple 1
Application.ScreenUpdating = True 'Réactive le rafraichissement
End Sub

Classeur2 Exemple.xlsm (20,6 Ko)
Classeur1 Exemple (1).xlsx (11,6 Ko)


#8

Un grand merci pour votre retour, mais je suis vraiment pas calé en Vba et je suis complètement perdu,.
Si vous pouvez m’aiguiller encore un peu , pour savoir comme installer le code sur Excel .
Merci d’avance

Fabrice Honold
[téléchargement (1)]: 06 60 41 88 57
• : honoldfabrice@hotmail.commailto:honoldfabrice@hotmail.com


#9

Bonjour , j’ai bien téléchargé les deux classeurs et les ais mis dans un même dossier , mais en cliquant sur la touche bleu , cela m’indique qu’il ne trouve pas le classeur 1 .

Merci

Fabrice Honold

[téléchargement (1)] : 06 60 41 88 57
• : honoldfabrice@hotmail.commailto:honoldfabrice@hotmail.com
[Description : Description : Logo - ISO14001]


#10

Bonjour,

Bizarre,
Testé avec ce dossier
https://www.cjoint.com/c/HBjpgBf5Tas


#11

Génial cela marche, je pense que je ne vais rien changer à la structure et justes faire un copier-coller de mes données.
Qu’en pensez-vous ?
J’essaye et vous dis si ok, je vous tien au courant !!!
En tous cas un énorme merci d’avance pour votre aide .

Fabrice

Fabrice Honold
[téléchargement (1)] : 06 60 41 88 57
• : honoldfabrice@hotmail.commailto:honoldfabrice@hotmail.com
[Description : Description : Logo - ISO14001]


#12

Re,

Mouais, si cela te facilitez la tâche
Mais attention au renommage des classeurs, là cela ne fonctionne plus

Au cas où, mettez dans le post le noms des classeurs où
envoyez par MP vos classeurs :wink:


#13

Hello , j’ai crié victoire trop vite , Excel est vraiment trop complexe .

En ajoutant les données, malheureusement cela ne marche pas, pourtant je n’ai pas touché aux noms des classeurs.

J’ai à peu près 3400 lignes , ça ne marche pas , alors j’ai essayé moins de lignes en prenant que la ville d’Antony à peu près une centaine, donc avec des données qui se retrouvent dans les tableaux que vous m’avez renvoyé , mais seul les lignes des deux tableaux que vous m’avez envoyés fonctionne .

Comment cela s’explique ?

Fabrice Honold

[téléchargement (1)] : 06 60 41 88 57
• : honoldfabrice@hotmail.commailto:honoldfabrice@hotmail.com [Description : Description : Logo - ISO14001]


#14

Re,
comme j’avais précisé dans ma première réponse,

Au mieux, avec une modif de la macro, qui prendra en compte les espaces avant et/ou après, ainsi que les minuscules et masjuscules.
Donc le classeur exemple 1 ne change pas, seulement le classeur exemple2 qui est joint

Soit copier/coller la macro pour la remplacer,
ou
remettre les données sur EXEMPLE 2

Classeur2 Exemple.xlsm (21,4 Ko)


#15

Bonjour, si cela ne vous dérange pas, je vous joins mes deux fichiers Excel, je pense que cela sera plus simple et comme ça, j’arrêterais de vous embêter.

J’ai dû supprimer 6 colonnes pour cause de confidentialité, je pense qu’une fois que les N° de clients et les autres informations seront transférer, je n’aurais plus qu’à les réinsérer dans le classeur 1.

Bien amicalement

Fabrice Honold

[téléchargement (1)] : 06 60 41 88 57
• : honoldfabrice@hotmail.commailto:honoldfabrice@hotmail.com
[Description : Description : Logo - ISO14001]

Classeurs Fichier 1 pour fusion avec Classeur 2.xlsx (221 KB)

Classeurs Fichier 2 pour fusion avec Classeur 1.xlsx (118 KB)


#16

Bonjour,

OK, je vais regarder tout cela.

Petite précision:
Le classeur Fichiers 2 (qui doit revevoir les N° Clients) à deux feuilles,
Sur laquelle doit être les N°


#17

Désolé le voici de nouveau, annule et remplace le précédent.

Merci d’avance

Fabrice Honold
[téléchargement (1)] : 06 60 41 88 57
• : honoldfabrice@hotmail.commailto:honoldfabrice@hotmail.com

Classeurs Fichier 2 pour fusion avec Classeur 1.xlsx (81.7 KB)


#18

Bonjour,

Bon, il me semble que la solution soit impossible (du moins de mon côté)
Alors je joint quand même un test, mais qui ne prend pas tout en charge.

Le gros problème, vient souvent des nom d’établissement contenant des abréviations
ex: A CAMUS d’un côté et ALBERT CAMUS de l’autre
Idem avec les communes ST CLOUD, ou ST CLOUD ou encore SINT CLOUD

Alors la recherche est déjà assez longue (normal puisque cela recherche par mot contenu “LIKE”)

Il y a en bas un état d’avancement pour trouver le temps moins long

On ouvre juste CLASSEUR2.xlsm et clic sur bouton.

Classeur1.xlsx (226,1 Ko)
Classeur2.xlsm (96,2 Ko)


#19

Un grand merci d’avoir essayé, à priori cela fonctionne pour quelques lignes effectivement.

Je vous remercie d’avoir regardé tous ceci et pris de votre temps, finalement on ne peut pas tous faire avec Excel .

Cordialement

Fabrice Honold

[téléchargement (1)] : 06 60 41 88 57
• : honoldfabrice@hotmail.commailto:honoldfabrice@hotmail.com

[Description : Description : Logo - ISO14001]