Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lire valeur True/ False checkbox d'un fichier fermé

  • Initiateur de la discussion Initiateur de la discussion BOUCHEZ JD
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

BOUCHEZ JD

Guest
Bonjour.

Quelqu'un connait il la syntaxe pour lire la valeur True/False d'un CheckBox
dans un fichier fermé du style :

if AUTRECLASSEUR.Checkbox1.Value = True then Msgbox "Est Coché"


Bon W.E
 
Re : Lire valeur True/ False checkbox d'un fichier fermé

Salut BOUCHEZ JD,

Pour moi ce n'es pas possible, le CheckBox étant un "objet" inséré sur une feuille ...

En revanche, tu peux ouvrir un classeur de façon masquée, pas OLE automation
Code:
Sub test()
  Dim Chemin$, NomFich$
  Dim Wbk As Workbook
  Dim Sht As Worksheet
  
  Chemin = "d:\"
  NomFich = "NomFichier.xls"
  Set Wbk = GetObject(Chemin & NomFich)
  Set Sht = Wbk.Sheets("NomFeuill")
  ' Lire la valeur du CheckBox ICI
  ' Comment là, est la question
  Wbk.Close False
End Sub

A+
 
Re : Lire valeur True/ False checkbox d'un fichier fermé

Bonsoir,

Pour compléter la réponse de Bruno😀:

Code:
 'CheckBox barre d'outils contrôles
    Wkb.Sheets("Feuil1").CheckBox1.Value
Ou
Code:
'Case à cocher barre d'outils Formulaire
  Wkb .Sheets("Feuil1").Shapes("Case à cocher 2").DrawingObject.Value

devraient le faire

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…