Fusion et vérification de deux fichiers de même structure

Tofuge007 Messages postés 2 Statut Membre -  
Le Pingou Messages postés 12720 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je reçois régulièrement des listes de prix de fournisseurs avec les nouveau prix et les articles entrant dans leur gamme.

J ai essayé une macro trouvée sur le site que j ai recopiée mais je dois avoir fait quelque chose de travers , j ai aussi essayé une macro automatique qui regroupe normallement six fichier en un seul mais qui ne fonctionne pas non plus . Cela provient peut être de ma version 2010 ?

Une fois ces deux listes fusionnées je dois en extraire les nouveautés , les prix ayant augmenté ou diminué afin de pouvoir importer les nouveau prix dans mon programme de caisse .

Pour la partie tri des augmentations et diminutions j ai trouvé une solution en plusieurs étapes un peu contraignante

Avez vous une solution pratique .

Merci d avance

A voir également:

2 réponses

Tofuge007 Messages postés 2 Statut Membre
 
voici la macro que j ai écrite pour tester

Sub Macro1()
'
' Macro1 Macro
' Sub recup()
' Range("A1").select
' Chemin = c:\test\
' Fichier = Dir(Chemin & "C1.xls")
' Do While Fichier<>""
' Workbooks.Open Filename:=Chemin & Fichier
' Range("bd_export").Copy
' ThisWorkbook.Activate
' ActiveSheet.Paste
' Windows(Fichier).Activate
' Application.CutCopyMode = False
' ActiveWorkbook.Close savechanges:=False
' ThisWorkbook.Activate
' Range("A65536").End(xlUP).Offset(1, 0).Select
' Fichier = dir 'Fichier suivant
' Loop
' Touche de raccourci du clavier: Ctrl+f
'
Application.Goto Reference:="Macro1"
ActiveWorkbook.SaveAs Filename:="C:\test\fusion.xls", FileFormat:=xlExcel8 _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.Run "fusion.xls!Macro1"
End Sub
0
Le Pingou Messages postés 12720 Date d'inscription   Statut Contributeur Dernière intervention   1 468
 
Bonjour,
Pouvez-vous expliquer ce que devrait faire votre macro ...?
0