Discussion :

[albla]

Bonjour
Voici mon environnement dans lequel j’évolue (WindowsXP, Excel 2003, VB6)

Au départ, j’ai créé un fichier excel «monclasseur.xls » contenant des données dans la feuille(1) et je l’ai enregistré dans un répertoire. J’ai lui ai mis un raccourci sur le bureau pour que je puisse l’ouvrir et le renseigner régulièrement

j'ouvre donc ce classeur Excel tout à fais normalement (par le biais de son raccourci), la feuille(1) contenant les données s’affiche à l’écran par défaut.

A partir de là

je voudrai créer une application VB6 qui reconnaîtrai donc le fichier Excel « monclasseur.xls » que j’ai ouvert précédemment pour lire et écrire dans les cellules de la feuille(1).

Dans VB6, je me suis servi de ce code que j’ai trouvé en consultant le site

J’ai également coché dans, Projet /Référence / "Microsoft Excel xx.x Object library"

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
Dim AppExcel As Excel.Application 
Dim Classeur As Excel.Workbook 
Dim Feuille As Excel.Worksheet 
 
’le programme pour démarrer 
Set AppExcel = CreateObject("Excel.Application") 
Set Classeur = AppExcel.Workbooks.Open(App.Path & "\monclasseur.xls") 
Set Feuille = Classeur.Worksheets(1) 
 
’Mon programme pour renseigner des cellules type 
Feuille.Cells(1,1)=" merci beaucoup ") 
 
’le programme pour quitter 
Application.DisplayAlerts = False 
ActiveWorkbook.Save 
Application.DisplayAlerts = True 
Classeur.Close 
AppExcel.Quit 
Set Feuille = Nothing 
Set Classeur = Nothing 
Set AppExcel = Nothing

Ce programme VB6 fonctionne très bien mais :
A la fin de ce programme, le fichier excel «monclasseur.xls » est censé s’être enregistré avec les modification effectué dans la cellule(1,1), hors, rien ne s’est inscrit dans la cellule(1,1)..

Par contre :
Si je n’ouvre pas le fichier excel « monclasseur.xls »
j’utilise ce même code VB6
j'ouvre après le fichier excel « monclasseur.xls »
je constate que les modifications dans la cellule(1,1) ont bien été effectuées..

En fait, quand le fichier «monclasseur.xls » est ouvert, l’enregistrement ne ce fait pas sur le classeur ouvert, et j’ai remarqué que un double du fichier s’est enregistré sous C:\documentSetting\Utilisateur\... avec la cellule(1,1) modifiée.


Je voudrai simplement que VB6 reconnaisse le fichier Excel «monclasseur.xls » quand il est ouvert, modifie les cellules de la feuille(1), et enregistre les modifications.
Comment faire pour travailler avec VB6 sur un classeur Excel déjà ouvert

Merci encore

[Pascal Lob]

Bonjour,
J'ai un peu regardé en diagonale mais je pense que ton programme ouvre une nouvelle instance d'Excel, qui n'est pas visible. Ouvre ton fichier fait la modif, mais ne peut pas l'enregistrer car le fichier est déjà ouvert par ailleur.


un AppExcel.Visible = true devrait te permettre de voir le second Excel s'ouvrir.

Code :

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

1
2
3
Application.DisplayAlerts = False 
ActiveWorkbook.Save 
Application.DisplayAlerts = True

DisplayAlerts = false masque l'affichage des messages du type ce fichier ne peut pas être modifié ...
si tu met cette ligne en commentaire tu devrais avoir le message.

[albla]

Bonjour Pascal
Je te remercie pour ta réponse.
Le fichier Excel avec lequel je travail est sur le Bureau
Il est situé dans sous C:\ Documents and Settings\Alain\Bureau

Effectivement, Le programme VB6 ouvre une nouvelle instance d’Excel, avec « AppExcel.Visible=True », un 2eme fichier Excel s’est ouvert.

J’ai apporté une modification dans une cellule avec

Code :

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

Feuille.Cells(1,1)="merci beaucoup"

Puis j’ai enregistré avant de quitter en prenant soin de mettre « DisplayAlerts = false ».

Le 2eme fichier Excel s’est enregistré sous C:\ Documents and Settings\Alain\Mes documents

Le fichier initial reste inchangé sous C:\ Documents and Settings\Alain\Bureau

Je pense que

Code :

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

Set AppExcel = CreateObject("Excel.Application")

n’est pas approprié pour travailler sur un document Excel déjà ouvert.
J’ai essayé aussi

Code :

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

Set appExcel = GetObject(, "Excel.Application")

ou

Code :

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

Set appExcel = New Excel.Application

mais c’est exactement pareil, je n’y arrive pas.
Qu’elle solution peux tu m’apporter.

Merci pour ton suivi