rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

[VBA execl] Ajout d'un bouton parcourir

Posté par schont, le mardi 17 juillet 2007 à 11:58:17
quel code dois-je utiliser pour ajouter un bouton parcourir dans une userform ?
Je voudrais ajouter un bouton de commande qui utilise la fonction parcourir et lorsque que le fichier désiré est sélection son chemin s'affiche dans une zone de texte se trouvant dans la même userform.
C'est pour lier une référence à fichier pdf.

Si quelqu'un a une idée ...

Merci
Configuration: Windows XP
Internet Explorer 6.0
excel 2003
Répondre à schont  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Papou93, le mardi 17 juillet 2007 à 13:49:48
Bonjour schont,

Je pense que c'est ce que tu cherches :

Private Sub CommandButton1_Click()

    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        UserForm1.TextBox1.Text = .SelectedItems(1)
    End With

End Sub


Adapter les noms de contrôles à ton application.

Cordialement.
Répondre à Papou93

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
schont, le mardi 17 juillet 2007 à 14:09:57
Merci c'est exectement ce que je voulais, j'étais en train de patauger avec :

Private Sub CommandButton3_Click()
FileToOpen = Application _
.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf", 1, "Rechercher...")
If FileToOpen = False Then
MsgBox "Operation annulée", vbExclamation
Exit Sub
End If
' manque un truc ?!
End Sub

Petite question maintenant le chemin du fichier est copié dans ma TextBox11 et quand je clique sur un bouton "compléter" la valeur de ma TextBox est recopiée dans une cellule, le code est :

Sheets("Feuil1").Cells(Lg, "I").Value = UserForm1.TextBox11.Value

Le chemin du fichier s'affiche bien mais pas sous forme de lien ce qui est pratique pour l'ouvrir en un seul clic.

C'est une option à cocher dans excel pour qu'il transforme un chemin en lien (je crois que word le fait tout seul quand on tape une adresse internet) ou c'est par VBA qu'il faut passer ?

En tout cas bravo et merci pour la rapidité et l'efficacité !
Répondre à schont

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Papou93, le mardi 17 juillet 2007 à 14:31:24
Tu n'as qu'a àjouter ce code après que le Textbox soit renseigné :

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=UserForm1.TextBox1.Text


Tu peux remplacer Selection par une adresse de cellule fixe.

Cordialement
Répondre à Papou93

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
schont, le mardi 17 juillet 2007 à 14:43:35
Merci encore une fois !
Répondre à schont

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
schont, le mercredi 18 juillet 2007 à 15:16:43
Je viens de m'apercevoir que lorsque l'on clique sur le bouton parcourir puis qu'après au lieu de cliquer sur "ouvrir" on clique sur "annuler" une erreur revient "erreur d'execution'5'" et un débogage est proposé.
j'ai essayé avec
If FileToOpen = False Then 
MsgBox "Operation annulée", vbExclamation 
Exit Sub 
End If 


mais avec ca même quand je clique sur "ouvrir" la message box s'ouvre et affiche le message.

Merci de m'aider à résoudre ce problème
Répondre à schont

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Papou93, le mercredi 18 juillet 2007 à 19:06:58
Bonsoir schont,

Je ne saisis pas le pourquoi de cette erreur, mais une solution simple et rapide est d'ajouter une ligne de traitement de l'erreur en début de la procédure ;
Private Sub CommandButton1_Click()
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        UserForm1.TextBox1.Text = .SelectedItems(1)
    End With

End Sub

Voilà qui est réparé !

Cordialement
Répondre à Papou93

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 schont, le jeudi 19 juillet 2007 à 10:03:45
Merci
Répondre à schont
Logiciels pertinents trouvés dans les téléchargements
Télécharger Tux Paint 0.9.16Tux Paint - TuxPaint Tux Paint est un logiciel de dessin libre conçu pour les jeunes enfants âgés de 3 ans et plus. Il possède une...Catégorie: Dessin
Licence: Freeware/gratuit
Télécharger Anti yeux Rouges 26/05/2004Anti yeux Rouges - Anti Yeux Rouges est un logiciel très simple permettant uniquement de corriger les yeux rouges sur une photo en quelques...Catégorie: Retouche photo
Licence: Freeware/gratuit
Télécharger PE Builder 3.1.10aPE Builder - PE Builder vous permet de créer un CD-Rom (ou un DVD) bootable (appelé BartPE) de Windows XP (SP1 minimum) ou Windows Server...Catégorie: Personnalisation
Licence: Freeware/gratuit
Télécharger iCarbon 2.2.1iCarbon - Vous avez un PC avec scanner et imprimante ? Alors iCarbon transforme le tout en photocopieuse. Le logiciel est très...Catégorie: Bureautique
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « [VBA execl] Ajout d'un bouton parcourir »