Apercu pdf dans userform

[ngexcel]

bonjour
je voudrais modifier la macro de se fichier afin d avoir un aperçu d'un fichier excel au lieu d un pdf
(le fichier est a copier dans le répertoire ou est stocké les fichiers pdf et excel)

merci à tous

 

[ngexcel]

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

 

[job75]

Re : Apercu pdf dans userform

Bonjour ngexcel, le forum,

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

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+

 

[ngexcel]

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

 

[job75]

Re : Apercu pdf dans userform

Bonjour ngexcel,

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

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+

 

[ngexcel]

Re : Apercu pdf dans userform

Merci super
bonne journée