Bonjour,
Ma précedente discussion n'ayant pas eu de succès, peut-être que celle-ci fonctionnera mieux...
Je souhaiterais par le résultat d'une liste déroulante en F2, ouvrir le fichier.xlsx correpondant.
Voici un morceau de mon code :
Workbooks.Open ("\\...\Pilote CSV XLS\" & Range ("F2") & ".xlsx") 'ouverture du fichier
Sheets(1).Select
ActiveSheet.UsedRange.Rows("9:12").Select
Selection.Copy
Windows("Cal_Ligne.xlsm").Activate
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets(1).Range("F2").Value
Range("B1").Select
ActiveSheet.Paste
Windows("& Range ("F2") &.xlsx").Activate
ActiveWindow.Close
Windows("Cal_Ligne.xlsm").Activate
Quelqu'un a une idée ?
Cdt
Ma précedente discussion n'ayant pas eu de succès, peut-être que celle-ci fonctionnera mieux...
Je souhaiterais par le résultat d'une liste déroulante en F2, ouvrir le fichier.xlsx correpondant.
Voici un morceau de mon code :
Workbooks.Open ("\\...\Pilote CSV XLS\" & Range ("F2") & ".xlsx") 'ouverture du fichier
Sheets(1).Select
ActiveSheet.UsedRange.Rows("9:12").Select
Selection.Copy
Windows("Cal_Ligne.xlsm").Activate
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets(1).Range("F2").Value
Range("B1").Select
ActiveSheet.Paste
Windows("& Range ("F2") &.xlsx").Activate
ActiveWindow.Close
Windows("Cal_Ligne.xlsm").Activate
Quelqu'un a une idée ?
Cdt