Ne pas mettre d'extension dans les listbox

Staple1600

XLDnaute Barbatruc

• 26 Avril 2014

• #2

Re : Ne pas mettre d'extension dans les listbox

Bonjour à tous

Je n'ai pas plusieurs pieces jointes dans cette discussion, le problème est que le fichier exemple n'est pas encore apparu ici.
Et ceci avec ou sans extention 😉
Pourtant RONIBO est inscrit depuis janvier 2009...
Et il ne saurait pas l'utilité de joindre un fichier exemple ?
Est-ce possible?
A+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 26 Avril 2014

• #3

Re : Ne pas mettre d'extension dans les listbox

Re,

Voici le fichier exemple 🙂 🙂

A+

 

Pièces jointes

• Ronibo.zip

  39.4 KB · Affichages: 21
• Ronibo.zip

  39.4 KB · Affichages: 22
• Ronibo.zip

  39.4 KB · Affichages: 20

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 26 Avril 2014

• #4

Re : Ne pas mettre d'extension dans les listbox

Bonjour Ronibo 😱, Staple1600
Je pense que cela vient simplement des propriétés d'affichage de ton pc (option affichage des fichiers et dossiers)
si tu mets afficher les extensions tu les auras dans la listbox, si tu mets ne pas afficher les extensions elles ne seront pas dans la ListBox
(je n'ai pas réussit à ouvrir correctement ton fichier proposé)
A bientôt.

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 26 Avril 2014

• #5

Re : Ne pas mettre d'extension dans les listbox

Bonjour le fil,

Salut Fhoest 🙂, tu vas bien j'espère 🙂

J'ai essayé de faire s'que tu m'as dit mais sans succès, j'ai toujours les extensions affichées 🙁

Qu'est qui se passe des que tu ouvre mon fichier?

A+

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 26 Avril 2014

• #6

Re : Ne pas mettre d'extension dans les listbox

Salut
à essayer

Code:

Private Sub UserForm_Initialize()
  Dim LeFichier As String
  SupprimerCroixFermeture Me
  CBOuvrir.Enabled = False
  CBAddition.Enabled = False
  LeFichier = Dir(CheminDossierFacture & "*.xlsm")
  Do While LeFichier <> ""
    LBListeFacture.AddItem Left(LeFichier, Len(LeFichier) - 5) '<--- iSi...
    LeFichier = Dir
  Loop
  LNombreFichier.Caption = "Il y a " & LBListeFacture.ListCount & " facture(s) dont 0 de sélectionnée(s)"
End Sub

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 26 Avril 2014

• #7

Re : Ne pas mettre d'extension dans les listbox

Bonjour à tous,

Peux-tu essayer :

Code:

Private Sub UserForm_Initialize()
  Dim LeFichier As String
  SupprimerCroixFermeture Me
  Me.CBOuvrir.Enabled = False
  Me.CBAddition.Enabled = False
  LeFichier = Dir(CheminDossierFacture & "*.xlsm")
  Do While LeFichier <> ""
    Me.LBListeFacture.AddItem Left(LeFichier, Len(LeFichier) - 5)
    LeFichier = Dir
  Loop
  Me.LNombreFichier.Caption = "Il y a " & Me.LBListeFacture.ListCount & " facture(s) dont 0 de sélectionnée(s)"
End Sub

A+ à tous

Edition : Oups... Si... j'avais rafraîchi, j'aurais vu Si...

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 26 Avril 2014

• #8

Re : Ne pas mettre d'extension dans les listbox

salut JCGL

J'ai surtout répondu pour enlever les "Me." si superfétatoires 😉

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 26 Avril 2014

• #9

Re : Ne pas mettre d'extension dans les listbox

Re,
bonjour Si,JCGL,
Effectivement vous proposez tout deux pour moi la meilleure des solutions.
(A pas mieux)
A+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 28 Avril 2014

• #10

Re : Ne pas mettre d'extension dans les listbox

Bonjour le fils,

Merci pour vos propositions qui fonctionne impeccable 🙂

A+

 

Vote positif 0 Vote négatif