Access fichier ouvert par shell

Version imprimable

18/07/2014, 11h08
baba89

Access fichier ouvert par shell

Bonjour à tous,

J'ai cherché pas mal, mais je n'ai pas trouvé ma réponse.

Dans une macro VBA, j'ouvre des fichiers .TDMS sous Excel via un plugin.
Pour celà je le commande par le shell suivant :

Code:

Ret& = Shell(PathExcelTDMIMporter_exe & Space(2) & FilePath, vbNormalFocus)

Ceci me permet bien d'ouvrir le fichier .tdms avec Excel. Malheureusement je suis incapable d'y accéder par la macro.
Le fichier ouvert sous Excel s'appelle "Book1", il n'a pas d'extension, il n'est pas sauvegardé, et il n'est pas référencé en tant que Workbook...
J'ai essayé d'y accéder également en faisant un enregistrement de macro, mais là encore, la macro renvoie un gros blanc...

Avez-vous des idées pour que je puisse y accéder ?

Merci par avance,
18/07/2014, 11h19
SfJ5Rpw8

bonjour,

ton utilitaire n'aboutit pas au lancement d'une nouvelle session d'excel indépendante de la première ?
18/07/2014, 11h29
Menhir

La première chose est de savoir à quel type d'objet tu as affaire.
Il est peut-être accessible en utilisant la collection Windows.
18/07/2014, 13h20
baba89

Bonjour,

bbil, en effet lorsque je fais un contrôle des processus windows je vois deux fois la ligne Excel.exe, il ouvre donc vraisemblablement une session excel indépendante.
Y a-t-il moyen d’empêcher cela ?

Menhir, si je comprends ton idée, je ne dois pas chercher a naviguer via Excel, mais via windows directement ?

Merci pour votre aide
18/07/2014, 13h34
SfJ5Rpw8

Ben c'est quoi TDM ? cela à un lien avec National Instrument ?

tu dis utiliser un Addin ... lorsque l'on regarde le code que tu nous montre il semble que tu utilise plutôt un exécutable externe à excel ?
18/07/2014, 13h35
baba89

Lui même !
18/07/2014, 13h47
Menhir

Citation:

Envoyé par baba89

Menhir, si je comprends ton idée, je ne dois pas chercher a naviguer via Excel, mais via windows directement ?

Non. Windows est une propriété de Application qui permet d'accéder à la collection de toutes les fenêtres ouvertes dans Excel.
Comme ton objet n'est pas un workbook, on ne peut pas y accéder par la collection workbooks. Je cherchais donc un autre moyen de l'atteindre.
Avec un Parent, tu dois pouvoir remonter à l'objet lui-même.
Tu le mets dans une variable et tu regardes ce qu'il contient dans la liste des variables locales.
18/07/2014, 13h50
SfJ5Rpw8

Citation:

Envoyé par baba89

Lui même !

et donc pourquoi n'utilise tu pas l'Add In de National Instrument ?

http://www.ni.com/white-paper/10207/en/

la méthode ImportFile semble correspondre à ton besoin ..

Code:

Object.ImportFile(TDMFileName[, SilentMode])
18/07/2014, 17h07
baba89
J'utilise en effet cet Add-In.

Cependant pour fonctionner, il a besoin que Excel soit en mode administrateur (ce qui fout la merde car ensuite il plante en voulant ouvrir des classeurs existants).
Du coup on m'avait conseiller d'utiliser un Shell directement sur l’exécutable de l'Add-In.

Ce qui a l'air de fonctionner (pour contourner les droits administrateur) mais qui pose problème pour récupérer le fichier créé !

Menhir,

j'ai essayé d'accéder en utilisant la collection Windows, malheureusement il ne voit que mon Workbook déjà ouvert...

Voilà le code que j'ai utilisé :
Code:

1 2 3 4 5 6 7 Sub ListWindows() Dim wn As Window For Each wn In Application.windows Debug.Print wn.Caption Stop Next wn End Sub
18/07/2014, 23h21
NVCfrm

