Ne pas mettre d'extension dans les listbox

[RONIBO]

Bonjour le forum,

J'ai plusieurs listbox dans mon programme, le problème est que dans chaque listbox l'extension apparait.

J'aimerais masquer les extensions.

Est-ce possible?

A+

 

[Staple1600]

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+

 

[RONIBO]

Re : Ne pas mettre d'extension dans les listbox

Re,

Voici le fichier exemple 🙂 🙂

A+

 

[fhoest]

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.

 

[RONIBO]

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+

 

[Si...]

Re : Ne pas mettre d'extension dans les listbox

Salut
à essayer

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

 

[JCGL]

Re : Ne pas mettre d'extension dans les listbox

Bonjour à tous,

Peux-tu essayer :

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...

 

[Si...]

Re : Ne pas mettre d'extension dans les listbox

salut JCGL

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

 

[fhoest]

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+

 

[RONIBO]

Re : Ne pas mettre d'extension dans les listbox

Bonjour le fils,

Merci pour vos propositions qui fonctionne impeccable 🙂

A+