Re : Inputbox - Bug Quand "annuler" Demande
re
non je l'aurais vu ainsi
Sub RechercherClasseur()
Dim nom As String 'déclare la variable nom
Dim noncomplet As String 'déclare la variable nomcomplet
Dim chem As String 'déclare la variable chem
nom = InputBox("Saisissez le Nr de cotation selon format : 00 000000 00")
If nom = "" Then
Exit Sub
End If
chem = "Z:\documents\Outils\ARCHIVES COTATIONS"
With Application.FileSearch 'recherche de fichier
.LookIn = chem 'dans le même répertoire que le fichier actuel
.SearchSubFolders = True 'dans les sous-répertoires
.Filename = nom & "*.xls" 'tous les fichiers Excel commençant par le nom de la boite
If .Execute > 0 Then 'si au moins un fichier est trouvé
End If
nomcomplet = .FoundFiles(1) 'définit le nom complet du fichier trouvé
Workbooks.Open (nomcomplet) 'ouvre le fichier
End With
End Sub
PS : sinon de préférence sans E à Pascal