Non, tu ne peux pas le voir, puisque ton Shell exécute l'Add-In qui aboutira à : ouvrir une nouvelle instance d'Excel.
As tu essayé de l'ouvrir avec GetObject plutôt que par le Shell ? Plus simple.
Autrement récupérer cette instance devra nécessiter des API.
19/07/2014, 12h49
baba89

Je ne connais pas les API.

Je vais donc commencer par essayer ta proposition de GetObject.
Merci NVCfrm
21/07/2014, 09h17
baba89

Bonjour,

La fonction GetObject ne fonctionne malheureusement pas.
J'ai une erreur runtime 432.
"File name or class name not found during Automation operation".

Je pense que le problème de GetObject c'est qu'elle ne sait pas qu'il faut utiliser l'add-in...

Je vais essayer de regarder les API.
21/07/2014, 14h19
NVCfrm

re,
salut.

Autant pour moi. L'idée des API peut etre aussi mauvaise que GetObject à moins que ...,

Quelques questions :
Le complément est-il installé ?
Si oui, Est-il visible dans la collection COMaddins ?
Et si oui encore (je repète Bbill), les méthodes d'importation de l'objet ne sont-ils pas nettement préférable, même s'il faut pour cela manipuler les autorisations ?

Salut,

Pas de problème pour le GetObject. Il faut bien tenter des choses !

Mon complément est installé, visible la collection COMAddin et marche.
Jusqu'à présent je l'utilise ainsi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub ImportTDM() Call GetTDM("c:\Voltage.tdms") '### chemin à adapter ### End Sub Sub GetTDM(Chemin As String) Dim ComTDM As Object 'COMAddIn Dim TDM As Object 'ExcelTDMLib.TDMAddin Set ComTDM = Application.COMAddIns.Item("ExcelTDM.TDMAddin") ComTDM.Connect = True Set TDM = ComTDM.Object Application.ScreenUpdating = False TDM.ImportFile fileName:="" & Chemin & "" Application.ScreenUpdating = True End Sub
L'ennui de cette commande c'est qu'elle nécessite de lancer une session Excel en tant qu'administrateur.
Or, avec Excel en administrateur, il est impossible d'ouvrir des fichiers déjà existants (il plante dans la recherche du chemin si je me souviens bien).
Comme le jonglage systématique entre mode Admin et mode standard commence à me peser, je voulais trouver une solution me permettant d'utiliser le plugin sans avoir à lancer Excel en tant qu'admin, d'où l'idée du Shell.

21/07/2014, 18h53
NVCfrm

Citation:

Envoyé par baba89

Salut,
....
L'ennui de cette commande c'est qu'elle nécessite de lancer une session Excel en tant qu'administrateur.
Or, avec Excel en administrateur, il est impossible d'ouvrir des fichiers déjà existants (il plante dans la recherche du chemin si je me souviens bien).
Comme le jonglage systématique entre mode Admin et mode standard commence à me peser, je voulais trouver une solution me permettant d'utiliser le plugin sans avoir à lancer Excel en tant qu'admin, d'où l'idée du Shell.

Je ne comprends pas trop : lancer une session Excel en tant qu'administrateur qui plante pour ouvrir des fichiers existants . Tu veux dire sans échec
Comment as-tu fait le code l'appel de GetObject ?
Je fais remarquer pour le cas où : Il s'agit de récupérer l'instance Excel ouverte par ton appli.
22/07/2014, 10h01
baba89

2 pièce(s) jointe(s)
Le problème d'Excel pour ouvrir les fichiers est relativement connu.
Je te joins 2 photos pour te montrer comment je procède :
étape 1, passer admin
Pièce jointe 151701
étape 2, plantage lors de l'ouverture d'un classeur existant
Pièce jointe 151702

Pour ce qui est du GetObject j'ai essayé plusieurs choses :
Code:

