Localiser une MSG box sur un classeur n'appartenant pas a celui de la macro
V
Bonjour les excellents
je continue sur mon projet de formulaire de signature...
a un moment l'opérateur doit sélectionner une note d'information dans dans une liste pour la signer
Private Sub ListBox_note_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i, j, k As Integer
Dim Nomfichier As String
Dim CurrentNote As Object
Application.DisplayAlerts = False
ThisWorkbook.Activate
Set Base = ThisWorkbook.Worksheets("Base")
j = Base.Range("A" & Rows.Count).End(xlUp).Row
noteitem = ListBox_note.Value
Nomfichier = ThisWorkbook.Path & "\" & noteitem
CNselected = False
If MsgBox("Souhaitez vous relire la note?", vbYesNo) = vbYes Then
'Ouverture du fichier avec une boucle pour ouverture complète (DO, ReadyOnly:=True, DoEvents)
Do 'début boucle
Workbooks.Open Filename:=Nomfichier, ReadOnly:=True
DoEvents 'on attend un petit peu...
Set MonApplication = CreateObject("Shell.Application")
Loop Until Not MonApplication Is Nothing 'fin boucle
CNselected = True
Workbooks(noteitem).Activate
Application.Wait (Now + TimeValue("0:00:20"))
End If
If MsgBox("Etes vous sur de vouloir signer la note " & noteitem & "?", vbYesNo, "Choix de la note à signer") = vbYes Then
register = InputBox("Scannez votre code qualité", "Scannage")
If register <> "" Then
i = WorksheetFunction.Match(ListBox_note.Value, Base.Range("A1:A" & j), 0)
k = Base.Cells(i, Columns.Count).End(xlToLeft).Column
Base.Cells(i, k + 1) = register
End If
End If
If CNselected = True Then
Workbooks(noteitem).Close
End If
Application.DisplayAlerts = True
End Subdans la paragraphe "relire la note" a l'heure actuelle le timer dit d'attendre 20 sec puis l'opé est ramené sur le formulaire pour la msg box "êtes vous sur de vouloir signer"
ce que je voudrait c'est soit
1- que l'instruction msqbox signée soit déclenché par une action de l'opé (un clic sur la page note item)
ou
2-que l'instruction apparaisse sur la page "noteitem" et pas "formulaire"