Discussion :

[sony351]

Bonjour,

Je voudrais changer de place la cellule active pour ensuite figer les volets, par défaut quand je créé une feuille elle ce met en A1
Comment faire !!!
j'ai donc trouvé

Code :

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

Variant vRangeAdress = vRange.OlePropertyGet("Address");

ou encore

Code :

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

vRange= vMSExcel.OlePropertyGet("Selection");

et donc ensuite je change le Get en Set

Code :

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

OlePropertySet("Address", "B2");

mais en vain,

Merci d'avance pour votre grande aide.

[blondelle]

sony351 a ecrit:

Bonjour,

Je voudrais changer de place la cellule active pour ensuite figer les volets, par défaut quand je créé une feuille elle ce met en A1
Comment faire !!!
j'ai donc trouvé
Code :
Variant vRangeAdress = vRange.OlePropertyGet("Address");ou encore
Code :
vRange= vMSExcel.OlePropertyGet("Selection");et donc ensuite je change le Get en Set
Code :
OlePropertySet("Address", "B2");mais en vain,

Merci d'avance pour votre grande aide.

peut etre en essayant ceci:

Code :

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

1
2
3
 
// on selectionne la cellule "A1"
vRange = vWorksheet.OlePropertyGet("Range", "A1");

[blondelle]

Pour figer les volets un petit bout de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
// on selectionne la Feuille active
// ici ("Worksheets", 1) peut etre remplace par ("Worksheets", "LeNomDeLaFeuille")
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
// on selectionne la cellule qui sert a positionner les volets
vRange = vWorksheet.OlePropertyGet("Range", "B4");
// on selectionne la cellule
vRange.OleProcedure("Select");
// soit on fige soit on libere les volets
vMSExcel.OlePropertyGet("ActiveWindow").OlePropertySet("FreezePanes", true); // pour liberer les volets remplacer "true" par "false"

[gandf]

J'utilise le code suivant pour parcourir les cellulles :

Code :

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

1
2
vRange = AnsiToOLESTR(("G" + IntToStr(B)).c_str()); // on sélectionne la cellule suivante
vCell = vWorksheet.OlePropertyGet("Range", vRange);

Si cela peut vous aider.

Il me semble que l'on change de feuille ainsi :

Code :

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

1
2
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
vUsedRange = vWorksheet.OlePropertyGet("UsedRange");

Bien entendu, toute les variables commençant par "v" sont des variants.

[sony351]

ça marche pas,

j'ai l'erreur suivante sur la ligne

Code :

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

vRange.OleProcedure("Select");

Le projet Project1.exe a provoqué une classe d'exception EOleSysError avec le message 'Une exception s'est produite'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

[blondelle]

sony351 a ecrit:

ça marche pas,

j'ai l'erreur suivante sur la ligne
Code :
vRange.OleProcedure("Select");Le projet Project1.exe a provoqué une classe d'exception EOleSysError avec le message 'Une exception s'est produite'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

A tu selectionne ta feuille
A tu selectionne ta cellule
Regarde le code que je t'ai passe ca marche normalement tu n'a qu'a modifier l'adresse de la cellule ("B4") par celle qui te convient.
Sinon fait voir un peu plus de code.