Bonjour à tous, je nouveau sur excel est mon problème est le suivant :
j’ai trois fichiers qui proviennent d’une extraction BO… les fichiers ont en commun une colonne matriculée, et le reste complètement différent .
Mon premier fichier : matricule ; nom ; prénom ; taille ; poids etc.,…
le deuxième : matricule ; adresse, tel ; mail ; ville ; etc.…
et le troisième : matricule, lieux de travail, poste de travail, date d’embauche, etc.…
Je voudrais concaténer les trois fichiers dans une seule avec pour point de référence le matricule pour avoir sur une seule ligne :
« matricule ; nom ; prénom ; taille ; poids, adresse, tel ; mail, ville, lieux de travail, poste de travail, date d’embauche »
Merci davance pour votre aide.
Ps: j'ai testé ce code ci-dessous qui concatene bien mais ne prend pas en compte le matricule.
j’ai trois fichiers qui proviennent d’une extraction BO… les fichiers ont en commun une colonne matriculée, et le reste complètement différent .
Mon premier fichier : matricule ; nom ; prénom ; taille ; poids etc.,…
le deuxième : matricule ; adresse, tel ; mail ; ville ; etc.…
et le troisième : matricule, lieux de travail, poste de travail, date d’embauche, etc.…
Je voudrais concaténer les trois fichiers dans une seule avec pour point de référence le matricule pour avoir sur une seule ligne :
« matricule ; nom ; prénom ; taille ; poids, adresse, tel ; mail, ville, lieux de travail, poste de travail, date d’embauche »
Merci davance pour votre aide.
Ps: j'ai testé ce code ci-dessous qui concatene bien mais ne prend pas en compte le matricule.
Code:
'Sub Compilation()
'Dim Temp As String
'Temp = Dir(ActiveWorkbook.Path & "\*.xls")
'Application.DisplayAlerts = False
'Do While Temp <> ""
' If Temp <> "index.xlsm" Then
' Workbooks.Open ActiveWorkbook.Path & "\" & Temp
' Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy
' Workbooks("index.xlsm").Sheets(1).Activate
' If Cells(1, 1) = "" Then col = 1 Else col = Cells(1, 1).End(xlToRight).Column + 1
' Cells(1, col).Select
' ActiveSheet.Paste
' Workbooks(Temp).Close
' End If
' Temp = Dir
'Loop
'Range("A1").Select
'Application.DisplayAlerts = True
'End Sub
Dernière édition: