probleme lors d'un copier/coller entre deux classeurs OleExcel

Version imprimable

J'ai un probleme de deselection lors d'un copier colle d'une feuille du classeur1, vers une feuille du classeur2, la copie se fait parfaitement, je vide le presse papier, je deselectionne le classeur2, mais je ne parvient pas a mettre au premier plan le classeur1 (sur lequel j'ai fait la copie) afin de le deselectionner, si je le fait manuellement en mode debug ca marche, je n'arrive pas a le programmer.
Voici le code je n'ai pas d'erreur mais rien ne se passe.
le code:
Code:

1 2 3 4 5 6 vXLWorkbook = vMSExcel.OlePropertyGet("Workbooks", "télégraphe"); vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets"); vWorksheet = vMSExcel.OlePropertyGet("ActiveSheet"); vWorksheet.OleProcedure("Select"); vWorksheet.OlePropertyGet("Range", "A1").OleProcedure("Select");

16/08/2006, 13h32
bandit boy

Salut blondelle,
Juste par curiosité, si tu rend la main à l'OS avec des Application->ProcessMessage, est ce que cela peut résoudre ton problème?
16/08/2006, 17h49
blondelle

Merci pour ta reponse bandit boy.
Je ne vois pas comment l'utiliser par contre en visual basic une commande existe.
le code VBE:

Citation:

Windows("Classeur1").Activate

Je n'ai pas reussi a trouver la correspondance de "Windows" avec une commande OleExcel.
Je prefererais rester sous OleExcel car melanger les commandes BCB et Ole ca risque de poser d'autres problemes.
16/08/2006, 17h51
blondelle

A tu remarque que cela fait une exposition de moto il en manque une troisieme pour faire plus jolie.

Finalement je viens de resoudre mon probleme apres plusieures jours de recherche a se remuer le pois chiche je peut appeler un classeur ouvert parmis d'autres par son nom je poste le code.
le code:

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
 
//
///////////
// copier/coller d'une feuille d'un classeur vers un autre classeur
// on selectionne toute la feuille 1 du classeur 1 et on la copie
//
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "télégraphe");
vWorksheet.OleProcedure("Select");
vWorksheet.OlePropertyGet("Cells").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OlePropertyGet("Copy");
//
// on cree un nouveau classeur
//
vXLWorkbook = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook.OleProcedure("Add");
vWorksheet = vMSExcel.OlePropertyGet("ActiveSheet");
///////////
// on renomme la feuille du nouveau classeur
vWorksheet.OlePropertySet("Name", "SAUVEGARDE_2");
//
// on recopie le contenu de télégraphe dans SAUVEGARDE_2
vWorksheet.OleProcedure("Select");
vWorksheet.OlePropertyGet("Cells").OleProcedure("Select");
vMSExcel.OlePropertyGet("ActiveSheet").OleProcedure("Paste");
//
// on deselectionne la feuille SAUVEGARDE_2 et la Feuille télégraphe du classeur 1
vMSExcel.OlePropertySet("CutCopyMode", false);
vWorksheet.OlePropertyGet("Range", "A1").OleProcedure("Select");
//
// on selectionne le classeur télégraphe
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vMSExcel.OlePropertyGet("Workbooks", "télégraphe");
vXLWorkbook.OleProcedure("Activate");
// on selectionne la feuille télégraphe du classeur télégraphe
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "télégraphe");
vWorksheet = vMSExcel.OlePropertyGet("ActiveSheet");
vWorksheet.OleProcedure("Select");
vWorksheet.OlePropertyGet("Range", "A1").OleProcedure("Select");
//
///////////
//

le programme copie une feuille du classeur télégraphe dans un classeur que l'on cree, on deselectionne la feuille sauvegarde_2 on appel le classeur télégraphe on le selectionne on deselectionne la feuille télégraphe et le tour est joue

16/08/2006, 20h09
blondelle

Je peut mettre un tres gros resolu sur ce post qui m'a donne beaucoup de mal.