[VBA-E] Range d'une sheet very hidden
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:
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
