Apercu pdf dans userform

N

ngexcel

XLDnaute Occasionnel

• 4 Mars 2016

• #31

Re : Apercu pdf dans userform

Bonjour
Ca touche la perfection dans la listbox est il possible de cacher le .xls.pdf des fichiers ca reste un confort visuel
Bonne journee

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Mars 2016

• #32

Re : Apercu pdf dans userform

Bonjour ngexcel, le forum,

ngexcel à dit:

dans la listbox est il possible de cacher le .xls.pdf des fichiers ca reste un confort visuel

Cliquez pour agrandir...

Oui finalement c'est bien mieux, j'ai revu toutes les macros, voyez ce fichier (5).

Edit 1 : attention, supprimez tous les fichiers .xls.pdf .xlsx.pdf .xlsm.pdf du répertoire.

Edit 2 : j'ai ajouté la variable flag, la sélection est plus rapide.

A+

 

Pièces jointes

• Form_FichiersListe(5).xlsm

  61.6 KB · Affichages: 51

Dernière édition: 4 Mars 2016

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 9 Mars 2016

• #33

Re : Apercu pdf dans userform

bonjour Job75
je suis de retour un peux de congé !
merci pour les dernières modifs

Est il possible d améliorer la textbox3 je voudrais avoir deux possibilités celle actuellement c 'est a dire je choisi dans la listebox
je clic cela s affiche dans la texbox3

puis ne pas chercher dans la listbox mais commencer a saisir dans la textbox3 cela devrait m' afficher dans la listbox les résultats au fur et a mesure.
merci a toi bonne soirée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Mars 2016

• #34

Re : Apercu pdf dans userform

Bonjour ngexcel,

Avec tous les codes qui existent déjà vous auriez pu trouver par vous-même :

Code:

Private Sub FichierChoisi_Change()
Dim nf$, n&
If flag Then Exit Sub
Image3.Visible = False
ChoixFichier.Clear
nf = Dir(Répertoire & "\*" & FichierChoisi & "*.pdf") 'le 1er astérisque est facultatif...
While nf <> ""
  ChoixFichier.AddItem Left(nf, InStrRev(nf, ".") - 1)
  nf = Dir
  n = n + 1
Wend
nbFichiers = n
For n = 0 To ChoixFichier.ListCount - 1
  ChoixFichier.Selected(n) = False
  If LCase(ChoixFichier.List(n)) = LCase(FichierChoisi) _
    Then ChoixFichier = FichierChoisi: Exit For
Next
End Sub

A+

 

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 10 Mars 2016

• #35

Re : Apercu pdf dans userform

Merci super
bonne journée

 

Vote positif 0 Vote négatif