Masquer zéros sans activer la fenêtre

Bonjour,

Je cherche un moyen de masquer les zéros (DisplayZeros) sans être obligée d'activer la feuille en question.
En effet, le fichier Excel concerné est piloté depuis Access qui l'alimente.

Code:

---

1 2 3 4 5 6 7 8 9 10

Set xlApp = CreateObject("Excel.Application")   If fso.FileExists(strFichXL) Then Set xlBook = xlApp.Workbooks.Open(strFichXL) Else Set xlBook = xlApp.Workbooks.Add xlBook.SaveAs strFichXL, xlExcel8 End If Set xlSheet = xlBook.Worksheets(1)

---

Excel n'est donc pas visible quand le code s'exécute.

DisplayZeros est également une propriété de WorksheetView mais je n'ai pas réussi à manipuler cet objet.

Une idée ?
Merci d'avance

LilyX

Bonjour,

Et avec les formats de nombres?

Code:

---

1 2	Set xlSheet = xlBook.Worksheets(1) xlSheet.Cells.NumberFormat = ... ' le format souhaité qui n'affiche pas les valeurs nulles

---

Cordialement.

Merci pour l'astuce ! C'est effectivement un bon moyen de contourner la question.

Enfin j’aimerais bien quand même trouver une piste d'utilisation des WorksheetView......

LilyX

Bonjour,

Tu peux essayer ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim xlWindow As Excel.Window   Set xlApp = CreateObject("Excel.Application")   Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) Set xlWindow = xlSheet.Parent.Windows(1)   xlWindow.DisplayZeros = False

---

Nickel !
Merci beaucoup

LilyX