Discussion :

[Piixx_e]

Bonjour,

J'ai lu cette discussion qui m'est utile, et j'ai moi aussi malheureusement le problème de ce droit administrateur : sur les ordinateurs de mon école, quelques-uns seulement sont dotés de l'Add-In en question et évidemment, ils sont trop lents pour exécuter ensuite mes macros, je dois donc changer d'ordinateur une fois le fichier Excel acquis.
Pour l'instant, j'ouvre donc le fichier tdms à l'aide de l'Excel Importer sur l'ordinateur qui le permet, et je copie/colle dans un autre fichier Excel.

Cependant, et c'est pour ça que votre discussion m'a intéressée, mon fichier tdms est très long (plus d'1048576 lignes, la limite d'Excel 2010), et de ce fait, je dois fermer et rouvrir l'Excel Importer pour qu'il recommence l'importation à partir d'une ligne que je lui donne (je lui donne donc la dernière ligne que j'ai importé et je recommence mon copier/coller sur le même autre fichier Excel, dans une feuille différente).

Je ne sais pas si j'ai été claire, mais j'aurais donc voulu savoir si je peux automatiser tout ça. Mais avant d'en arriver au point de chercher à ce qu'il remplisse deux feuilles différentes avec des données (en plus donc de la feuille d' "introduction" qui ne contient pas de données qui m'intéressent), j'aurais voulu que l'automatisation fonctionne, et après avoir testé votre dernier code sur l'ordinateur où n'est pas installé l'Add-In, il ne m'affiche aucune donnée dans mon Excel. Au cas où je me sois trompée, vous avez bien écrit ce code pour qu'il fonctionne sans celui-ci, non ?

Dernière précision pour être plus claire : quand j'utilise Excel Importer, voilà ce qu'il m'affiche dans un fichier Excel :
1) Il me dit que le nombre de lignes de données dépasse la limite d'Excel et me demande à partir de quel indice je souhaite importer les données. Le 1er coup je dis donc "1" et le 2e je lui dis "1048576" (la 1ère ligne des données ne m'intéresse pas, je reprends donc à l'indice 1048576 et non pas 1048577)
Cela fait, il m'affiche ceci :
2) Feuil1 : des données qui ne m'intéressent pas (des titres ou des valeurs de constantes diverses pour la plupart, ce n'est pas moi qui ai programmé ce fichier .tdms)
3) Feuil2 : les données que je veux, réparties sur cinq colonnes, dans la limite de lignes d'Excel (1048576 lignes)

Je ne suis pas sûre que mon problème ait une solution, je me contente pour l'instant du copier-coller, mais sait-on jamais, ça serait quand même bien mieux (rien que pour les suivants qui voudront utiliser ce programme) que ce soit automatisé donc je tente le coup

[PMO2017]

après avoir testé votre dernier code sur l'ordinateur où n'est pas installé l'Add-In, il ne m'affiche aucune donnée dans mon Excel. Au cas où je me sois trompée, vous avez bien écrit ce code pour qu'il fonctionne sans celui-ci, non

Bonjour,

Je ne me rappelle plus, j'avais fait ce code au pied levé et n'en ai, pour ma part, aucun usage et aucune utilité.
Essayez de télécharger le fichier du message #3 et de faire un test à partir de lui. Vous serez renseigné quant au fonctionnement. S'il est positif, il faudrait que j'ai votre très gros fichier pour voir ce qui se passe mais par l'intermédiaire du forum ce n'est pas possible. Je peux vous communiquer une adresse pour que vous me l'envoyiez.

[Piixx_e]

Bonjour,

Merci pour votre réponse tout d'abord

Je viens d'essayer avec le fichier du message #3 et malheureusement ça ne donne rien non plus.
Mais en fait, je crois que j'ai été un peu stupide : sur l'ordinateur où il y avait l'add-In, j'avais juste récupéré le dossier intitulé "TDM Excel Add-In". Je n'ai pas installé l'Add-In (l'ordinateur m'en empêche parce que je ne suis pas administrateur). Je croyais que baba89 avait le même problème mais en ayant relu ses posts plus attentivement, il parlait de problème administrateur au moment de "l'exécution" et non pas de "l'installation". Bref, désolée

J'essaierais donc les codes des messages #3 et #4 dans la journée, dès que j'aurais accès à l'ordinateur ayant l'Add-In d'installé !

Bonjour,

Alors j'ai testé les différents codes en les adaptant à mon problème et voilà mes différents résultats :

Code1

Code :

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

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

Code2

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub GetTDM() 
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:="c:\Voltage.tdms"    
Application.ScreenUpdating = True
End Sub

