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

4 réponses

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

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

      cordialement
      0
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      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
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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