Sujet Précédent Sujet Suivant

VBA objets disponibles selon version Excel

Résolu/Fermé
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 - 13 sept. 2012 à 11:50
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 - 13 sept. 2012 à 16:29
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
13 sept. 2012 à 12:27
Bonjour,
pour split= npn
je ne sais pas pour l'autre...
0
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
13 sept. 2012 à 13:45
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 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 244
13 sept. 2012 à 13:51
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 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
13 sept. 2012 à 14:51
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 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 244
13 sept. 2012 à 15:58
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 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
13 sept. 2012 à 16:29
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