Ces deux codes m'ouvrent un nouveau fichier Excel où ils ouvrent deux feuilles : une de "titres" en gros, et l'autre avec mes données qui s'arrêtent à la ligne 1048576. Problème : j'ai beaucoup plus de données que ça, et je n'ai pas moyen (il me semble) d'avoir le reste.

Code3

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'### Constante du chemin de ExcelTDMIMporter.exe (à adapter) ###
Const PathExcelTDMIMporter_exe As String = _
  "C:\Program Files\National Instruments\Shared\TDM Excel Add-In\ExcelTDMIMporter.exe"
Il suffit de lancer le .exe par un Shell en lui ayant préalablement fourni le paramètre chemin du fichier .tdms
'###############################################################
 
Sub MonteTDMS()
Call ImportTDMS2XL("C:\Voltage.tdms")
End Sub
 
Sub ImportTDMS2XL(FileTdms As String)
Dim Ret&
Ret& = Shell(PathExcelTDMIMporter_exe & Space(2) & FileTdms, vbNormalFocus)
End Sub

Alors celui-là, il m'ouvre aussi un fichier Excel mais une fenêtre s'affiche et me dit qu'il y a plus que 1048575 valeurs et me demande d'écrire l'index auquel je veux qu'il commence l'importation. Forcément, le 1er coup, je lui dis 1. Et j'obtiens deux feuilles exactement comme les deux codes précédents. Mais du coup, si je veux la suite (en entrant 1048576 pour qu'il rentre les prochaines valeurs), je dois relancer le Sub et j'aurais donc un nouveau fichier Excel.

J'ai donc privilégié le code3 pour mon cas.

Voilà donc le souci :
1) Je n'ai pas toutes mes valeurs dans un unique Excel.
2) Il m'ouvre deux classeurs, est-il possible de lui dire de copier une feuille entière d'un classeur à l'autre ?

Ce 2e point n'est pas primordial, le 1er étant vraiment ce qui m'intéresse prioritairement, mais je n'ai pas l'impression de pouvoir l'empêcher de créer un nouveau classeur ou de pouvoir lui dire de mettre les données suivantes dans une autre feuille du classeur.

Merci d'avance pour votre aide, je continue pendant ce temps de chercher de mon côté !

EDIT : la page http://www.ni.com/white-paper/10207/en/ a l'air d'expliquer pas mal de choses, je vais tâcher de comprendre ça, mais pour ceux qui cherchent aussi ça pourra être utile

EDIT 2 : Ah et j'oubliais, dans les 2 premiers codes, j'ai du enlever la ligne :

Code :

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

ComTDM.Connect = True

Parce que ça m'affichait un message me disait que n'étant pas administrateur je ne pouvais pas toucher à ce paramètre. En enlevant juste la ligne, ça marche comme je l'ai expliqué plus haut.

[PMO2017]

Bonjour,

N'ayant pas un fichier .tdms si conséquent que le vôtre, je ne peux faire des tests et apporter la moindre piste à la résolution de votre problème.
****
Cependant, on peut faire une démarche pour réunir les feuilles dans un seul classeur.
Vous avez donc 2 classeurs chacun dans une instance distincte d'Excel. Sauvegardez les classeurs (ex : A.xls et B.xls ) et fermez les.

Copiez le code suivant dans un module standard du classeur contenant vos macros (ou dans un autre)

Code :

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

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
Sub CopierFeuilleTDMS()
Dim Reponse As Variant
Dim WBs(1 To 2) As Workbook
Dim i&
'---
Reponse = Application.GetOpenFilename( _
    FileFilter:="Classeur Excel (*.xls; *.xlsx), *.xls; *.xlsx", _
    Title:="Sélectionnez 2 classeurs issus de .tdms", MultiSelect:=True)
If Not IsArray(Reponse) Then Exit Sub
If UBound(Reponse) <> 2 Then
  MsgBox "Il faut sélectionner 2 classeurs"
  Exit Sub
End If
For i& = 1 To 2
  Workbooks.Open Reponse(i&)
  Set WBs(i&) = ActiveWorkbook
Next i&
'---
WBs(2).Sheets(2).Name = "Suite"
WBs(2).Sheets(2).Copy After:=WBs(1).Sheets(2)
WBs(2).Close False
'---
WBs(1).SaveCopyAs ("c:\Fusion tdms.xls")
WBs(1).Close False
'---
MsgBox "Copie de feuille réalisée dans " & "c:\Fusion tdms.xls"
End Sub

Lancez la procédure CopierFeuilleTDMS.
Sélectionnez les 2 classeurs A.xls et B.xls (la propriété MultiSelect de la boîte de dialogue est activée). La fusion est faite dans un nouveau classeur, son chemin/nom est signalé par une MsgBox.

[Piixx_e]

