Discussion :

[bbor99]

Salut,

Je souhaite piloter Excel avec du VB.NET.
J'ai trouvé des infos ici et là sur la création d'un fichier Excel, le remplissage de cellules...

Mais je suis bloqué sur un problème.
J'ouvre un fichier Excel (toujours par .NET) et sur ce fichier Excel, j'ai des CheckBox.
Je voudrais activer ces checkbox par le soft VB.NET.

Si vous avez des exemples ou un site complet sur ce pilotage.

Merci
A+

[r.morel]

Salut,
Voir ce post : http://www.developpez.net/forums/d15...l/#post8542095

A plus.

[bbor99]

Salut,
Voir ce post : http://www.developpez.net/forums/d15...l/#post8542095

A plus.

Ce post ne va pas assez loin pour ce que je veux faire.

[r.morel]

Ce post ne va pas assez loin pour ce que je veux faire.

Le problème est le même car tu ne nous dit pas de quelle façon tu pilotes Excel. Il est donc difficile de t'aider.

[bbor99]

Sorry,

Pour ouvrir Excel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        'Create an Excel session
        Try
            xlApp = CreateObject("Excel.Application")
            xlApp.Visible = bVisible
            startExcel = messMsg & "Start [Excel] OK"
        Catch ex As Exception
            startExcel = messErr & "[startExcel] " & ex.Message
            myReturnValue = -10
            MsgBox("Error Excel" & Chr(10) & ex.Message, MsgBoxStyle.Critical, "Error")
            Exit Function
        End Try

Pour ouvrir un document existant :

Code :

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

1
2
3
4
5
6
7
8
9
10
 'Open the document
        Try
            xlBook = xlApp.Workbooks.Open(outPath, [ReadOnly]:=False)
            openDocumentExcel = messMsg & "Open document [Excel]"
        Catch ex As Exception
            openDocumentExcel = messErr & "[openDocument] " & ex.Message
            myReturnValue = -10
            MsgBox("Error open Excel Document" & Chr(10) & ex.Message, MsgBoxStyle.Critical, "Error")
            Exit Function
        End Try

je crois que cela s'appelle Automation.

[r.morel]

Pour une meilleure lecture utilises les balises de code # à l'aide du bouton :

Comment sont créées tes checkbox dans ton formulaire ?

[bbor99]

J'utilise un fichier déjà créé avec les checkbox déjà posés.
Ils sont tous renommé.

[r.morel]

Je voulais savoir s'il s'agissait bien de contrôle Active X.
Regarde ceci : https://msdn.microsoft.com/en-us/lib....checkbox.aspx

[bbor99]

Je n'avais pas compris la question.
Ce sont bien des ActiveX

[clementmarcotte]

Bonjour,

À mon avis, cela n'a pas grand, même aucun, intérêt. Tu peux utiliser une Form VB.net avec ses propres contrôles pour agir sur Excel. Au final, c'est plus logique et probablement plus simple.

Ceci dit, pour agir sur des contrôles sur un UserForm VBA; tu passer la collection Controls de l'UserForm.

Code :

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

User_Form1.controls(checkbox1.value) = true

Sans oublier de mettre en début de la ligne les objets .net appropriés

Et puis, si tes checkboxes (ou n'importe quel autre Activex), sont sur une feuille, tu dois agir sur les OLEObjects de la feuille, au lieu des contrôles de L'UserForm. Et si tu as des contrôles sur plusieurs feuilles, tu dois prendre les OLEObjects de chaque feuille impliquée.

Ou tu peux toujours mettre un indicateur quelconque dans la propriété Tag et vérifier les tags, toujours en bouclant sur l'ensemble des contrôles.

Ou bien, tu mets une macro dans le WorkBook_Open de ton classeur Excel, et la macro peut cocher tes cases pour toi.

Bref, si cela plante cela laisse présager une utilisation intensive du langage religieux

[bbor99]

Les checkbox ne sont pas sur un userform, mais sur la sheet Excel, c'est pour faire un fichier PDF. Donc la première solution ne fonctionne pas.

Par contre j'ai utilisé la solution de créer une macro et de la lancer depuis mon soft .NET et c'est beaucoup plus simple.
C'est la solution que j'ai retenue.

Merci de ta patience.
Bye