problème de format de cellule lors decopie de feuilles via macro Résolu/Fermé

Question

Bonjour à tous,

Après maints et maints essais, j'en reviens à votre précieuse aide.
Ci-dessous, une sub que j'utilise pour enregistrer dans un nouveau fichier les onglets sélectionnés (placé dans un tableau). La copie et l'enregistrement se font tres bien. Tout est bien présent, le hic c'est que le fond d'écran devient noir, les bordures rouges et le texte invisible (mais présent, j'ai vérifié), les couleurs ont changés.

Qui peut m'expliquer ce phénomène. Je précise que je travaille sous excel 2007 et que j'enregistre en xlsx.

D'avance un grand merci pour votre contribution

Petit bout de code :
Sub Enr_XLSX(Tab_feuilles() As Variant, Fichier As String)

' enregistre au format XLSX dans le répertoire reçu et avec le nom de fichier reçu, les feuilles sélectionnées

Sub Enr_XLSX(Tab_feuilles() As Variant, Fichier As String)

' enregistre au format XLSX dans le répertoire reçu et avec le nom de fichier reçu, les feuilles sélectionnées

                    Dim NouveauClasseur As Workbook
                    
                    Sheets(Tab_feuilles).Copy
                    
                    Set NouveauClasseur = ActiveWorkbook
                    
                    NouveauClasseur.SaveAs Fichier

                    NouveauClasseur.Close



End Sub

Patrice33740 · Answer

Bonjour,

essaies :
Sub Enr_XLSX(Tab_feuilles() As Variant, Fichier As String)
' enregistre au format XLSX dans le répertoire reçu et avec le nom de fichier reçu, les feuilles sélectionnées
Dim NouveauClasseur As Workbook

Sheets(Tab_feuilles).Copy
  Set NouveauClasseur = ActiveWorkbook
  NouveauClasseur.Colors = ThisWorkbook.Colors
  NouveauClasseur.SaveAs Fichier
  NouveauClasseur.Close

End Sub

reno421 · Answer

Patrice, un tout grand merci, ca marche :-)

Et dire que je cherchais depuis pas mal d etemps..

Problème de format de cellule lors decopie de feuilles via macro

2 réponses

Discussions similaires