Edit du 18/11/13 : je vous joins mon fichier .tdms pour que vous puissiez le tester (hum, en fait, il est trop gros pour pouvoir être joint sur ce post, mais je peux l'envoyer par mail !)

Petite précision tout de même, je suis partie du code figurant sur ce lien -> http://www.ni.com/white-paper/10207/en/, et j'ai commencé à le travailler pour parvenir à mes fins.

Ce code me retourne une erreur 1004 à la ligne 64, me disant que la méthode SaveAs de l'objet Workbook a échoué.

PMO2017, merci pour votre code, il fonctionne plutôt bien et est plus concis, mais au moment d'effectuer la copie, mes fichiers Excel Données1 et Données2 sont déjà ouverts, alors je préférerais ne pas devoir les fermer puis rouvrir ! Et il bloque aussi au SaveAs. Mais si cela fonctionne chez vous, ça doit vraiment être un problème de mémoire chez moi. Et je crois qu'il y a un petit souci quand je renomme les feuilles. J'ai du rajouter un ".Add" pour que cela fonctionne : il n'y avait qu'une feuille dans mes classeurs !
Je vais chercher également comment supprimer un fichier dans la FAQ ou les tutos, je devrais pouvoir trouver

EDIT : après un peu de travail, voilà le code que j'obtiens ! (toujours le même problème de SaveAs mais je persiste à penser que c'est un souci de mémoire, même si je ne peux pas vérifier puisque je ne peux rien supprimer de la page où je travaille)

Code :

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

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
Sub Importation()
Dim Wb As Workbook
Set Wb = ThisWorkbook
 
For k = 1 To 2
'Get TDM Excel Add-In
Dim obj As COMAddIn
Set obj = Application.COMAddIns.Item("ExcelTDM.TDMAddin")
 
'Confirm only importing "Description" properties for Root
Call obj.Object.Config.RootProperties.DeselectAll
Call obj.Object.Config.RootProperties.Select("Description")
 
'Show the group count as property
Call obj.Object.Config.RootProperties.Select("Groups")
 
'Select all the available properties for Group
Call obj.Object.Config.GroupProperties.SelectAll
 
'Import custom properties
obj.Object.Config.RootProperties.SelectCustomProperties = True
obj.Object.Config.GroupProperties.SelectCustomProperties = True
obj.Object.Config.ChannelProperties.SelectCustomProperties = True
 
