Fusionner deux fichiers Excels [Résolu]
A voir également:
- Fusionner deux fichiers excels
- Macro : marquer la différence entre deux colonnes de deux fichiers excel. - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- C# / .NET : Fusion de fichiers excel - CodeS SourceS - Guide
- Classe java pour la comparaison de 2 fichiers excel - Codes sources - Java (Divers)
- Comment copier des données entre deux fichiers Excel ✓ - Forum - VBA Office (Excel, Word ...)
- Récupérer valeurs entre deux fichiers Excel. ✓ - Forum - VBA Office (Excel, Word ...)
9 réponses
Hum la descriptions de tes fichiers est loin d'etre clair.
Perso je comprends meme pas tes files so ... pour l'aide... je suis bloqué...
<hr size="2" width="100%" /> zen69 aka Ortho Le Profett
[site web]
Perso je comprends meme pas tes files so ... pour l'aide... je suis bloqué...
<hr size="2" width="100%" /> zen69 aka Ortho Le Profett
[site web]
Bonsoir à tous,
Ci-dessous un exemple, en vbs, sans utiliser l'objet Excel.Application, facilement adaptable pour vb6
utilisant l'objet Dictionary et ADODB.
Reste à écrire le fichier résultat.
Option Explicit
Dim oDico
Dim aDicoKeys, aDicoItems
Dim sFile1, sFile2, sFile3
Dim sCol1, sCol2, sCol3, i
Set oDico = CreateObject("Scripting.Dictionary")
sFile1 = "D:\....\Classeur1.xls"
sFile2 = "D:\....\Classeur2.xls"
sFile3 = "D:\....\Classeur3.xls"
sCol1 = "[Contact]"
sCol2 = "[Attribut 1]"
sCol3 = "[Attribut 2]"
Call FnWriteDico(sFile1, sCol1, sCol2, oDico)
Call FnWriteDico(sFile2, sCol1, sCol3, oDico)
aDicoKeys = oDico.Keys
aDicoItems = oDico.Items
For i=0 To ubound(aDicoKeys)
MsgBox aDicoKeys(i) &vbTab& aDicoItems(i)
Next
'Call SubWriteResult(sFile3, aDicoKeys, aDicoItems)
Set oDico = Nothing
MsgBox "fin script"
Function FnWriteDico(sFile, sField1, sField2, oDico)
Dim oConn, oRs
Dim MyQuery
Dim oldDicoList
MyQuery = "Select " & sField1 & "," & sField2 & " from [Feuil1$]"
Set oConn = CreateObject("ADODB.Connection")
oConn.Open ("provider=Microsoft.Jet.OLEDB.4.0; " & "data source=" _
& sFile & "; " & "Extended Properties=""Excel 8.0;HDR=YES;""")
Set oRs = CreateObject("ADODB.Recordset")
oRs.Open MyQuery, oConn, 1, 3 '1=adOpenKeyset, 3=adLockOptimistic
Do Until oRs.EOF
If oDico.Exists(Trim(oRs.Fields(0))) Then
oldDicoList = oDico.Item(Trim(oRs.Fields(0)))
oDico.Item(Trim(oRs.Fields(0))) = oldDicoList & "," & oRs.Fields(1)
Else
oDico.Add Trim(oRs.Fields(0)), Trim(oRs.Fields(1))
End If
oRs.MoveNext
Loop
Set oRs = Nothing
Set oConn = Nothing
FnWriteDico = oDico.Items
End Function
jean-marc
Ci-dessous un exemple, en vbs, sans utiliser l'objet Excel.Application, facilement adaptable pour vb6
utilisant l'objet Dictionary et ADODB.
Reste à écrire le fichier résultat.
Option Explicit
Dim oDico
Dim aDicoKeys, aDicoItems
Dim sFile1, sFile2, sFile3
Dim sCol1, sCol2, sCol3, i
Set oDico = CreateObject("Scripting.Dictionary")
sFile1 = "D:\....\Classeur1.xls"
sFile2 = "D:\....\Classeur2.xls"
sFile3 = "D:\....\Classeur3.xls"
sCol1 = "[Contact]"
sCol2 = "[Attribut 1]"
sCol3 = "[Attribut 2]"
Call FnWriteDico(sFile1, sCol1, sCol2, oDico)
Call FnWriteDico(sFile2, sCol1, sCol3, oDico)
aDicoKeys = oDico.Keys
aDicoItems = oDico.Items
For i=0 To ubound(aDicoKeys)
MsgBox aDicoKeys(i) &vbTab& aDicoItems(i)
Next
'Call SubWriteResult(sFile3, aDicoKeys, aDicoItems)
Set oDico = Nothing
MsgBox "fin script"
Function FnWriteDico(sFile, sField1, sField2, oDico)
Dim oConn, oRs
Dim MyQuery
Dim oldDicoList
MyQuery = "Select " & sField1 & "," & sField2 & " from [Feuil1$]"
Set oConn = CreateObject("ADODB.Connection")
oConn.Open ("provider=Microsoft.Jet.OLEDB.4.0; " & "data source=" _
& sFile & "; " & "Extended Properties=""Excel 8.0;HDR=YES;""")
Set oRs = CreateObject("ADODB.Recordset")
oRs.Open MyQuery, oConn, 1, 3 '1=adOpenKeyset, 3=adLockOptimistic
Do Until oRs.EOF
If oDico.Exists(Trim(oRs.Fields(0))) Then
oldDicoList = oDico.Item(Trim(oRs.Fields(0)))
oDico.Item(Trim(oRs.Fields(0))) = oldDicoList & "," & oRs.Fields(1)
Else
oDico.Add Trim(oRs.Fields(0)), Trim(oRs.Fields(1))
End If
oRs.MoveNext
Loop
Set oRs = Nothing
Set oConn = Nothing
FnWriteDico = oDico.Items
End Function
jean-marc
deux fichiers :
dans les deux fichiers il y a les noms : ici papa, maman, enfant
à chacun des noms sont attachés des attributs : homme femme grand moustache
Je voudrais n'avoir qu'un seul fichier avec dans une colonne, les noms non dupliqués, et dans une deuxième colonne, leurs attribus concaténés.
C'est plus clair. Sinon, n'hésite pas, je réexplique autrement.
Dans tous les cas, merci de ton intérêt.
dans les deux fichiers il y a les noms : ici papa, maman, enfant
à chacun des noms sont attachés des attributs : homme femme grand moustache
Je voudrais n'avoir qu'un seul fichier avec dans une colonne, les noms non dupliqués, et dans une deuxième colonne, leurs attribus concaténés.
C'est plus clair. Sinon, n'hésite pas, je réexplique autrement.
Dans tous les cas, merci de ton intérêt.
Merci JMO,
Cela a l'air très bien (!)
Concretement, j'imaginais un code que je pourrais utiliser avec une macro Excel.
Je peux mettre ce code dans une macro ??
Pardon pour mon ignorance, mais je suis vraiment embêté et je voudrais résoudre ce pb.
cordialement,
Cela a l'air très bien (!)
Concretement, j'imaginais un code que je pourrais utiliser avec une macro Excel.
Je peux mettre ce code dans une macro ??
Pardon pour mon ignorance, mais je suis vraiment embêté et je voudrais résoudre ce pb.
cordialement,
Re,
Oui, c'est certainement possible !!!
Mais n'ayant pas vb6 et ne scriptant pas en vbe/vba, ma contribution s'arrête là.
Bon courage.
jean-marc
Oui, c'est certainement possible !!!
Mais n'ayant pas vb6 et ne scriptant pas en vbe/vba, ma contribution s'arrête là.
Bon courage.
jean-marc
bigfish_le vrai
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Statut
- Membre
- Dernière intervention
- 20 novembre 2013
Salut,
Tu risques pas d'avoir les reponses que tu attends car tu n'es pas dans le bon theme.
Et un conseil : n'imagine pas trop ton code, surtout si tu penses que quelqu'un vas le faire a ta place.
Le mieux c'est de commencer et de nous dire sur quoi tu bloques. Meme si c'est : - je ne sais ou ecrire ma macro
Ne t'offusques pas de ce que je viens de dire car c'est globalement ce qui est specifé dans le reglement CS et tu l'as accepter lors de l'enregistrement.
Bon courage
A+
Tu risques pas d'avoir les reponses que tu attends car tu n'es pas dans le bon theme.
Et un conseil : n'imagine pas trop ton code, surtout si tu penses que quelqu'un vas le faire a ta place.
Le mieux c'est de commencer et de nous dire sur quoi tu bloques. Meme si c'est : - je ne sais ou ecrire ma macro
Ne t'offusques pas de ce que je viens de dire car c'est globalement ce qui est specifé dans le reglement CS et tu l'as accepter lors de l'enregistrement.
Bon courage
A+
OK, je comprends... le réglement.
Eventuellement, peux tu me conseiller un site sur lequel je pourrais "légalement" poser ma question ?
Eventuellement, peux tu me conseiller un site sur lequel je pourrais "légalement" poser ma question ?
Regarde ma signature ...
Tu le sauras pour la prochaine fois.
Mais ne repose pas ta question sur l'autre forum. Termine celui-ci auparavant. Ça évitera de créer un doublon de la même question.
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Tu le sauras pour la prochaine fois.
Mais ne repose pas ta question sur l'autre forum. Termine celui-ci auparavant. Ça évitera de créer un doublon de la même question.
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI