Sub Ouverture_fichiers() Workbooks.Open Filename:="\\frs0xxx.fr.xxxxx.com\groupes\mxxx\devis\aaa.xlsm", UpdateLinks:=Valeur Workbooks.Open Filename:="\\frs0xxx.fr.xxxxx.com\groupes\mxxx\devis\bbb.xlsm", UpdateLinks:=Valeur Workbooks.Open Filename:="\\frs0xxx.fr.xxxxx.com\groupes\mxxx\devis\ccc.xlsm", UpdateLinks:=Valeur Workbooks.Open Filename:="\\frs0xxx.fr.xxxxx.com\groupes\mxxx\devis\ddd.xlsm", UpdateLinks:=Valeur Workbooks("aaa.xlsm").Active Worksheets("FCE").Active Cells("A1").Active End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question