Excel -> changer la cellule active

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.

sony351 a ecrit:

Citation:

---

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:

---

1 2 3

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

---

Pour figer les volets un petit bout de code:

Code:

---

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"

---

J'utilise le code suivant pour parcourir les cellulles :

Code:

---

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:

---

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

---

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

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

sony351 a ecrit:

Citation:

---

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