'Let the user choose which file to import
Dim fileName
fileName = Application.GetOpenFilename("TDM & TDMS (*.tdm;*.tdms),*.tdm;*.tdms")
If fileName = False Then
' User selected Cancel
Exit Sub
End If
chemin = Left(fileName, InStrRev(fileName, "\"))
 
'Import the selected file
Call obj.Object.ImportFile(fileName, False)
 
'Supprimer la feuille et ligne inutiles et renommer la feuille 1 + enregistrer futur nom du classeur final
Dim NomFichier As String
 
If NomFichier = "" Then
NomFichier = Left(Worksheets(1).Cells(2, 1), InStrRev(Worksheets(1).Cells(2, 1), ".") - 1)
End If
Worksheets(1).Delete
Range("A1").EntireRow.Delete
Worksheets(1).Name = "Feuil" & k
 
'Record down the current workbook
ActiveWorkbook.SaveAs fileName:="Données" & k, FileFormat:=xlOpenXMLWorkbookMacroEnabled
'Process the imported data
'...
 
Next
 
Dim Wbd1 As Workbook
Dim Wbd2 As Workbook
Set Wbd1 = Workbooks("Données1.xlsm")
Set Wbd2 = Workbooks("Données2.xlsm")
 
Wbd1.Worksheets.Add After:=Worksheets(1)
Wbd1.ActiveSheet.Name = "Feuil2"
Wbd2.Worksheets("Feuil2").Copy After:=Wbd1.Worksheets("Feuil2")
 
Wbd2.Close SaveChanges:=False
Wbd1.SaveAs fileName:=NomFichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Wbd1.Close SaveChanges:=False
 
Dim chemin_1 As String, chemin_2 As String
chemin_1 = chemin & "Données1.xlsm"
chemin_2 = chemin & "Données2.xlsm"
Kill chemin_1
Kill chemin_2
 
Wb.Close SaveChanges:=False
End Sub

J'aurais cependant aimé savoir s'il n'était pas possible de programmer VBA pour qu'il réponde lui-même aux questions du type : "voulez-vous supprimer cette feuille" ou "à partir de quel index voulez vous commencer l'intégration des données" (ce n'est pas écrit comme ça mais c'est l'idée). J'aimerais pouvoir lui dire : "oui supprime les feuilles 1 de chaque classeur" et "mets 1 quand k=1 et mets 1048576 quand k=2". Ainsi que, pour le 2e fichier Excel ouvert (la suite des données, donc quand k=2), lui dire "prends le même fichier .tdms".
Est-ce possible ?

Merci d'avance !

[Piixx_e]

Bonjour,

Désolée pour le double post, mais le bouton pour éditer mon précédent message a disparu...

Bref, pour vous dire que j'ai trouvé une solution à quelques problèmes :
- Pour lui faire dire oui quand il me demande si je veux bien supprimer une feuille remplie de données, j'ai rajouté "Application.DisplayAlerts = False" puis "Application.DisplayAlerts = True" une fois la zone à problèmes passée.
- Pour lui faire prendre le même fichier et ne pas avoir à le sélectionner deux fois, j'ai rajouté un petit "If k=1" devant la recherche du fichier, et vu qu'il garde le chemin du fichier en mémoire, il n'y a plus qu'à relancer l'intégration sans chercher une 2e fois le fichier !

Le code à jour si ça peut aider quelqu'un :

Code :

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

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
Sub Importation()
 
Dim Wb As Workbook
Set Wb = ThisWorkbook
 
For k = 1 To 2
'Get TDM Excel Add-In
Dim obj As COMAddIn
Set obj = Application.COMAddIns.Item("ExcelTDM.TDMAddin")
 
'Confirm only importing "Description" properties for Root
Call obj.Object.Config.RootProperties.DeselectAll
Call obj.Object.Config.RootProperties.Select("Description")
 
'Show the group count as property
Call obj.Object.Config.RootProperties.Select("Groups")
 
'Select all the available properties for Group
Call obj.Object.Config.GroupProperties.SelectAll
 
'Import custom properties
obj.Object.Config.RootProperties.SelectCustomProperties = True
obj.Object.Config.GroupProperties.SelectCustomProperties = True
obj.Object.Config.ChannelProperties.SelectCustomProperties = True
 
'Let the user choose which file to import (seulement pour k=1)
If k = 1 Then
    Dim fileName
    fileName = Application.GetOpenFilename("TDM & TDMS (*.tdm;*.tdms),*.tdm;*.tdms")
    If fileName = False Then
    ' User selected Cancel
    Exit Sub
    End If
    chemin = Left(fileName, InStrRev(fileName, "\"))
End If
 
'Import the selected file
Call obj.Object.ImportFile(fileName, False)
 
'Supprimer la feuille et ligne inutiles et renommer la feuille 1 + enregistrer futur nom du classeur final
Dim NomFichier As String
Application.DisplayAlerts = False
If NomFichier = "" Then
NomFichier = Left(Worksheets(1).Cells(2, 1), InStrRev(Worksheets(1).Cells(2, 1), ".") - 1)
End If
Worksheets(1).Delete
Range("A1").EntireRow.Delete
Worksheets(1).Name = "Feuil" & k
 
'Record down the current workbook
ActiveWorkbook.SaveAs fileName:="Données" & k, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = True
'Process the imported data
'...
 
Next
 
Dim Wbd1 As Workbook
Dim Wbd2 As Workbook
Set Wbd1 = Workbooks("Données1.xlsm")
Set Wbd2 = Workbooks("Données2.xlsm")
 
Wbd2.Worksheets("Feuil2").Copy After:=Wbd1.Worksheets("Feuil1")
 
Wbd2.Close SaveChanges:=False
Wbd1.SaveAs fileName:=NomFichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Wbd1.Close SaveChanges:=False
 
Dim chemin_1 As String, chemin_2 As String
chemin_1 = chemin & "Données1.xlsm"
chemin_2 = chemin & "Données2.xlsm"
Kill chemin_1
Kill chemin_2
 
Wb.Close SaveChanges:=False
End Sub

Mais je ne sais vraiment pas comment faire par rapport au message (titre : "Selective Load") qui apparaît à la ligne 38 et qui me dit :

Channel Time has more than 1048575 values. Please select a start index.
Value index to start importing : *une zone où l'on peut entrer la valeur ou l'augmenter ou la diminuer de 1 avec des flèches, par défaut c'est la valeur 1 qui est affichée*)
*une case à cocher, par défaut elle est décochée* Apply this start index to all channels with more than 1048575 values
* bouton "Import" * * bouton "Cancel" *

Or idéalement, le 1er coup je veux bien 1, mais je coche également la case pour qu'il m'applique la valeur 1 à toutes mes colonnes, sinon, je dois recliquer sur Import 4 fois (nombre de Channels dans mon cas).
Et le 2e coup, j'entre 1048576, je coche la case et je clique sur "Import".

Si cocher la case est impossible, je peux contourner le problème en lui faisant remplir 4 fois par 1 puis le 2e coup, 4 fois par 1048576, mais le problème reste le même pour moi : comment écrire 1048576 par VBA dans la zone affichée ?

La question que je n'arrive donc pas à résoudre est : est-il possible d'automatiser cette démarche ou pas ? Et si oui, comment on fait ?