VBA objets disponibles selon version Excel

Résolu
ccm81 Messages postés 11033 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,

la fonction split
l'objet msoFileDialogOpen

sont ils disponibles sous Excel 97?
si oui dans quelle librairie?

merci

A voir également:

4 réponses

Réponse 1 / 4
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour,
pour split= npn
je ne sais pas pour l'autre...
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
merci,

j'ai trouvé un substitut donné par Patrice33740 pour split
quant à l'autre, j'ai bien peur que ...

cordialement
0
Réponse 2 / 4
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 279
 
Bonjour à tous,

A tout hasard essaie avec GetOpenFilename :
Sub choisir_fichier()
nf = Application.GetOpenFilename("Fichiers Excel ou Txt ,*.xls;*.txt")
If Not nf = "Faux" Then
Workbooks.Open FileName:=nf
End If
End Sub

eric
0
Réponse 3 / 4
ccm81 Messages postés 11033 Statut Membre 2 433
 
merci eric

en fait je ne veux pas ouvrir ce fichier txt dans excel, mais récupérer la liste des fichiers texte dont le nom commence par truc (du type truc*.txt) situés dans un répertoire donné
une fois choisi, il sera lu et traité avec
Open Ftxt For Input As #1

cordialement
0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 279
 
ah ok, avec dir() alors, il y a des chances qu'il connaisse : 
Sub ListeFichiers()
  Application.ScreenUpdating = False
  Range("A2:D65000").ClearContents
  repertoire = ThisWorkbook.Path & "\" ' adapter
  [H2] = repertoire
  ligne = 2
  nf = Dir(repertoire & "*.*") 'premier fichier xls
  Do While nf <> ""
    Cells(ligne, 1) = nf
    Cells(ligne, 2) = FileDateTime(nf)
    Cells(ligne, 3) = FileLen(nf)
    ligne = ligne + 1
    nf = Dir ' suivant
  Loop
End Sub
Source : http://boisgontierjacques.free.fr/pages_site/GestionRepertoire.htm

eric
0
Réponse 4 / 4
ccm81 Messages postés 11033 Statut Membre 2 433
 
merci

j'avais trouvé ceci avec FileSearch, mais ta trouvaille est plus simple et a peut être plus de chance d'être compatible avec excel 97 

Sub liste_fichiers()
Dim fs, i As Long
Set fs = Application.FileSearch
With fs
   .LookIn = Range(celdossier)
   .Filename = DebNomFic & "*.txt"
   If .Execute > 0 Then
     MsgBox .FoundFiles.Count & " fichier(s) trouvé(s)."
     For i = 1 To .FoundFiles.Count
       Sheets(nomFT).Range(colistefic & 1 + i) = .FoundFiles(i)
     Next i
    Else
      MsgBox "Aucun fichier du type " & DebNomFic & "*.txt n'a été trouvé."
    End If
End With
End Sub

cordialement
0