Fermer et Ouvrir le Même fichier sans Souris

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Fermer et Ouvrir le Même fichier sans Souris

anonymworker

Bonjour,

Je ne sais pas comment faire pour fermer un fichier Excel, puis le rouvrir automatiquement, sans avoir de Pop-Up qui s'ouvre, cette fenêtre... :

Ou soit alors si je ne peux pas empêcher son apparition, donnez moi un moyen de la quitter sans utiliser de souris ou de clavier. J'ai essayé avec les fonctions Keys "{ENTER}", et ça ne marche pas non plus la fenêtre se ferme une fois sur 4 (c'est une proba, des fois elle se ferme et des fois elle s'affiche), je sais pas pourquoi.

Quand le fichier Excel s'ouvre

Code :

Private Sub Workbook_Open()
''''''''
Application.DisplayAlerts = False
Application.ScreenUpdating = False
UserForm1.Show
End Sub

Dans le Userform

Code :

Private Sub ComboBox1_Change()
''''''''
Application.DisplayAlerts = False
Application.ScreenUpdating = False
CAD = ComboBox1.Value
'On Error Resume Next
'''''''''''''''''''''''''''
Dim plage As Range
Dim Bonjour As String
Set plage = ActiveSheet.Range("AG2:AG67" )
Set ref = plage.Find(CAD, lookat:=xlWhole)
If ref Is Nothing Then
Bonjour = CAD & " est inexistant dans " & plage.Address & " , notez la référence produit et avertissez le responsable des fiches. "
MsgBox Bonjour
Unload Me
Application.OnTime Now + TimeValue("00:00:01" ), "OpenMe"
ThisWorkbook.Close False
Else
Bonjour = ref & " en " & ref.Address
MsgBox Bonjour
Range("T32" ) = CAD
End If
'''''''''''''''''''''''''''
Workbooks.Open "D:\Users\...\Desktop\fichier Excel"
Range("A1" ).Select
Range("G37" ) = CAD
End Sub
'________________________________________________________________________________________________________
Private Sub TextBox2_Change()
On Error Resume Next
ActiveWindow.ScrollRow = 40
ActiveWindow.SmallScroll Down:=3
End Sub
'________________________________________________________________________________________________________
Private Sub TextBox3_Change()
ActiveWindow.ScrollRow = 82
ActiveWindow.SmallScroll Down:=3
End Sub
'________________________________________________________________________________________________________
Private Sub TextBox4_Change()
''''''''
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Unload Me
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.OnTime Now + TimeValue("00:00:01" ), "OpenMe"
ThisWorkbook.Close False
End Sub
'________________________________________________________________________________________________________
Sub OpenMe()
MsgBox "I'm Back!"
End Sub
'________________________________________________________________________________________________________
Private Sub UserForm_Initialize()
Dim plage As Range
With Sheets("CAB" )
Set plage = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
For Each c In plage
If c.Value <> "" Then Me.ComboBox1.AddItem c.Value
Next c
End Sub

J'ai mis des "Application.DisplayAlerts = False ; Application.ScreenUpdating = False" partout et ça change rien, vous allez me dire "mais tu as pas mis les "Application.DisplayAlerts = True", j'ai essayé en les mettant à la fin de chaque macro et ça fait EXACTEMENT la même chose, cette fenêtre est toujours là.

Mon UserForm ne marchera plusieurs fois que si je ferme mon fichier, et je n'ai pas de souris ni de clavier pour fermer cette fenêtre.

Message édité par anonymworker le 27-05-2016 à 15:37:11

Publicité

Marc L

Bonjour,

C'est un message qui apparaitra toujours tant qu'il y aura cette grossière erreur
vu qu'elle est déclenchée avant l'exécution de l'évènement Workbook_Open ‼

Qui plus est je ne vois pas l'intérêt de fermer un classeur pour le rouvrir dès la seconde suivante ! :??:

Vu que la procédure appelée n'a rien à voir avec un UserForm, la déplacer dans un module normal
et telle quelle l'instruction OnTime se déroulera sans encombre !
Si elle est déplacée dans un module de classe du classeur comme celui d'une feuille de calculs,
ne pas oublier de préciser alors le nom de ce module …
Mais cela ne peut fonctionner via un UserForm !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Fermer et Ouvrir le Même fichier sans Souris

Sujets relatifs
[HTA / JAVA] Comment ouvrir un fichier	[Divers][Web]Htaccess : comment fermer une session ?
Ouvrir des Form à partir d'un autre Form [resolu]	ouvrir un fichier texte en java
Mon lien ne s'ouvre que quand je clique ouvrir dans un nouvel onglet	Noob: Comment ouvrir un popup au chargement d'une page?
Ouvrir cmd à l'écran d'accueil avec clé usb	Ouvrir un fichier SPK
Ouvrir un fichier dans répertoire réseau	C/C et fermer un fichier
Plus de sujets relatifs à : Fermer et Ouvrir le Même fichier sans Souris

Page générée en 0.040 secondes