et excel 2003, transformer du vba en windev
Bonjour
le but : j'ai une société mère qui réalise des fiche techniques technique sous excel2003 pour chacun de ces articles.(5000 articles => 5000 fichiers excels). j'ai 10 autres sociétés. je dois copier les fichiers excels, et modifier la ligne 1 dans la quelle il y a des images et titre selon la société. j'ai un autre fichier excel avec 10 ligne et 1 ligne correspond à un titre d'une société.
Toutes les lignes sont identique c'est à dire même hauteur, les même cellules de même taille et fussionné identiquement.
mon but :
copier la ligne 1 du fichier excel "FichierTitre" et la coller à la place de la ligne 1 de mon fichier excel "Fichier"
voici mon code mais cela plante
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
FichierTire est une chaîne="D:\Sovefrais.xls"
Fichier est une chaîne="D:\802146 FT GLACES SURG MDD cône vanille 120ml.xls"
gfclExcel:Ouvrir("",Fichier)
gfclExcel:Ouvrir("",FichierTire)
//supprime la ligne 1 de mon fichier
gfclExcel:m_xExcel>>Windows(Fichier)>>Activate //Pour le message d'erreur Ligne(42)
gfclExcel:m_xExcel>>Rows("1:1")>>Select
gfclExcel:m_xExcel>>Selection>>Delete(-4162)//xlUp=-4162
//copier la ligne 1 de mon fichierTitre
gfclExcel:m_xExcel>>Windows(FichierTire)>>Activate
gfclExcel:m_xExcel>>Rows("1:1")>>Select
gfclExcel:m_xExcel>>Selection>>Copy
//inserer les cellules copié
gfclExcel:m_xExcel>>Windows(Fichier)>>Activate
gfclExcel:m_xExcel>>Rows("1:1")>>Select
gfclExcel:m_xExcel>>Selection>>Insert(-4121)//xlDown=-4121
gfclExcel:Enregistrer()
gfclExcel:Fermer() |
messsage d'erreur :
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
| Erreur à la ligne 42 du traitement Clic sur Bouton5.
Vous avez appelé la méthode Automation 'Windows'.
En tentant d'invoquer la méthode <Windows> ou de lire la propriété <Windows>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 8002000B : '
En tentant d'invoquer la méthode <Windows>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80020003, Le membre demandé n'existe pas'
En tentant de lire la propriété <Windows>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 8002000B : '
En tentant d'écrire la propriété <Windows>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80020003, Le membre demandé n'existe pas'
----- Informations techniques -----
Projet : Altis
Appel WL :
Traitement de 'Clic sur Bouton5' (TESTExportExcelPdf.Bouton5), ligne 42, thread 0
Que s'est-il passé ?
Vous avez appelé la méthode Automation 'Windows'.
En tentant d'invoquer la méthode <Windows> ou de lire la propriété <Windows>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 8002000B : '
En tentant d'invoquer la méthode <Windows>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80020003, Le membre demandé n'existe pas'
En tentant de lire la propriété <Windows>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 8002000B : '
En tentant d'écrire la propriété <Windows>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80020003, Le membre demandé n'existe pas'
Code erreur : 2205
Niveau : erreur fatale (EL_FATAL)
Dump de l'erreur du module 'WD160VM.DLL' (16.0.150.6).
Identifiant des informations détaillées (.err) : 130001
Informations supplémentaires :
EIT_PILEWL :
Clic sur Bouton5 (TESTExportExcelPdf.Bouton5), ligne 42
Clic sur LOIC (menu.LOIC), ligne 6
EIT_DATEHEURE : 27/03/2012 11:27:55 |
Je ne comprends pas l'erreur si on peux m'aider. ou sinon si le code n'est pas bon, et qu'il y a une autre solution je suis preneur.
merci d'avance
