Problème ouverture feuille Excel (instance existante)

Version imprimable

Voir 40 message(s) de cette discussion en une page

Elthorn nous a livré, il y a quelques message de cela (#17 d'hier à 15h23'), un code qu'il dit fonctionner :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.OpenFileDialog1.FileName = Nothing If Me.OpenFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then Me.OpenFileDialog1.FileName = Me.OpenFileDialog1.FileName End If Dim myexcel As Excel.Application Dim xlWorkSheet As Excel.Worksheet Dim xlWorkBook As Excel.Workbook myexcel = GetObject(, "Excel.Application") xlWorkBook = myexcel.ActiveWorkbook xlWorkSheet = xlWorkBook.Worksheets(1) xlWorkSheet.Activate() xlWorkSheet.Range("A1").Value = "dummy value" myexcel.Visible = True End Sub
Je n'ai pas testé ce code mais il me paraît plausible. Elthorn nous affirme rentrer dans une feuille ouverte avec Excel. L'as-tu testé ?
Quant au code que tu as trouvé, qui utilise les System.Process, c'est ± ce sur quoi j'ai travaillé hier mais je ne suis pas arrivé au résultat cherché. Par contre, ce code que tu as trouvé semble mettre en œuvre le marshaling : c'est lourd lorsqu'on ne le pratique pas ordinairement, ce qui est mon cas (et je suis un peu paresseux à m'y mettre :(). Je ne conseillerais pas cette programmation à un "faux débutant", même "expérimenté" :)
Je vais tout de même voir si je peux utiliser ce code dans mon "labo" d'hier ...

A l'instant, je copie dans mon programme de test le code que tu as trouvé : je suis confronté à un manque d'infos.
Comment est déclaré "Marshal" et quels sont les Imports utilisés ?
Au besoin, transmets-moi le lien qui mène à ce code ...

1 pièce(s) jointe(s)

Soit, il y a une méthode Marshal, mais ton code ne programme pas le Marshaling, pas de panique, c'est plus simple que cela (et j'y était presqu'arrivé hier ...:oops:).
Voilà ma procédure d'hier juste un peu modifiée grâce au code que tu as déniché (ne pas oublier de mettre un bouton BFeuilleOuverte) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    Private Sub BFeuilleOuverte_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BFeuilleOuverte.Click
        Dim ExcelInstances As Process() = Process.GetProcessesByName("EXCEL")
        If ExcelInstances.Count = 0 Then
            Exit Sub
        End If
        XLSAPP = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application")
 
        If Not XLSAPP Is Nothing Then
            If XLSAPP.ActiveWorkbook.Name = "Test.xls" Then
                XLSAPP.Visible = True
                XLSAPP.Range("C4").Select()                 'sélectionner une cellule
                XLSAPP.ActiveCell.FormulaR1C1 = "359"   'y placer la valeur 127
            End If
        End If
    End Sub

Cette fois, on accède bien à une feuille ouverte, que ce soit par Excel ou par l'application elle-même ! :D
Ci-joint, l'application complète : Pièce jointe 413870

22/09/2018, 17h33
__bv__

Oui je l'ai testé et ça m'a encore posé quelque problème, sans doute mineur (nouvelle instance, fichier en lecture seule, etc).
J'essaie de bricoler un autre bout de code mais je trébuche toujours...
J'ai même tenté d'activer le co-authoring sur OneDrive mais le code en l'état ne supporte pas que le fichier soit un http:...
Bref, toujours au point mort :?
22/09/2018, 17h54
Delaney

1 pièce(s) jointe(s)

Citation:

Envoyé par Phil Rob

Je n'ai pas testé ce code mais il me paraît plausible. Elthorn nous affirme rentrer dans une feuille ouverte avec Excel. L'as-tu testé ?

Oui je l'ai testé. j'ai ouvert le fichier test via excel puis ouvert vb.net et mon programme et appelé le fichier déjà ouvert via mon programme pour lui placer dans la case A1 le texte de test. Excel n'a pas ouvert une deuxième fois le fichier en lecture seul mais a bien activé le fichier déjà ouvert et a placé le texte au bon endroit.

Citation:

La notion de « code managé concerne ...»

je t'ai perdu à la deuxième ligne :oops: :koi: malheureusement, je ne suis pas assez calé en informatique et le vocabulaire associé me fait défaut.

Citation:

Comment choisir entre .Net et Com lorsqu’on ajoute une référence.

Ben en fait j'ai pas le choix, Microsoft Excel 14.0 Object Library n'apparait que dans le COM et pas dans le .net

Pour info, je travaille avec Microsoft Visual Basic 2010 Express

@__bv__
mon code tu l'as utilisé tel quel ou tu l'as modifié?
je joins le répertoire de ma solution au complet pour que tu puisses tester chez toi, juste pour voir si c'est une question de programme ou de config ou je ne sais quoi.
22/09/2018, 18h05
__bv__

Phil, je viens de voir ton message ! Merci !!!
Marshal doit être défini par un Interop. Sur mon Office365, je n'ai pas eu à ajouter d'autres imports.

Par ailleurs, et pour une raison qui m'échappe, lorsque j'ouvre ton projet, je dois enlever la Référence Excel.Interop pour la chercher de nouveau pour que ça compile.
EN TOUT CAS BRAVO: ÇA MARCHE PARFAITEMENT :D
Je vais creuser ça maintenant... 8O

J'envoie quand même un lien vers un autre code propre avec du marshalling que j'ai trouvé d'un MVP : https://code.msdn.microsoft.com/offi...Excel-4453945d.
Ça ne fonctionne pas comme je voudrais mais il y a matière à apprendre.
22/09/2018, 18h12
Phil Rob

J'ai un peu l'impression que les messages se croisent et ne sont pour toujours lus au bon moment, tout au moins pour moi.
C'est ainsi que le message qui vient d'être posté semble répondre à un de mon message de 14h34'.
Mais j'espère que tu peux tester le code que je t'ai envoyé plus tard à 15h16' (avec la méthode Marshal) avec le dossier de l'application zippé en pièce jointe : ce code là fonctionne et permet la modification d'une feuille ouverte avec Excel, sans avertissement d'Excel, et sans ReadyOnly. Bref, ce qu'il fallait trouver ...

Pour ce qui du choix entre composant NET et COM, même Visual Express doit le permettre (sauf erreur de ma part, bien sûr): les composants NET sont l'essence-même de DotNet.

Merci pour le lien.
Bonne continuation,
Phil
24/09/2018, 12h34
__bv__

1 pièce(s) jointe(s)

Encore merci à tous, particulièrement Phil qui m'a remis sur le droit chemin.
Comme je l'avais dit, voici un projet VB.NET certes de niveau débutant qui reprend le code et permet de copier une petite partie de la feuille Excel dans un DataGridView.
Il reste deux détails qui me chiffonnent un peu mais on peut en rester là évidemment.
1) le process paraît ne pas toujours avoir le même 'handle' que l'instance existante.
2) je me demande comment (ou même seulement si) il serait possible de récupérer un 'event' sur Excel qui permettrait de relire alors son contenu dans le DataGrid.
Il est probable qu'il faudrait un "binding" avec un DataSource mais sauf erreur de ma part il faut alors utiliser un OLEDBConnection et attacher le DataSet récupéré.
24/09/2018, 15h59
Phil Rob

