Fusion et vérification de deux fichiers de même structure
Fermé
Tofuge007
Messages postés
2
Date d'inscription
samedi 6 octobre 2012
Statut
Membre
Dernière intervention
7 octobre 2012
-
7 oct. 2012 à 00:28
Le Pingou Messages postés 11542 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 27 mars 2023 - 8 oct. 2012 à 15:50
Le Pingou Messages postés 11542 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 27 mars 2023 - 8 oct. 2012 à 15:50
A voir également:
- Fusion et vérification de deux fichiers de même structure
- Wetransfer gratuit fichiers lourd - Guide
- Je reçois des codes de vérification ✓ - Forum Messagerie
- Fusionner deux fichiers excel - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Deux comptes whatsapp - Guide
2 réponses
Tofuge007
Messages postés
2
Date d'inscription
samedi 6 octobre 2012
Statut
Membre
Dernière intervention
7 octobre 2012
7 oct. 2012 à 00:32
7 oct. 2012 à 00:32
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
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
Le Pingou
Messages postés
11542
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
27 mars 2023
1 334
8 oct. 2012 à 15:50
8 oct. 2012 à 15:50
Bonjour,
Pouvez-vous expliquer ce que devrait faire votre macro ...?
Pouvez-vous expliquer ce que devrait faire votre macro ...?