Discussion :

[LilyX]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[issoram]

Bonjour,

Et avec les formats de nombres?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement.

[LilyX]

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

[AlainTech]

Bonjour,

Tu peux essayer ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LilyX]

Nickel !
Merci beaucoup

LilyX