Discussion :

[boosty]

Bonjour à tous,

Je me vois confronté à un petit problème dont je connais la source mais non la solution.

J'ai une sheet dont la propriété visible est xlveryhidden.

Je vais chercher la range entière de la sheet et je veux l'ajouter dans le corps d'un mail et là ca ne passe plus.

Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
With excelApp
 
          With Worksheets(sKeySheet)
             Set rngeSend = .Range(.Cells(1, 1), _
                    .Cells( _
                    .Cells.Find("*", .[A1], -4123, , _
                    1, 2).row, _
                    .Cells.Find("*", .[A1], -4123, , _
                    2, 2).Column))
          End With
 
          Set oFSObj = CreateObject("Scripting.FilesystemObject")
 
          ' Get the temp folder path
 
          sFileName = oFSObj.GetSpecialFolder(2) & "\XLRange.htm"
 
          ActiveWorkbook.PublishObjects.Add(4, sFileName, rngeSend.Parent.Name, rngeSend.Address, 0, "", "").Publish True

En fait, je me doute que le probleme vient du fait que la sheet est very hidden car ca passe niquel mais ici, ca bloque sur la dernière instruction du code que j'ai indiqué, le activeworkbook.publishobjects.Add

Les rngeSend.xxx sont valables car je sais les faire apparaitre dans un msgbox sans erreur.

Que faire pour contrer ce problème car je ne veux pas afficher la sheet ?

Merci beaucoup et bonne journée

[Catbull]

Une solution :
- Positionne la propriété Visible de la feuille à xlSheetHidden
- Récupère la valeur de la cellule
- Positionne de nouveau la propriété Visible de la feuille à xlSheetVeryHidden