1 pièce(s) jointe(s)
Pour ce qui est de ta première question (mêmes handles), je n'ai rien observé d'anormal et je pense qu'il ne faut pas s'en occuper. Attention cependant de ne pas s'emmêler dans une multitude de feuilles ouvertes.... (certaines devant ReadOnly)

Ton application semble ignorer une feuille qui serait déjà ouverte par Excel, elle me semble travailler uniquement avec des feuilles ouvertes par elle-même. Pour travailler ainsi, mon premier code qui permettait de re-entrer dans la feuille ouverte par l'application elle-même suffisait, nul besoin de la méthode ...Marshal ..., (ce n'est qu'une observation, je ne sais rien de l'avancement de ton expérimentation et de tes objectifs).

Pour ce qui est de ta deuxième question, voici comment ton application peut savoir que quelque chose a changé dans la feuille Excel :
- Remplace ta déclaration Dim XLSApp As Excel.Application = Nothing par Dim WithEvents XLSApp As Excel.Application = Nothing
- A ce moment, dans la liste déroulante des objets tu peux trouver XLSApp et ses événements dans la liste des événements (cf. illustration ci-dessous).
- Tu peux alors programmer, par exemple, le code suivant :
Code:

1 2 3 4 Private Sub XLSApp_SheetChange(Sh As Object, Target As Range) Handles XLSApp.SheetChange MessageBox.Show("Excel changé") End Sub
Bon travail ...

