Discussion :

[BM42]

Dans une application j'ai besoin d'ouvrir plusieurs documents excel pour importer des données, pour cela j'utilise des matrices (fichier Excel).
Mais gros problème !!!!

la première ouverture d'excel se pas bien.
pour la deusième :
L'application excel souvre mais mon classeur n'est pas visible.
L'enregistrement du fichier est tout de même possible.

Si dessous le programme utilisé.

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
Dim Lg As Integer
        Dim Xlsapp As New excel.Application
        Dim Xlsbook As excel.Workbook
        Dim xlsheet As excel.Worksheet
 
        Set Xlsapp = excel.Application
        Set Xlsbook = Xlsapp.Workbooks.Open("f:\progdata\ccpu\matrice2.xls")
        Set xlsheet = Xlsbook.Worksheets(1)
        Xlsapp.Visible = False
 
        Cells(2, 5) = F_6.Text6(0).Text
        Cells(4, 5) = F_6.Text6(1).Text
        Lg = 6
 
        Denv1.rsCmd1.MoveFirst
        Do While Not Denv1.rsCmd1.BOF And Not Denv1.rsCmd1.EOF
        Lg = Lg + 1
            Cells(Lg, 1) = Denv1.rsCmd1!Nuance
            Cells(Lg, 2) = Denv1.rsCmd1!coulee
            Cells(Lg, 3) = Denv1.rsCmd1!lot
            Cells(Lg, 4) = Denv1.rsCmd1!Qte
            Cells(Lg, 5) = Denv1.rsCmd1!Format
            Cells(Lg, 6) = Denv1.rsCmd1!Recu
        Denv1.rsCmd1.MoveNext
        Loop
 
        Xlsapp.Visible = True
 
        MsgBox "Export terminé."
 
        Xlsapp.Workbooks.Close
        Xlsapp.Application.Quit
 
        Set xlsheet = Nothing
        Set Xlsbook = Nothing
        Set Xlsapp = Nothing

ce bout de programme s'execute en cliquant sur un bouton.

Merci de m'aider.

[khany]

As-tu fait du pas à pas afin de voir ce qui se passe réllement ?

[SfJ5Rpw8]

sans "etudier" le fonctionnement de ton code ... je me demande à quoi te sert ta variable : xlsheet ... que tu ne fais qu'initialiser... et ensuite tu ne l'utilise pas et tu travaille sur la feuille courante (laquelle..? cela dépends de la maniére dont à été enregistré ton classeur...) ... à initialiser cette variable utilise la histoire d'être sur de travailler sur la bonne feuille... : précéde tes Cells et Range... par xlsheet

Code :

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

1
2
3
4
5
...
xlsheet .Cells(2, 5) = F_6.Text6(0).Text
...

[Najdar]

Bonjour BM42,

Une autre façon de lire des données dans Excel est d'utiliser ADO.

Cette méthode a l'avantage de ne pas ouvrir Excel, ce qui sur certain poste est un peu long.

Voici un exemple de chaine de connexion :

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1

[BM42]

Salut à tous!

Merci pour vos réponses mais rien a faire.

le problème que je rencontre ne concerne pas le transfert de données mais l'affichage de mon classeur.
les données sont bien transférées car je peut enregistrer mon fichier et l'ouvrir ultérieurement pour le consulter ou le modifier.

Le mode pas à pas ne me permet pas de résoudre mon problème.

j'est essaillé de tue le process excel en fin de transfert sans résultat.

L'activation de mon classeur et de ma feuille ne donne rien.

Erreur de programmation? mistère de la technologie? Découverte d'un BUG VB?
Ou tout simplement la faute à pas de Bol?

a+

[khany]

Ne te décourage pas !
Essaie en supprimant le premier ".visible = False" car je pense qu'un DoEvents entre les deux résoudrait peut-être ton problème !

[SilkyRoad]

bonjour

tu peux faire un essai en remplaçant

Code :

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

1
2
        Xlsapp.Workbooks.Close
        Xlsapp.Application.Quit

par

Code :

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

1
2
        Xlsbook.Close True
        Xlsapp.Quit

michel

[BM42]

re salut.

rien de rien, non je ne regrette rien (ou presque) chantait un jolie PIAF

déjas essayé

Toujours pas de classeur!! mes collègues le surnomme le classeur invisible

merci quand même pour les infos

(comme a dit un grand phylosophe : le début de la connaissance est ce qui reste quand on a tout oublié)

au faite moi c'est Bernard

[SfJ5Rpw8]

tu peu m'expliquer à nouveau ton probléme .. je comprends.. pas... tu rend visible le classeur par ...Visible et la ligne d'aprés tu le ferme par ..close... quand est-ce que tu veux afficher ce fameux classeur..?

[BM42]

Le MSGBOX me pemet de stoper l'execution de mon code, ainsi excel est visible. quand je quitte excel, je valide le MSGBOX et VB reprend la suite.

Peut être que le problème vient de la?

[SfJ5Rpw8]

peu-être comme le dit Khany .. un DoEvents entre le .Visible = True et le MsgBox..?

[AlainTech]

Juste une question:
Pourquoi le New?

Code :

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

Dim Xlsapp As New excel.Application

[BM42]

Salut à tous

le classeur invisible est de retour.

La solution :

Réinstallation complète de VB
Installation du SP6 (j'était sous SP4)

le code a été complété comme suit :
xlsheet .Cells(2, 5) = F_6.Text6(0).Text <- Avant la réinstallation pas de résultat (Merci bbil)

Le problème venait il d'un plantage VB ou de la version du SP ?

Merci pour vos conseilles et désolé de vous avoir fait perdre du temps.
dans tous les cas vos infos mon permis de me replonger dans mes cours VB et cela fait vraiment du bien (Boujours les mauvaises abitudes)

à nouveau Merci à tous et à bientôt

Bernard