Bonjour à tous,
J'utilise la macro suivante pour extraire des onglets et copier les données en valeurs. Elle fonctionne bien sauf avec les formules INDIRECT
Comment corriger cette macro pour que les données extraites avec les fonctions indirectes soient aussi copier en valeurs ?
Merci par avance
J'utilise la macro suivante pour extraire des onglets et copier les données en valeurs. Elle fonctionne bien sauf avec les formules INDIRECT
Comment corriger cette macro pour que les données extraites avec les fonctions indirectes soient aussi copier en valeurs ?
Merci par avance
Code:
Sub copierOK2()
Dim Sh As Worksheet, Origine As String
Origine = ActiveSheet.Name
For Each Sh In ThisWorkbook.Worksheets
If Sh.Visible = xlSheetVisible Then
Sh.Copy
ActiveSheet.Cells.Copy
ActiveSheet.[a1].PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs (Sh.Name), FileFormat:=51
ActiveWorkbook.Close
End If
Next Sh
Sheets(Origine).Activate
End Sub