Kouik Kouik jr
XLDnaute Occasionnel
Bonjour,
Je n'arrive pas à créer un code qui puisse demander l'ouverture de fichiers excel via une messageBox ou l'utilisateur pourrait choisir quels fichiers il désire ouvrir
Pour l'instant je n'ai que le code ci dessous mais le problème c'est que si je veux ouvrir un autre fichier dans "Essais Macro" je suis obligé de modifier le code ce que j'aimerais éviter pour des questions de sécurité
Mille merci d'avance, je galère la dessus depuis un moment😱
Application.WindowState = xlMinimized
Workbooks.Open Filename:="C:\Users\oricha\Documents\Xavier\HEG\Travail diplome\Reconcil VBA\EssaisMacro\3A_TRADING_280209_Final.xls"
Windows("3A_TRADING_280209_Final.xls").Activate
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Windows("Essai final1.xlsm").Activate
Sheets("HSBC").Select
Range("A1").Select
ActiveSheet.Paste
Range("H25").Select
Windows("Essai final1.xlsm").Activate
Sheets("SYZ").Select
Cells.Select
Selection.ClearContents
Application.WindowState = xlMinimized
Workbooks.Open Filename:="C:\Users\oricha\Documents\Xavier\HEG\Travail diplome\Reconcil VBA\EssaisMacro\All_invest_final_31.01.09_28.02.09.xls"
Windows("All_invest_final_31.01.09_28.02.09.xls").Activate
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Windows("Essai final1.xlsm").Activate
Sheets("SYZ").Select
Range("A1").Select
ActiveSheet.Paste
Range("H25").Select
Windows("Essai final1.xlsm").Activate
Sheets("JOURNAL").Select
Cells.Select
Selection.ClearContents
Application.WindowState = xlMinimized
Workbooks.Open Filename:="C:\Users\oricha\Documents\Xavier\HEG\Travail diplome\Reconcil VBA\PMM\Journal_identifiants.xls"
Windows("Journal_identifiants.xls").Activate
Sheets("Only yellow").Select
Cells.Select
Selection.Copy
Windows("Essai final1.xlsm").Activate
Sheets("JOURNAL").Select
Range("A1").Select
ActiveSheet.Paste
Range("H25").Select
Je n'arrive pas à créer un code qui puisse demander l'ouverture de fichiers excel via une messageBox ou l'utilisateur pourrait choisir quels fichiers il désire ouvrir
Pour l'instant je n'ai que le code ci dessous mais le problème c'est que si je veux ouvrir un autre fichier dans "Essais Macro" je suis obligé de modifier le code ce que j'aimerais éviter pour des questions de sécurité
Mille merci d'avance, je galère la dessus depuis un moment😱
Application.WindowState = xlMinimized
Workbooks.Open Filename:="C:\Users\oricha\Documents\Xavier\HEG\Travail diplome\Reconcil VBA\EssaisMacro\3A_TRADING_280209_Final.xls"
Windows("3A_TRADING_280209_Final.xls").Activate
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Windows("Essai final1.xlsm").Activate
Sheets("HSBC").Select
Range("A1").Select
ActiveSheet.Paste
Range("H25").Select
Windows("Essai final1.xlsm").Activate
Sheets("SYZ").Select
Cells.Select
Selection.ClearContents
Application.WindowState = xlMinimized
Workbooks.Open Filename:="C:\Users\oricha\Documents\Xavier\HEG\Travail diplome\Reconcil VBA\EssaisMacro\All_invest_final_31.01.09_28.02.09.xls"
Windows("All_invest_final_31.01.09_28.02.09.xls").Activate
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Windows("Essai final1.xlsm").Activate
Sheets("SYZ").Select
Range("A1").Select
ActiveSheet.Paste
Range("H25").Select
Windows("Essai final1.xlsm").Activate
Sheets("JOURNAL").Select
Cells.Select
Selection.ClearContents
Application.WindowState = xlMinimized
Workbooks.Open Filename:="C:\Users\oricha\Documents\Xavier\HEG\Travail diplome\Reconcil VBA\PMM\Journal_identifiants.xls"
Windows("Journal_identifiants.xls").Activate
Sheets("Only yellow").Select
Cells.Select
Selection.Copy
Windows("Essai final1.xlsm").Activate
Sheets("JOURNAL").Select
Range("A1").Select
ActiveSheet.Paste
Range("H25").Select