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 !