Private Sub Fiches_botanique_Change()
If Me.Fiches_botanique.ListIndex = -1 Then
Me.Fiches_botanique.Clear
With Sheets("Listes")
For Each Cell In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
'If StrConv(Left(cell, Len(Me.ComboRéférence)), vbUpperCase) = StrConv(Me.ComboRéférence, vbUpperCase) Then
If StrConv(Cell, vbUpperCase) Like "*" & StrConv(Me.Fiches_botanique, vbUpperCase) & "*" = True Then
Me.Fiches_botanique.AddItem (Cell)
End If
Next
End With
Me.CommandButton5.SetFocus
Me.Fiches_botanique.SetFocus
Me.Fiches_botanique.DropDown
If Me.Fiches_botanique.ListCount = 1 Then
Me.Fiches_botanique.ListIndex = 0
MsgBox " fiche trouvée"
Me.Fiches_botanique.SetFocus
ElseIf Me.Fiches_botanique.ListCount = 0 Then
MsgBox " fiche inexistante"
Me.Fiches_botanique = Left(Me.Fiches_botanique, Len(Me.Fiches_botanique) - 1)
Else
Exit Sub
End If
Exit Sub
End If
If noevents = True Then Exit Sub
Chemin = ThisWorkbook.Path & "\Documents\Fiches botanique\" ' REMETTRE TON chemin ICI
Direction = Dir(Chemin & "*.pdf")
'MsgBox "Voulez-vous voir la fiche?"
Do While Len(Direction) > 0
fichierpdf = Fiches_botanique & ".pdf"
If Direction = fichierpdf Then
fic2open = Chemin & fichierpdf
OuvrirFichier (fic2open)
GoTo Fin
End If
Direction = Dir()
Loop
Fin:
noevents = False
'Fiches_botanique = ""
noevents = True
Application.Visible = True
'UserForm1.Hide
Application.WindowState = xlMinimized
End Sub