Discussion :

[hitmax]

Bonjour forum,

Hier, je suis venu vous demander comment cacher une fenêtre excel et effectuer des opérations sur cette dernière.
Nous en sommes venu au code suivant :

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
 
'Ouverture en hidden du repertoire
    Application.ScreenUpdating = False
    'Test si le repertoire est deja ouvert
    If IsFileOpen("h:\Projet_Ete\listing\Repertoire.xls") Then
        Workbooks("Repertoire.xls").Close True
    End If
 
    Set CL1 = Workbooks.Open("h:\Projet_Ete\listing\Repertoire.xls")
    For i = 1 To CL1.Worksheets.Count - 1
        CL1.Sheets(i).Visible = False
    Next
    Windows("Repertoire.xls").Visible = False
    Application.ScreenUpdating = False
 
 
    'Initialisation des deux feuilles du repertoire
    Set FLP = CL1.Worksheets("Repertoire_SCH")
    Set FLC = CL1.Worksheets("Repertoire_Client")

Aucun problème a signaler sur ce code !

Cependant en continuant mon application, j'ai eu des erreurs d'automation qui doivent être des instances d'excel non arretées.

Ma question est la suivant, comment regler ce problème d'automation ? Faut-il parcourir toutes les fenêtres excel ouvertes et les fermer ?

Je vous joint les Userform et un module dès fois qu'il y est une erreur dans mon code.

Je me demandais sachant que j'ai plusieurs userform s'il était possible de mettre

Code :

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

1
2
3
4
 
Dim CL1 As Workbook
Dim FLP As Worksheet
Dim FLC As Worksheet

En static pour qu'il soit accéssible dans tous les UserForms et modules ?

Je programme en java habituellement :-/

[Gorfael]

Salut hitmax et le forum

...Aucun problème a signaler sur ce code !
Cependant en continuant mon application, j'ai eu des erreurs d'automation qui doivent être des instances d'excel non arretées....
Ma question est la suivant, comment regler ce problème d'automation ? Faut-il parcourir toutes les fenêtres excel ouvertes et les fermer ?

N'étant qu'en 2me année de divination, section Magie Excellienne, et ma boule de cristal étant en panne, je ne peux pas t'aider.

des erreurs d'automation : re-essaye le demarreur... ou donne les erreurs!!

Si tu avas donné une copie de ton fichier "répertoire" avec une ligne de données bidon (pour avoir une idée, les vraies données ne sont pas nécessaire) et tes USF, ça aurait été plus facile et tu aurais peut-être déjà des réponses!

À tout hazard, j'ai parcouru certaines macros.

Code :

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

Application.ScreenUpdating = False

ça sert à quoi ?
Parce que je ne vois nulle part dans les macro

Code :

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

Application.ScreenUpdating = True

Qui est nécessaire pour remettre en route la gestion de l'écran, chose nécessaire, quand on s'en sert pour éviter les sautes d'écran ou améliorer la vitesse d'exécution des macro.
A+

[hitmax]

Bon,

hier, avec l'aide du forum j'ai pu lancer une fenetre cachée excel qui me sert de base de données en faite.
ex: L'utilisateur rentre des informations pour créer un membre du personnel avec les info habituelles nom, prenom, etc ...
Ces données sont stockées dans un tableau excel et je ne voulais pas que l'utilisateur puisse le voir.

Avec le premier bout de code que j'ai ecris en haut pas de problème la fenetre est bien cachée.

Par contre lorsque je veux insérer de nouvelles données j'ai une erreur d'automation

J'ai joint des fichiers de test

[ouskel'n'or]

'Initialisation des deux feuilles du repertoire
Set FLP = CL1.Worksheets("Repertoire_SCH")
Set FLC = CL1.Worksheets("Repertoire_Client")

Dans ces deux lignes, je pense que tu voulais dire "Initialisation des deux feuilles du CLASSEUR Repertoire.xls"
Sinon, c'est une incohérence

Je me demandais sachant que j'ai plusieurs userform s'il était possible de mettre

Code :

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

1
2
3
4
 
Dim CL1 As Workbook
Dim FLP As Worksheet
Dim FLC As Worksheet

En static pour qu'il soit accessible dans tous les UserForms et modules ?

En effet, tu peux mettre ça dans les déclarations, soit, si tu les utilises dans un userform, en tête du module de l'userform, soit en tête du module standard qui "devrait" contenir la macro qui affiche l'userform

Dans un module standard :

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
Option Explicit 'pour être certain de déclarer toutes tes variables
Public CL1 As Workbook
Public FLP As Worksheet
Public FLC As Worksheet
 
Sub AfficheUsf()
    Set CL1 = Workbooks.Open("h:\Projet_Ete\listing\Repertoire.xls")
    Set FLP = CL1.Worksheets("Repertoire_SCH")
    Set FLC = CL1.Worksheets("Repertoire_Client")
    Userform1.show
    'CL1.Close true 'ferme et enregistre ton classeur
    'sinon
    Set CL1 = Nothing
    Set FLP = Nothing
    Set FLC = Nothing
End sub

Ainsi, les instances seront accessibles depuis l'userform

Attention :
Si tu déclares des variables en public à utiliser dans l'userform, ce qui serait le cas ici, n'ajoute surtout pas "Option Explicit" dans le module de l'userform.

Remarques :
Quand tu affiches un userform depuis une macro placée dans un module standard, le code attend la fermeture de l'usf pour se poursuivre.

Pour tester ton userform, tu devras toujours l'ouvrir depuis cette macro, sans quoi, les instances ne seront pas déclarées.