Fusion et vérification de deux fichiers de même structure
Tofuge007
Messages postés
2
Statut
Membre
-
Le Pingou Messages postés 12275 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12275 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
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
2 réponses
-
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 -
Bonjour,
Pouvez-vous expliquer ce que devrait faire votre macro ...?
