Discussion :

[-CnC-]

Bonjour,

J'ai un problème avec une procédure excel que je lance à partir d'un code VB.

Voici le schéma de mon code :

J'extrais des données (code VB).
J'ouvre un modèle Excel (à partir de VB).
J'exporte mes données dans le modèle Excel (à partir de VB).
Je lance une procédure VBA stockée dans le modèle Excel.

Mon problème vient du fait que mon code ne fonctionne pas si je choisis de dissimuler Excel tant que tous les traitements ne sont pas terminés (alors qu'il fonctionne si je laisse l'affichage ...)

Pour dissimuler Excel j'utilise :

Code :

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

1
2
3
Set AppXL = New Excel.Application
        AppXL.Workbooks.Open FileName:=CheminXLS & fichierXLS, UpdateLinks:=0
        AppXL.Visible False

et à la fin du code VB j'utilise l'instruction :

Code :

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

AppXL.Visible True

Merci de votre aide !!

[-CnC-]

J'ai découvert qu'une partie de mon problème venait de la copie de feuilles Excel dissimulées :

Code :

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

 Sheets("...").Copy After:=Sheets("...")

J'ai donc choisi de rendre apparent le classeur pour cette opération. Pourtant même avec cette modification, le temps de traitement est beaucoup plus long que lorsque je lance ma procédure sans la dissimuler du tout.

J'ai d'ailleurs constaté qu'elle monopolisait beaucoup moins de ressources systèmes lorsqu'elle était dissimulée => Est ce normal ou cela vient il d'une erreur de programmation ?

[jfdmagic]

je ne suis pas spécialiste avec la connexion Excel Vb mais j'ai du déjà en faire une pour un projet précédent et cela fonctionnait parfaitement avec mon classeur excel fermée : cependant, tu ne peux pas ouvrir cette feuille en même temps sauf en lecture seule.

essaye de modifier ton code par ceci :

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
'Une fois la librairie ajouté'
Dim XlsApp As Excel.Application 'variable application excel'
Dim XlsBook As Excel.WorkBook 'variable classeur excel'
Dim XlsSheet As Excel.WorKSheet 'variable feuille excel'
 
'ouverture de ta feuille'
Set XlsApp = CreateObject("Excel.application") 'création d'un objet Excel'
Set XlsBook = XlsApp.WorkBooks.Open('Chemin de classeur entre "" ')
Set XlsSheet = XlsBook.Worksheets(1) 'Sélection de la première feuille'
Set XlsApp.Activate 'on peut modifier'
 
'fermeture'
XlsApp.Quit
Set XlsSheet= Nothing
Set XlsBook = Nothing
Set XlsApp= Nothing 'libération des variables'

Bonne continuation

[-CnC-]

Merci de ta réponse mais ça ne résout malheureusement pas mon problème. Je pense que je vais finir par laisser l'application visible pendant le traitement en me contentant de figer l'affichage ...

[calimero91]

Bonjour,
j'ai deja appliquer ce que tu cherche a faire sans aucun souci:

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
 
'ouverture de l'application
Set appexcel = CreateObject("excel.application")
'ouverture du fichier"INDICATEUR"
Set wrexcel = appexcel2.Workbooks.Open("C:\INDICATEURS
.xls")
'ouverture des feuilles
Set wfexcel = wrexcel.Worksheets("données_production")
Set waexcel = wrexcel.Worksheets("données_causes")
Set wcexcel = wrexcel.Worksheets("données demerite")
Set wdexcel = wrexcel.Worksheets("VUE_GLOBALE")
appexcel.Visible = False
...
'permet de lancer la macro du fichier indicateur permettant de reactualiser les graphique en fonction de la nouvelle plage
With wrexcel
    .Application.Run "'C:\INDICATEURS.xls'!indicateur"
End With
...
wrexcel.Save
wrexcel.Close       'fermeture du classeur excel
appexcel.Quit      'fermeture de l'application excel
'desallocation memoire
Set wfexcel = Nothing
Set waexcel = Nothing
Set wcexcel = Nothing
Set wdexcel = Nothing
Set wrexcel = Nothing
Set appexcel = Nothing

j'espère t'avoir aider.

[-CnC-]

Pour finir j'ai choisi de réécrire mon code (je n'étais pas auteur de la première version ...) en respectant vos conseils et maintenant il marche.

Merci.