Fusionner deux fichiers Excels [Résolu]
bert2311
- Messages postés
- 5
- Date d'inscription
- mardi 12 février 2008
- Statut
- Membre
- Dernière intervention
- 13 février 2008
- Messages postés
- 3877
- Date d'inscription
- mardi 19 mars 2002
- Statut
- Membre
- Dernière intervention
- 23 août 2018
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
Meilleure réponse
- Messages postés
- 588
- Date d'inscription
- jeudi 28 décembre 2006
- Statut
- Membre
- Dernière intervention
- 29 avril 2010
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]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1855
- Date d'inscription
- jeudi 23 mai 2002
- Statut
- Membre
- Dernière intervention
- 24 juin 2018
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 5
- Date d'inscription
- mardi 12 février 2008
- Statut
- Membre
- Dernière intervention
- 13 février 2008
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.
- 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+
- Messages postés
- 3877
- Date d'inscription
- mardi 19 mars 2002
- Statut
- Membre
- Dernière intervention
- 23 août 2018
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