Discussion :

[zoumzoum59]

Bonjour a tous,

Je suis sur un projet avec utilisation d'un classseur comme base de donné et je ne veux pas voir le classeur ouvert lors de son utilisation, tous fonctionne corectement avec le code ci dessous sauf à la fermeture du classeur car je suis obligé de le rendre visible avant de l'enregistrer, pour qu'il soit visible quand on veut l'ouvrir sans passer par VBA.
Et de ce fait la pendant la periode d'enregistrement du fichier il est visible par les utilisateurs.

Code à l'ouverture:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Ajout_Quincaillerie()
 
    Application.Workbooks.Open "C:\Documents and Settings\Commun\BdQuincaillerie.xls"
    Workbooks("BdQuincaillerie.xls").Windows(1).Visible = False
    ThisWorkbook.Activate
 
    Sheets(5).Range("A1").Select
 
    Quincaillerie.Show
 
    End Sub

Code à la fermeture:

Code :

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

1
2
3
4
5
6
7
 
Private Sub Annuler_Click()
    Unload Me
 
Workbooks("BdQuincaillerie.xls").Windows(1).Visible = True
Workbooks("BdQuincaillerie.xls").Close savechanges:=True
End Sub

Il y at il un moyen pour qu'il soit completement invisible meme a la fermeture.

Merci d'avance

[Daniel.C]

Bonjour,

Essaie :

Code :

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

1
2
3
4
5
6
7
Private Sub Annuler_Click()
    Unload Me
    Application.ScreenUpdating = False
    Workbooks("BdQuincaillerie.xls").Windows(1).Visible = True
    Workbooks("BdQuincaillerie.xls").Close savechanges:=True
    Application.ScreenUpdating = True
End Sub

[zoumzoum59]

OK merci Daniel.C, je n'y avais pas pensé, ça marche impec.