Affichage listbox btn parcourir vb
Résolu
popo
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je n'arrive pas a afficher mes piece jointes via la bouton "ajouter" lorsqu'il est selectionner qu'il s'affiche dans la listebox et qu'il s'affiche en tant que lien hypertext.
j'ai sa comme code :
Merci de votre aide
je n'arrive pas a afficher mes piece jointes via la bouton "ajouter" lorsqu'il est selectionner qu'il s'affiche dans la listebox et qu'il s'affiche en tant que lien hypertext.
j'ai sa comme code :
Private Sub btn_ajouter_Click()
With dlg
.DialogTitle = "selectionner un fichier"
.FileName = "" 'on recherche un fichier d'extension doc
.CancelError = False 'pour ne pas partir en erreur si on click sur annuler
.ShowOpen
Form_mail.ListeJointe.ListIndex = ListJointe.SelectedItems
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=UserForm1.TextBox1.Text
End With
ListJointe.Items.Add (dlg.FileName)
End Sub
Merci de votre aide
A voir également:
- Affichage listbox btn parcourir vb
- Vb - Télécharger - Langages
- Affichage double ecran - Guide
- Windows 11 affichage classique - Guide
- Vb cable - Télécharger - Audio & Musique
- Problème affichage fenêtre windows 10 - Guide
13 réponses
bjr
c'est un controle active x que j'ai appelé dlg.
mais le bouton ajouter fonctionne j'ai une fenetre qui s'ouvre je selectione je click sur ouvrir tous sa a l air de fonctionné mais sa le fichier que j'ai selectionné ne s'affiche pas dans ma liste box.
merci de ton aide
c'est un controle active x que j'ai appelé dlg.
mais le bouton ajouter fonctionne j'ai une fenetre qui s'ouvre je selectione je click sur ouvrir tous sa a l air de fonctionné mais sa le fichier que j'ai selectionné ne s'affiche pas dans ma liste box.
merci de ton aide
Si ta listbox s'appelle ListJointe
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
ListJointe.Additem (dlg.FileName)
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Private Sub btn_ajouter_Click()
With dlg
.DialogTitle = "selectionner un fichier"
.FileName = "" 'on recherche un fichier d'extension doc
.CancelError = False 'pour ne pas partir en erreur si on click sur annuler
.ShowOpen
End With
ListJointe.AddItem (dlg.FileName)
End Sub
Apparament il aime pas cette ligne " ListJointe.AddItem (dlg.FileName)"
merciii de ton aide.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
j'ai un crée un bouton ajouter pour ajouter des piece jointes sur un envoi d'email.
je choisis mon fichier lorsque je l'ouvre il s'affiche dans ma listbox sous un lien hypertext ou je pourrai cliqué dessus directement et ouvrir mon document selectionner.
voila je te remercie
je choisis mon fichier lorsque je l'ouvre il s'affiche dans ma listbox sous un lien hypertext ou je pourrai cliqué dessus directement et ouvrir mon document selectionner.
voila je te remercie
J'ai pas encore bien compris mais...
Ca veux dire...
??
qu'est ce que tu veux faire là ?
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Form_mail.ListeJointe.ListIndex = ListJointe.SelectedItems
Ca veux dire...
ListeJointe.ListIndex = ListeJointe.ListIndex
??
qu'est ce que tu veux faire là ?
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
On va se basé simplement sur sa qui m' a l air d'etre un bon debut :
Voila ceux ci fait : je clique sur ajouter de mon formulaire je selectionne mon fichier je clique ouvrir mais rien ne s'affiche dans ma listbox.
La question est pk ? que doi-je faire . tous simplement.
Merci j'espere que sa ta éclairé.
Private Sub btn_ajouter_Click()
With dlg
.DialogTitle = "selectionner un fichier"
.FileName = "" 'on recherche un fichier d'extension doc
.CancelError = False 'pour ne pas partir en erreur si on click sur annuler
.ShowOpen
End With
ListJointe = dlg.FileName
End Sub
Voila ceux ci fait : je clique sur ajouter de mon formulaire je selectionne mon fichier je clique ouvrir mais rien ne s'affiche dans ma listbox.
La question est pk ? que doi-je faire . tous simplement.
Merci j'espere que sa ta éclairé.
Est-ce que ce fichier EXISTE DEJA dans ta listbox ou tu veux l'ajouter dans ta listbox
Désolé mais c'est vraiment pas clair.
Désolé mais c'est vraiment pas clair.
non il n'existe pas ma liste box doit contenir mes piece jointe que je vais chercher.
ma liste box ( que j'ai appelé listjointe) est vide.
ma liste box ( que j'ai appelé listjointe) est vide.
Alors,
AJOUTE le nom dans ta listbox.
ensuite..
A condition qu'il n'y a qu'une colonne.
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
ListJointe.AddItem dlg.FileName
AJOUTE le nom dans ta listbox.
ensuite..
Nom = Listbox.list(Listbox.listCount-1)
A condition qu'il n'y a qu'une colonne.
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)