Pilotage Excel avec .NET

Version imprimable

29/02/2016, 14h56
bbor99

Pilotage Excel avec .NET

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+
29/02/2016, 15h40
r.morel

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

A plus.
29/02/2016, 15h53
bbor99

Citation:

Envoyé par r.morel

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.
29/02/2016, 16h02
r.morel

Citation:

Envoyé par bbor99

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. ;)

Sorry,

Pour ouvrir Excel :

Code:

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:

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.

29/02/2016, 16h14
r.morel

1 pièce(s) jointe(s)

Pour une meilleure lecture utilises les balises de code # à l'aide du bouton : Pièce jointe 202375

Comment sont créées tes checkbox dans ton formulaire ?
29/02/2016, 16h27
bbor99

J'utilise un fichier déjà créé avec les checkbox déjà posés.
Ils sont tous renommé.
29/02/2016, 16h53
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
29/02/2016, 16h58
bbor99

Je n'avais pas compris la question.
Ce sont bien des ActiveX
29/02/2016, 20h34
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:

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
01/03/2016, 08h08
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