Exportation feuille sans couleur cellule

Résolu/Fermé
juer31 Messages postés 112 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 15 janvier 2025 - Modifié par crapoulou le 26/10/2016 à 21:22
juer31 Messages postés 112 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 15 janvier 2025 - 27 oct. 2016 à 16:52
Bonjour,

J'aimerais savoir si c'est possible d'exporter une feuille en suppriment les couleur de cellule.

voici ce que j'ai:

Sub ENREGISTRER()
'Macro par ERIC
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Dim Rep As Integer
    Rep = MsgBox("Voulez vous enregister une copie?", vbYesNo + vbQuestion, "Eric")
    If Rep = vbYes Then
    Else
    Exit Sub
    End If
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
chemin = "G:\02 - Soumissions\" & Range("E9") & "\"
nomfichier = "Calcul - " & ActiveSheet.Range("E9") & " - " & Range("C9") & extension
With ActiveWorkbook
    .ActiveSheet.DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub


Merci à l'avance

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
Modifié par michel_m le 27/10/2016 à 11:17
Bonjour

Question rituelle avec les cellules colorées:
mise en couleur manuelle ou issue de MEFC ?

Si manuelle
ActiveSheet.Cells.Interior.ColorIndex = -4142
si MEFC
ActiveSheet.Cells.FormatConditions.Delete

 Michel
0
juer31 Messages postés 112 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 15 janvier 2025 6
27 oct. 2016 à 16:52
Merci beaucoup!
0