Discussion :

[Aethia]

Bonjour,
Je programme actuellement une application qui (pour le moment) me permet d'ouvrir un fichier excel que l'on choisi (un fichier par mois). Jusque la tout va bien..

Le problème est que a partir de mon logiciel, je dois pouvoir insérer des informations dans les cellules du document Excel déja ouvert.
J'ai un petit bout de code qui aurait pu bien marcher, mais qui ne veut pas, et je n'arrive pas à comprendre pourquoi :

Code vb6 :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet
Dim appExcel As Excel.Application
 
Set appExcel = GetObject(, "Excel.Application")
 
Set wbExcel = appExcel.ActiveWorkbook
Set wsExcel = wbExcel.ActiveSheet
 
 wsExcel.Range(A1).Value = "blah"

Apres ca, ca rame, puis j'ai un message d'erreur : "Composant occupé - Action impossible à exécuter, car l'autre application est occupée. Choississez 'Basculer vers'..."

Impossible de trouver un seul code sur quelqu'un qui a deja essayé de manipuler un excel déja ouvert, je m'en remet donc a vous
Merci pour votre aide : D

[OhMonBato]

Bonjour,

quand tu dis fichier Excel déjà ouvert, c'est déjà ouvert par qui ou quoi ? Par ton appli ?

[Aethia]

Yep !
J'ai une combo qui me permet de choisir un fichier, ca l'ouvre (j'ai bien mon fichier excel ouvert derriere)
Et dans une autre partie de mon logiciel, je dois pouvoir rajouter des lignes dans le document excel que j'aurais choisi.
Je dois pouvoir en ajouter plusieurs de suite (pas de boucles), donc je ne peux pas fermer le fichier et le rouvrir à chaque fois.

[OhMonBato]

Quand tu ouvres ton fichier Excel, peux tu le modifier comme tu le souhaites ? Essaye juste de modifier une cellule après ouverture par exemple.

Quand dans l'autre partie de ton code, tu souhaites écrire dans ton fichier Excel, tu ne cherches pas à le réouvrir ? Le code que tu montres dans ton premier message ne doit être utilisé qu'une seule fois.

[Aethia]

Hum.. j'avais pas essayé de le modifier apres, et en effet, ca ne marche pas, j'ai un message d'erreur qui me dit qu'il est en lecture seule -_o

Pour la deuxieme partie du code, je ne veux pas réouvrir excel, puisqu'il est déja ouvert, et étant donné qu'il faut ajouter une centaine de lignes une par une, je peux pas fermer et rouvrir le fichier à chaque fois (non ?)
J'aimerai bien "récupérer" l'objet a chaque fois mais ca marche pas :<

[Aethia]

Apres liquidation des 40 instances d'excel ouvertes, ca a l'air de fonctionner
(Il manquait Set appExcel = nothing dans mon code..)
Merci de m'avoir aidé, j'aurais jamais remarqué ca sinon !