iStarOSX
XLDnaute Junior
Bonjour a tous.
Pfuuuuuuuuu, j'ai encore un probleme pour mon application et en plus sur une fonctionnalité sur laquel est basé toute mon appli que je développe depuis plusieurs semaines.
Bref, j'en suis
Voila, mon application est utilisé par des utilisateurs de XL 2003 et 2010.
Je me suis donc dis que si je faisai mon appli sous 2003, cela fonctionnerait obligatoirement sous 2010.
Sauf que j'utilise "Application.FileSearch" et que cela ne fonctionne plus depuis XL 2007.
Donc je fais un tour sur le super site ExcelDowload et la je trouve une discussion sur ce sujet, sauf que n'étant pas un pro de vba, je ne sais pas comment l'adapter a mon probleme.
https://www.excel-downloads.com/threads/nouveau-code-pour-application-filesearch.153773/
Et le code que j'utilise (il n'est pas de moi, je l'ai trouvé sur ExcelDowload) :
Comment je peut faire pour que cela fonctionne quelque soit la version d'excel ?
Un grand merci a ceus qui pourront m'aider.
Pfuuuuuuuuu, j'ai encore un probleme pour mon application et en plus sur une fonctionnalité sur laquel est basé toute mon appli que je développe depuis plusieurs semaines.
Bref, j'en suis
Voila, mon application est utilisé par des utilisateurs de XL 2003 et 2010.
Je me suis donc dis que si je faisai mon appli sous 2003, cela fonctionnerait obligatoirement sous 2010.
Sauf que j'utilise "Application.FileSearch" et que cela ne fonctionne plus depuis XL 2007.
Donc je fais un tour sur le super site ExcelDowload et la je trouve une discussion sur ce sujet, sauf que n'étant pas un pro de vba, je ne sais pas comment l'adapter a mon probleme.
https://www.excel-downloads.com/threads/nouveau-code-pour-application-filesearch.153773/
Et le code que j'utilise (il n'est pas de moi, je l'ai trouvé sur ExcelDowload) :
Code:
Private Sub Ini()
Dim Chem$, I&, Fs, Nbr&
Chem = "C:\Program Files\RxL\RxLCAD\Catalogues"
Nbr = Len(Chem) + 2
Set Fs = Application.FileSearch
ComboBox1.Clear
With Fs
.LookIn = Chem
.Filename = "CAT_*.txt"
If Fs.Execute > 0 Then
For I = 1 To .FoundFiles.Count
ComboBox1.AddItem Mid(.FoundFiles(I), Nbr)
Next I
Else
MsgBox ("Pas de catalogue de radiateurs")
End If
End With
End Sub
Code:
Private Sub UserForm_Activate()
Ini
Chem = ThisWorkbook.Path & "\Catalogues"
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub
Comment je peut faire pour que cela fonctionne quelque soit la version d'excel ?
Un grand merci a ceus qui pourront m'aider.