Problème de format de cellule lors decopie de feuilles via macro
Résolu
reno421
Messages postés
47
Statut
Membre
-
reno421 Messages postés 47 Statut Membre -
reno421 Messages postés 47 Statut Membre -
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
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
2 réponses
-
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
-
Patrice, un tout grand merci, ca marche :-)
Et dire que je cherchais depuis pas mal d etemps..
