Vérification dans textbox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
Antho49000
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 17 juillet 2014
Version d'Excel : 2010 FR,2013 FR,2016 FR

Message par Antho49000 » 23 janvier 2018, 15:21

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 :)
Là où certains ne voient que folie, nous voyons du génie.

Seuls ceux qui sont assez fous pour penser qu'ils peuvent changer le monde, y parviennent.
[Steeve JOBS]
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 23 janvier 2018, 15:43

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
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Avatar du membre
Antho49000
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 17 juillet 2014
Version d'Excel : 2010 FR,2013 FR,2016 FR

Message par Antho49000 » 23 janvier 2018, 16:49

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.
Là où certains ne voient que folie, nous voyons du génie.

Seuls ceux qui sont assez fous pour penser qu'ils peuvent changer le monde, y parviennent.
[Steeve JOBS]
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 23 janvier 2018, 18:37

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
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message