1 2 Dim TDMFile As Object TDMFile = GetObject(FilePath)
erreur runtime 432. "File name or class name not found during Automation operation".

Où encore
Code:

1 2 3 Set ComTDM = Application.COMAddIns.Item("ExcelTDM.TDMAddin") Dim TDMFile As Object TDMFile = GetObject(FilePath,ComTDM )
erreur runtime 429. "ActiveX component can't create object".
22/07/2014, 11h59
NVCfrm
Bonjour,
Pour le message d'erreur d'ouverture de fichier existant, n'aurais tu pas remarqué dans les Options avancées d'Excel une case coché intitulée à peu près comme ça: "Ignorer les applications utilisant l'échange dynamique de données" ?
Si c'est le cas, décoches-le. Tu n'auras plus besoin d'ouvrir Excel en mode Administrateur pour contourner ce problème.
Si cela ne résout pas ton problème, Eh bien essayes de récupérer l'instance Excel ouvert par ton Shell à l'aide de GetObject.
Je précises la nouvelle instance Excel et non ton complément.
Code:

1 2 Dim xlApp As Object Set xlApp= GetObject(FilePath,"Excel.Application")
Une fois l'instance Obtenue dans xlApp, tu pourras la manipuler.
23/07/2014, 09h26
baba89

1 pièce(s) jointe(s)

Bonjour,

Dans les options avancées, la case que tu mentionnes était déjà décochée.

En utilisant la class Excel pour le GetObject, j'ai à nouveau l'erreur runtime 432. "File name or class name not found during Automation operation".

Du coup, entre cette erreur 432 ou la 429, je me demande si il ne me manque pas tout simplement des references...
Voila celles que j'ai :
Pièce jointe 151793

Pour le microsoft Activex, j'ai essaye de changer de version de librairie (il y en a une petite dizaine), mais ça n'a pas l'air de changer quoi que ce soit.
23/07/2014, 10h23
NVCfrm

bonjour,
et si tu postais le code, pour qu'on puisse deviner la raison de l'erreur.

Tu veux le code complet ?

C'est pas que je ne veux pas, mais il y a 9 modules et encore plus de procédures.
Je te donne uniquement la procédure d'importation. Fais moi signe si tu en veux plus :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub GetTDM(FilePath As String, i As Integer, PasteLocation, wb)
 
        Dim ComTDM As Object  'COMAddIn
        Dim TDM As Object     'ExcelTDMLib.TDMAddin
        Dim Wb2 As Object
        Dim Ws As Worksheet
        Dim CopyFrom As Range
 
        Application.ScreenUpdating = False
 
        'Option historique, qui marche si je lance Excel en tant qu'admin.
        Set ComTDM = Application.COMAddIns.Item("ExcelTDM.TDMAddin")
        ComTDM.Connect = True
        Set TDM = ComTDM.Object
        TDM.ImportFile FileName:="" & FilePath & ""
 
        'Option Shell qui lqnce une nouvelle session Excel que je n'arrive pas a recuperer.
        Const PathExcelTDMIMporter_exe As String = _
        "C:\Program Files\National Instruments\Shared\TDM Excel Add-In\ExcelTDMImporter.exe"
        Dim Ret&
        Ret& = Shell(PathExcelTDMIMporter_exe & Space(2) & FilePath, vbNormalFocus)
 
 
        '3 options de GetObject qvec les erreurs que j'ai decrites precedemment.
        Dim xlApp As Object
        Set xlApp = GetObject(FilePath, "Excel.Application")
 
        Dim TDMFile As Object
        TDMFile = GetObject(FilePath, ComTDM)
 
        Dim TDMFile As Object
        TDMFile = GetObject(FilePath)
 
 
        Stop
 
        Set Wb2 = ActiveWorkbook
        Set Ws = Wb2.Worksheets(2)
 
        Set CopyFrom = Ws.Range("A2:C1402")
        PasteLocation.Resize(CopyFrom.Rows.count).Value = CopyFrom.Value
 
        Wb2.Close dontsave = True
 
