GetHistData secondaire ()
'dossier ouvert de hist
Faible mwb comme cahier de travail
FilePath = gamme (« FilePath »). Valeur
Placer le mwb = le Workbooks.Open (nom de fichier : =FilePath)
mwb. Feuilles (« Sheet1 »). Gamme (« A1 »). Copie
ThisWorkbook.Sheets (« Sheet1 »). Pâte de gamme (« CopiedValue ») .PasteSpecial : =xlPasteValues, opération : =xlNone, _ de SkipBlanks
: Le =False, transposent : =False
Cahiers de travail (mwb. Nom). Faux étroit
Sous-marin d'extrémité