Fermer et Ouvrir le Même fichier sans Souris

Fermer et Ouvrir le Même fichier sans Souris - VB/VBA/VBS - Programmation

Marsh Posté le 27-05-2016 à 15:36:13    

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... :
http://image.noelshack.com/fichiers/2016/21/1464355520-message-d-erreur.png
 
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 :
  1. Private Sub Workbook_Open()
  3. ''''''''
  4. Application.DisplayAlerts = False
  5. Application.ScreenUpdating = False
  7. UserForm1.Show
  9. End Sub


 
Dans le Userform

Code :
  1. Private Sub ComboBox1_Change()
  3. ''''''''
  4. Application.DisplayAlerts = False
  5. Application.ScreenUpdating = False
  7. CAD = ComboBox1.Value
  8. 'On Error Resume Next
  10. '''''''''''''''''''''''''''
  11. Dim plage As Range
  12. Dim Bonjour As String
  14. Set plage = ActiveSheet.Range("AG2:AG67" )
  16. Set ref = plage.Find(CAD, lookat:=xlWhole)
  18. If ref Is Nothing Then
  19.     Bonjour = CAD & " est inexistant dans " & plage.Address & " , notez la référence produit et avertissez le responsable des fiches. "
  20.     MsgBox Bonjour
  21. Unload Me
  23.     Application.OnTime Now + TimeValue("00:00:01" ), "OpenMe"
  24.     ThisWorkbook.Close False
  26. Else
  27. Bonjour = ref & " en " & ref.Address
  28. MsgBox Bonjour
  29. Range("T32" ) = CAD
  30. End If
  31. '''''''''''''''''''''''''''
  33. Workbooks.Open "D:\Users\...\Desktop\fichier Excel"
  36. Range("A1" ).Select
  37. Range("G37" ) = CAD
  39. End Sub
  42. '________________________________________________________________________________________________________
  45. Private Sub TextBox2_Change()
  47. On Error Resume Next
  48.     ActiveWindow.ScrollRow = 40
  49.     ActiveWindow.SmallScroll Down:=3
  51. End Sub
  55. '________________________________________________________________________________________________________
  58. Private Sub TextBox3_Change()
  60.     ActiveWindow.ScrollRow = 82
  61.     ActiveWindow.SmallScroll Down:=3
  63. End Sub
  67. '________________________________________________________________________________________________________
  70. Private Sub TextBox4_Change()
  72. ''''''''
  73. Application.DisplayAlerts = False
  74. Application.ScreenUpdating = False
  76. Unload Me
  77. ActiveWorkbook.Saved = True
  78. ActiveWorkbook.Close
  80.    Application.OnTime Now + TimeValue("00:00:01" ), "OpenMe"
  81.    ThisWorkbook.Close False
  82.    
  83. End Sub
  87. '________________________________________________________________________________________________________
  90. Sub OpenMe()
  91.    MsgBox "I'm Back!"
  92. End Sub
  97. '________________________________________________________________________________________________________
  100. Private Sub UserForm_Initialize()
  102. Dim plage As Range
  103. With Sheets("CAB" )
  104. Set plage = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
  105. End With
  106. For Each c In plage
  107. If c.Value <> "" Then Me.ComboBox1.AddItem c.Value
  108. Next c
  110. 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
Reply

Marsh Posté le 27-05-2016 à 15:36:13   

Reply

Marsh Posté le 28-05-2016 à 10:11:21    

 
            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 !
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed