Discussion :

[blondelle]

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 :

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

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");

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

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

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.

[blondelle]

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

[blondelle]

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 :

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

[blondelle]

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