Afficher/cacher un onglet d'un fichier Excel depuis un aute fichier Excel en VBARésolu

Question

Bonjour
Ce que je chercher à faire est assez simple mais pour une raison que j'ignore, cela ne fonctionne pas :
Je cherche à rendre visible un onglet "toto" d'une feuille Excel "FichierA" par l'intermédiare d'un code écrit dans une feuille Excel "FichierB"
Ci dessous le code que j'ai écrit dans le "FichierB"

Code fait pour Excel 2003 sous VBA 6.3

Public Function VisibleOnglet() As boolean
VisibleOnglet = False
On Error GoTo FIN

 Windows("FichierA.xls").Activate
 Workbooks("FichierA.xls").Activate
 Workbooks("FichierA.xls").Sheets("toto").Visibe = True

VisibleOngle t= True
FIN:
End function

La fonction trouve une erreur à la ligne : " Workbooks("FichierA.xls").Sheets("toto").Visibe = True "
Je ne sais pas de quelle erreur il s'agit ni pourquoi j'ai une erreur.
j'ai essayer sans le " Windows("FichierA.xls").Activate", et cela ne fonctionne pas mieux

Quelqu'un peut peut-être m'éclairer ?
Merci d'avance

jrivet · Accepted Answer

Salut,

Peu être que cela vient "tout bêtement" du fait que tu as mis Visibe et Non Visible

=> Code testé sous W2K et Excel 2000 et qui fonctionne 
Public Function VisibleOnglet() As Boolean
On Error GoTo Fin
   Workbooks("FichierA.xls").Sheets("toto").Visible = True
   VisibleOnglet = True
Fin:
End Function , ----
[../code.aspx?ID=41455 By Renfield]

@+: Ju£i€n
Pensez: Réponse acceptée

cs_cobra2008 · Answer

Merci bcp,
 j'étais trop dans mon code et je suis passé à coté de la faute de frappe.

Afficher/cacher un onglet d'un fichier Excel depuis un aute fichier Excel en VBA

2 réponses

Votre réponse

Discussions similaires