Vérification dans textbox

Bonjour,

Actuellement en train de créer un Userform avec un bouton pour parcourir les dossiers de mon ordinateur et sélectionner le fichier qui m'intéresse pour afficher le chemin d'accès dans une textbox.

Sauf que j'aimerais contrôler que la personne choisie bien un fichier PDF et non un fichier lambda ( .Xls, .BMP. ... ), Y a t'il une solution pour faire cela ?

Merci beaucoup pour les réponses que vous pourrez m'apporter pour la suite de mon projet .

Et comme c'est mon premier message de l'année je vous souhaite à tous une bonne année, une bonne santé et plein de VBA en perspective

Bonjour,

Avec une fonction perso (ChoixFichier) à tester si ça convient :

Sub Test()

    MsgBox ChoixFichier("F:\")
    'ou :
    'TextBox1.Text = ChoixFichier("F:\")
    ' ou encore sans le dossier par défaut :
    'TextBox1.Text = ChoixFichier

End Sub

Function ChoixFichier(Optional DosDefaut As String) As String

    With Application.FileDialog(3) 'fichiers

        .Filters.Clear
        .Filters.Add "Document Adobe Acrobat", "*.pdf"
        .InitialFileName = DosDefaut
        .AllowMultiSelect = False '1 seul
        If .Show = -1 Then ChoixFichier = .SelectedItems(1)

    End With

End Function

Merci

c'est encore mieux que ce que j'espérais

Je n'ai pas trop compris le principe des "Function" du moins je sais pas utiliser ce genre de programmation.

Re,

Une fonction retourne une valeur ou un tableau de valeurs (elle est dite matricielle dans Excel quand elle retourne un tableau).

Donc, celle que je t'ai donné retourne le chemin et le nom du fichier choisi par l'utilisateur

Rechercher des sujets similaires à "verification textbox"