Exportation feuille sans couleur cellule Résolu

Question

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

michel_m · Answer

Bonjour

Question rituelle avec les cellules colorées:
mise en couleur manuelle ou issue de MEFC ? 

Si manuelleActiveSheet.Cells.Interior.ColorIndex = -4142si MEFCActiveSheet.Cells.FormatConditions.Delete 
 Michel

Exportation feuille sans couleur cellule

1 réponse

Votre réponse

Discussions similaires