End Sub

FilePath est de la forme : Path\Name.tdms

23/07/2014, 19h32
SfJ5Rpw8

Bonjour,

Citation:

Envoyé par baba89

.....FilePath est de la forme : Path\Name.tdms

oui mais ta fenêtre excel ouverte lors de l'exécution de ton importation elle as quoi comme nom dans la barre de titre ?

Citation:

Envoyé par baba89

Tu veux le code complet ?

C'est pas que je ne veux pas, mais il y a 9 modules et encore plus de procédures.
Je te donne uniquement la procédure d'importation. Fais moi signe si tu en veux plus :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub GetTDM(FilePath As String, i As Integer, PasteLocation, wb)
 
        Dim ComTDM As Object  'COMAddIn
        Dim TDM As Object     'ExcelTDMLib.TDMAddin
        Dim Wb2 As Object
        Dim Ws As Worksheet
        Dim CopyFrom As Range
 
        Application.ScreenUpdating = False
 
        'Option historique, qui marche si je lance Excel en tant qu'admin.
        Set ComTDM = Application.COMAddIns.Item("ExcelTDM.TDMAddin")
        ComTDM.Connect = True
        Set TDM = ComTDM.Object
        TDM.ImportFile FileName:="" & FilePath & ""
 
        'Option Shell qui lqnce une nouvelle session Excel que je n'arrive pas a recuperer.
        Const PathExcelTDMIMporter_exe As String = _
        "C:\Program Files\National Instruments\Shared\TDM Excel Add-In\ExcelTDMImporter.exe"
        Dim Ret&
        Ret& = Shell(PathExcelTDMIMporter_exe & Space(2) & FilePath, vbNormalFocus)
 
 
        '3 options de GetObject qvec les erreurs que j'ai decrites precedemment.
        Dim xlApp As Object
        Set xlApp = GetObject(FilePath, "Excel.Application")
 
        Dim TDMFile As Object
        TDMFile = GetObject(FilePath, ComTDM)
 
        Dim TDMFile As Object
        TDMFile = GetObject(FilePath)
 
 
        Stop
 
        Set Wb2 = ActiveWorkbook
        Set Ws = Wb2.Worksheets(2)
 
        Set CopyFrom = Ws.Range("A2:C1402")
        PasteLocation.Resize(CopyFrom.Rows.count).Value = CopyFrom.Value
 
        Wb2.Close dontsave = True
 
End Sub

FilePath est de la forme : Path\Name.tdms

re,
Le code complet pourquoi faire, si ça na pas de rapport avec ton problème ?
Et pourquoi je voudrais ton code, si ce n'est que ça peut aider à trouver la partie susceptible de causer un problème.

bbill a bien fait de lever cette remarque : "FilePath est de la forme : Path\Name.tdms"
GetObject doit forcément se planter ici, en comparant l'association à la classe spécifiée.

De mon côté je viens d'essayer une portion du code après avoir installé le même complément.

Aucun problème de récupération du fichier ouvert par le Shell avec GetObject.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'Option Shell qui lqnce une nouvelle session Excel que je n'arrive pas a recuperer.
        Const PathExcelTDMIMporter_exe As String = _
        "C:\Program Files\National Instruments\Shared\TDM Excel Add-In\ExcelTDMImporter.exe"
        Dim Ret&
        Ret& = Shell(PathExcelTDMIMporter_exe & Space(2) & FilePath, vbNormalFocus)
 
 
        '3 options de GetObject qvec les erreurs que j'ai decrites precedemment.
        Dim xlApp As Object
        Set xlApp = GetObject("", "Excel.Application")
 
 
        xlApp.Application.Windows(1).Visible = True
Stop

Ne sachant que faire de plus je te laisse le soin d'obtenir dans xlApp les composants xlApp.Application.COMAddins.Item(x), xlApp.WorkBook(x)

1 pièce(s) jointe(s)