Pièce jointe 414322
27/09/2018, 17h47
Phil Rob

1 pièce(s) jointe(s)

Pour Elthorn ...
Voici l'illustration de l'interface sous VB Express 2010 :
Pièce jointe 415498
27/09/2018, 21h53
Delaney

1 pièce(s) jointe(s)

bonsoir Phil

en fait je n'ai aucune référence office dans le NET, tout est dans le COM. Je vais regarder comment importer les librairies au niveau du NET
(astuce, si tu cliques sur l'entête "nom du composant, ça met tout par ordre alphabétique ;) )
moi j'ai ça :

Pièce jointe 415558
27/09/2018, 23h40
clementmarcotte

Bonjour,

Citation:

Envoyé par Elthorn

bonsoir Phil

en fait je n'ai aucune référence office dans le NET, tout est dans le COM. Je vais regarder comment importer les librairies au niveau du NET

À partir de cette page, tu devrais pouvoir télécharger les Primary Interop Assemblies (PIA pour les intimes) qui correspondent à ta version d'Office.

Mais, en principe, à partir de VS2010 ou VS2012, (je crois, et au pire 2013), même si tu coches Excel (Word, PowerPoint etc) dans les composants COM, VS utilise automatiquement les PIAs s'ils sont installés sur ta machine.

Et si tu les a déjà, tu peux utiliser le bouton Parcourir… pour les retrouver.
28/09/2018, 08h26
Phil Rob

OK, je me rends compte que tu n'as effectivement pas les librairies .NET qu'il faudrait.
Merci pour l'astuce ..., je suis stupide, je devais y penser ...:(
Pour tester ce problème sous VB Express, j'ai téléchargé de chez Microsoft, VBExpress 2010 et c'est de là que j'ai pu produire ma dernière illustration. Peut-être dois-tu désinstaller et ré-installer VBExpress ?
A moins que la solution de clementmarcotte résolve le problème.
Bonne journée ...

1 pièce(s) jointe(s)

Là, vous me dépassez tous avec ces PIA ! 8O
Je vais étudier ça...

Phil, j'ai bien activé les 'events', merci pour l'info.

Code:

1
2
3
4
5
6
 
Private Sub XLSApp_SheetChange(Sh As Object, Target As Range) Handles XLSApp.SheetChange
        Dim Sheet1 As Excel.Worksheet = CType(Sh, Excel.Worksheet)
        Dim ChangedRange As String = Target.Address(ReferenceStyle:=Excel.XlReferenceStyle.xlA1)
        ListSteps.Items.Add("The value of " & Sheet1.Name & ":" & ChangedRange & " was changed.")
    End Sub

29/09/2018, 23h13
Delaney

Citation:

Envoyé par clementmarcotte

Bonjour,
À partir de cette page, tu devrais pouvoir télécharger les Primary Interop Assemblies (PIA pour les intimes) qui correspondent à ta version d'Office.

Mais, en principe, à partir de VS2010 ou VS2012, (je crois, et au pire 2013), même si tu coches Excel (Word, PowerPoint etc) dans les composants COM, VS utilise automatiquement les PIAs s'ils sont installés sur ta machine.

Et si tu les a déjà, tu peux utiliser le bouton Parcourir… pour les retrouver.

Merci pour le lien:plusser:
J'ai installer les PIA, qui n'apparaissent toujours pas dans l'onglet NET mais au moins je peux les récupérer via "l'onglet parcourir" et le mettre en référence.
01/10/2018, 09h15
Phil Rob

" ... n'apparaissent toujours pas dans l'onglet NET mais au moins je peux les récupérer via "l'onglet parcourir" ... "
Tout est donc en ordre maintenant, les composants NET vont pouvoir être choisis de préférences aux COM, lorsque c'est possible ?
Bonne journée à tous ...
Phil
31/10/2018, 12h16
__bv__

Bonjour
Je continue à vouloir faire évoluer mon petit utilitaire ConnExcel.
J'ai activé les Events en particulier SheetChange comme indiqué par Phil, et cela fonctionne avec toutefois une erreur lorsque je veux afficher le changement dans un ListBox (cross thread operation etc.). Je peux filtrer l'erreur avec CheckForIllegalCrossThreadCalls = False mais cela ne résoud pas vraiment le problème.

Par ailleurs, j'aimerais maintenant écrire directement de VB.NET dans une Array et non pas un Range.
J'utilise donc un fichier XLSM avec Macro où une Array est définie, mais je ne sais pas comment y accéder de VB.NET.

Merci par avance,
Bruno

PS: J'ai lu ça https://docs.microsoft.com/en-us/vis...t?view=vs-2017 mais je n'y comprends rien...
31/10/2018, 17h54
Phil Rob

Bonjour Bruno,

C'est sans réfléchir beaucoup que je te suggère la solution suivante : le fichier .tmp qui sert à passer des données entre 2 programmes !

Si VB doit envoyer les données à un macro dans Excel (pour remplir un tableau ou pour n'importe quoi d'autre), avant d'activer la macro dans VB, je crée un fichier de lignes de texte (pour faire au plus facile) et j'y enregistre autant de lignes que j'ai de données à passer à la macro. Ensuite fermer le fichier.
La première tâche à faire exécuter par la macro est alors d'ouvrir le fichier en lecture, et remplir ses variables (ou tableaux, ou ...) avec les données lues. La macro doit ensuite supprimer le fichier, qui aura ainsi duré le temps de l'échange.

La solution n'est pas très évoluée, comme souvent je propose une solution archaïque ..., mais ça marche !

J'espère que ceci t'inspirera ...
31/10/2018, 20h56
__bv__

Merci Phil,
En fait oui ça pourrait marcher plus VB ne ferait qu'écrire et VBA uniquement lire, donc j'imagine qu'il ne devrait pas y avoir de problème de conflit (à vérifier toutefois!).
Lorsque je programmais mes trucs mathématiques en C++, j'avais réussi à implémenter de la mémoire partagée entre différents processus. Je me demande si c'est possible en dotNet (et sans s'arracher les cheveux).
Sinon il me reste encore la possibilité d'utiliser un DataSet (SQL) mais je ne sais pas encore trop comment.

1 pièce(s) jointe(s)

Non il ne peut y avoir de conflit à la condition de ne pas oublier de FERMER le fichier après l'avoir utilisé, surtout après avoir l'enregistré, mais aussi après l'avoir lu de sorte à pouvoir le détruire.

Mais l'idée d'une zone mémoire commune à plusieurs programmes me rappelle le Presse-papier de Windows. Pour une donnée, c'est facile (cf. ci-dessous), mais pour faire passer de quoi remplir un tableau ..., à toi de voir :D

Dans VB :
Code:

1 2 3 4 5 6 Dim Test As String = "Coucou" TextBox1.Text = Test TextBox1.SelectAll() 'Seul le text sélectionné peut être copié dans le Presse-papier TextBox1.Copy() 'Copie dans le Presse-papier XLSAPP.Run("MaMacro") 'exécuter la macro MaMacro
Dans la macro :
Code:

1 2 3 Range("F7").Select ActiveCell.PasteSpecial 'Lecture du Presse-papier
Et à l'écran :
Pièce jointe 423757

Très bonne journée,

1 pièce(s) jointe(s)

Bonjour,

J'ai trouvé une solution simple et efficace. Il suffit de créer une Macro "ReadData" dans Excel qui utilisera l'Array de VB.NET et l'exécuter à partir du prog VB.NET par xlApp.Run("ReadData", ArrayName).

Mais maintenant j'ai un autre problème qui vient d'apparaître alors que je le pensais réglé.
Lorsque je fais appel à une instance existante d'Excel (aucun problème lorsque une nouvelle instance est ouverte), Visual Studio me jette une exception
"Operation unavailable (Exception from HRESULT: 0x800401E3 (MK_E_UNAVAILABLE))"
Code:

1 2 3 4 5 6 7 8 Try XLSApp = Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application") Catch MessageBox.Show("Attempt to retrieve a running instance of Excel has failed: " & Err.Description) Exit Sub End Try
Mais uniquement lorsque Visual Studio est en mode Administrateur.
Perplexe, je suis donc retourné sur le code de Elthorn tout comme celui de Phil

Code:

myexcel = GetObject(, "Excel.Application")

et les deux marchent parfaitement sans vérifier dans quel mode VS est lancé.
Avez vous une quelconque idée pourquoi ? et comment éviter ce problème ?
Merci encore pour votre aide.

Voir 40 message(s) de cette discussion en une page