Bonjour à tous
Comment je peux ajuster mon code ci-dessous de manière :
- à exporter mes onglets en valeur (sans formules)
- à revenir à mon fichier d'origine à la fin de l'export
- Enregistrer mes onglets en fichiers xlsx (pour éviter d'avoir l'erreur : Projet VB non enregisrtable)
Merci
Comment je peux ajuster mon code ci-dessous de manière :
- à exporter mes onglets en valeur (sans formules)
- à revenir à mon fichier d'origine à la fin de l'export
- Enregistrer mes onglets en fichiers xlsx (pour éviter d'avoir l'erreur : Projet VB non enregisrtable)
Merci
VB:
Sub copierOK()
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Visible = xlSheetVisible Then
Sh.Copy
ActiveWorkbook.SaveAs (Sh.Name)
ActiveWorkbook.Close
End If
Next Sh
End Sub