Bonjour Bbil et NVCfrm, tout d'abord merci de continuer à m'aider.

Bbil, concernant le nom de la fenêtre ouverte par Excel elle s'appelle Book1, puis si j'en ouvre plusieurs simultanément Book2,Book3... (J'en avais fait part lors de mon tout premier post).
J'ajoute un screenshot à la fin de ce post pour répondre à NVCfrm.

NVCfrm, j'ai fait un nouveau fichier Excel nommé test dans lequel j'ai mis uniquement ton code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub test() Dim FilePath As String FilePath = "C:\Users\bzm924\Documents\post traitement\Voltage.tdms" 'Option Shell qui lqnce une nouvelle session Excel que je n'arrive pas a recuperer. Const PathExcelTDMIMporter_exe As String = _ "C:\Program Files\National Instruments\Shared\TDM Excel Add-In\ExcelTDMImporter.exe" Dim Ret& Ret& = Shell(PathExcelTDMIMporter_exe & Space(2) & FilePath, vbNormalFocus) '3 options de GetObject qvec les erreurs que j'ai decrites precedemment. Dim xlApp As Object Set xlApp = GetObject("", "Excel.Application") xlApp.Visible = True 'J'ai du changer t'as ligne "xlApp.Application.Windows(1).Visible = True" car j'ai un subscript out of range. End Sub
Cela m'ouvre bien le fichier TDMS dans Excel, le nom est Book1 et il est sur une deuxième session Excel... (Cf screenshot)
Pièce jointe 151878

Je ne vois pas aucun changement par rapport à ce que j'avais au début.
As-tu réussi à transférer des données d'un workbook à l'autre ?

salut,
désolé pour le retard, quelques pépins

Citation:

Je ne vois pas aucun changement par rapport à ce que j'avais au début.
As-tu réussi à transférer des données d'un workbook à l'autre ?

j'avais plusieurs instructions de tests, différents, j'ai collé le mauvais.

Oui, j'ai récupérer de différentes façons les données, Et je récupère également l'objet COMMaddins dans une variable sans problème dans la nouvelle application.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
Sub test()
 
 Dim FilePath As String, i As Long, L As Long, c As Long, Values
 
    FilePath = "E:\MW2000-1100-BURN_IN_12-05-02_2019.tdms"
 
    Const PathExcelTDMIMporter_exe As String = _
    "C:\Program Files\National Instruments\Shared\TDM Excel Add-In
 
\ExcelTDMImporter.exe"
    Dim Ret&
    Ret& = Shell(PathExcelTDMIMporter_exe & Space(2) & FilePath)
 
    If Ret& Then
        Dim xlWb As Workbook, xlSheet As Worksheet
 
        MsgBox "Veuillez patientez durant la conversion", vbInformation, "Importation"
 
        With Application
            .ScreenUpdating = False
            .Interactive = False
        End With
        'Set xlApp = GetObject("", "Excel.Application")
        Set xlWb = GetObject("Classeur1") ' pour la version anglaise Book1
 
 
        'xlWb.Application.Windows(1).Visible = True
        'J'ai du changer t'as ligne "xlApp.Application.Windows(1).Visible = True" car j'ai 
 
un subscript out of range.
        'normal j'avais posté dans la confusion du code manipulant un objet WorkBook, 
 
comme c'est le cas ici
 
        'recupérer les valeurs dans le classeur de cette instance
        For Each xlSheet In xlWb.Worksheets
            'ThisWorkbook.Worksheets.Add
            With ThisWorkbook.Worksheets.Add
                .Name = xlSheet.Name
                Values = xlSheet.Range("A1").CurrentRegion.Value 'UsedRange.Value si les 
 
données ne sont pas contigues.
                .Range(.Cells(1, 1), .Cells(UBound(Values, 1), UBound(Values, 2))).Value = 
 
Values
            End With
        Next
        'avant de fermer pour une terminaison propre, sans enregistrement indiquer à 
 
l'application
        'que le fichier est enregistré, pour ne pas avoir la boîte d'avertissement 
 
d'enregistrement
        xlWb.Saved = True
        xlWb.Application.Quit
 
        With Application
            .ScreenUpdating = True
            .Interactive = True
        End With
        MsgBox "L'importation s'est correctement déroulé !", vbExclamation, "Terminé"
    End If
	'ou tout simplement
 
    'xlWb.SaveAs "E:\Copie de " & filepath, 51 '51 = xlWorkbookDefault
 
 End Sub
 
 
Sub comtest()
    Dim Tdm As COMAddIn, Td As Object, fic As String, wTdFile As Workbook, n
    Const PathExcelTDMIMporter_exe As String = _
    "C:\Program Files\National Instruments\Shared\TDM Excel Add-In
 
\ExcelTDMImporter.exe"
 
    Dim Ret&
    fic = "E:\MW2000-1100-BURN_IN_12-05-02_2019.tdms"
    Ret& = Shell(PathExcelTDMIMporter_exe & Space(2) & fic)
 
    If Ret& Then
        Set wTdFile = GetObject("Classeur1")
        Set Tdm = wTdFile.Application.COMAddIns.Item(2)
        n = Tdm.Description
        n = Tdm.Connect
        Set Td = Tdm.Object
 
    End If
 
    wTdFile.Saved = True
 
    wTdFile.Application.Quit
    Set wTdFile = Nothing
 
End Sub

Petites explications, tu avais déjà les pistes fournies par bbill, le titre qui apparaît sur la barre de fenêtre.

Bons tests !

25/07/2014, 10h08
baba89
Salut,

Pas de problème pour l'erreur de code d'hier. Ça arrive même aux meilleurs !

Avec ton code on touche quasiment au but.
Tout va bien sauf que lorsque je retire ta message box

Code:

MsgBox "Veuillez patientez durant la conversion", vbInformation, "Importation"

il plante ensuite à la ligne

Code:

Set xlWb = GetObject("Classeur1") ' pour la version anglaise Book1

J'ai remarqué que si je fais ''debug'', que je clic sur ce classeur1 (qui est orange clignotant dans la barre des tâches) et qu'ensuite je clic sur ''continuer'', la procédure repart sans problème.
Il semble donc qu'il faille lui signaler le classeur ou tout au moins attendre.
Du coup j'ai pensé à mettre une tempo
Code:

1 2 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sleep 371'je crois que c'est le minimum qu'il accepte
Et avec la tempo ça marche.

C'est pas forcément très élégant mais comme je fais ça sur plusieurs dizaines de fichiers, je ne peux pas laisser ta message box.
Je ne sais pas si tu as une autre idée en tête. En tout cas merci beaucoup pour le coup de main.
25/07/2014, 10h45
NVCfrm
Citation:
Envoyé par baba89

...
Il semble donc qu'il faille lui signaler le classeur ou tout au moins attendre.
Du coup j'ai pensé à mettre une tempo

Code:

1 2 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sleep 371'je crois que c'est le minimum qu'il accepte

Et avec la tempo ça marche.

C'est pas forcément très élégant mais comme je fais ça sur plusieurs dizaines de fichiers, je ne peux pas laisser ta message box.
Je ne sais pas si tu as une autre idée en tête. En tout cas merci beaucoup pour le coup de main.
Effectivement, il faut attendre que l'application soit prête.
La solution du Sleep est celle à laquelle, j'ai pensé en premier, (je me disais bien que tu trouveras une solution ;) )
Tu peux aussi mettre un AppActivate juste après le Shell pour voir ce que ça donne, Le deuxième argument de cette méthode permet si je ne me trompes à 1 d'attendre.
Sinon pas autre chose de mieux que le Sleep dans une petite boucle de test.
25/07/2014, 11h36
baba89

Ok, je regarderai si le AppData peut être plus efficace.

En tout cas merci beaucoup pour ton aide et ta patience.