Discussion :

[law56100]

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 :

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
 
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 :

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
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

[law56100]

je en sais pas si c'est la bonne façon mais j'ai réussi

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
 
 
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)
//supprime la ligne 1 de mon fichier
gfclExcel:m_xExcel>>Rows("1:1")>>Select
gfclExcel:m_xExcel>>Selection>>Delete(-4162)//xlUp=-4162
gfclExcel:Enregistrer()
gfclExcel:Fermer()
 
gfclExcel:Ouvrir("",FichierTire)
//copier la ligne 1 de mon fichierTitre
gfclExcel:m_xExcel>>Rows("1:1")>>Select
gfclExcel:m_xExcel>>Selection>>Copy
//inserer les cellules copié
gfclExcel:Ouvrir("",Fichier)
gfclExcel:m_xExcel>>Rows("1:1")>>Select
gfclExcel:m_xExcel>>Selection>>Insert(-4121)//xlDown=-4121
 
gfclExcel:Enregistrer()
gfclExcel:Fermer()

[wimbish]

je en sais pas si c'est la bonne façon mais j'ai réussi

Bonjour,

L'important dans un premier temps c'est que ça fonctionne.
Bravo, tu as posé la question, tu as continué à chercher et tu as trouvé.

Une remarque cependant, tu ouvre deux fois ton fichier, tu doit pouvoir (à mon avis) effectuer les deux taches au même moment.
Voir même, l'insertion du titre doit pouvoir remplacer le titre existent.

[law56100]

J'ai essaié en ouvrant mon premier fichier excel ou la je supprime la ligne, puis j'ouvre le second ou je copy la ligne mais pour retourner sur le premier fichier excel ça plantait. Voici le code ou ça plantait

Code :

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

1
2
 
gfclExcel:m_xExcel>>Windows(FichierTire)>>Activate

[wimbish]

Bonjour,

Je n'ai peut être pas tout compris.
Pourquoi supprimer la cellule A1 du classeur1 alors qu'elle sera "écraser" par la copie de la cellule "A1" du classeur2?

en VBA :
Workbooks.Open Filename:="C:\Users\CHRISTOPHE\Desktop\Classeur2.xlsx"
Range("A1").Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\CHRISTOPHE\Desktop\Classeur1.xlsx"
Range("A1").Select
ActiveSheet.Paste