IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

problème de version


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Inscrit en
    Juin 2005
    Messages
    57
    Détails du profil
    Informations forums :
    Inscription : Juin 2005
    Messages : 57
    Par défaut problème de version
    Bonjour,


    J'ai un code qui passe en excel 2002 et pas en excel 2003. vous pouvez me dire ce que je dois modifier pour qu'il passe en 2003 SVP

    voici le code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    dim chemin as string
     
    chemin="D:\bonjour\"
     
    With Application.FileSearch
                .NewSearch
                .LookIn = chemin
                .SearchSubFolders = False
                .Filename = "INV"
                .MatchTextExactly = False
                .FileType = msoFileTypeAllFiles
                If .Execute() > 0 Then
                    a = .FoundFiles.Count
                End If
            End With
    en 2002, il trouve le fichier mais pas en 2003.


    ?????????????????


  2. #2
    Membre Expert Avatar de aalex_38
    Inscrit en
    Septembre 2007
    Messages
    1 631
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 631
    Par défaut
    Sur les dernières versions excel FileSearch n'est plus implémenté.

    Il y a de nombreux exemples, notamment en passant par une classe pour contourner ce problème.

    ici comme tu ne parcours pas les sous-dossiers, regarde du côté de Dir.

  3. #3
    Membre confirmé
    Inscrit en
    Juin 2005
    Messages
    57
    Détails du profil
    Informations forums :
    Inscription : Juin 2005
    Messages : 57
    Par défaut
    j'ai regardé et je ne trouve pas

    je m'explique : j'utilise déjà le getattr dans le test d'éxistance d'un fichier mais là je dois tester l'existance de tous les fichiers contenant "INV"

    J'ai repris l'aide microsoft sur la version 2003 et il connait filesearch mais visiblement il y a un problème dans l'application de ce filesearch donc je continue à chercher

    si vous avez une solution pour moi elle est la bien venue.

  4. #4
    Membre Expert Avatar de aalex_38
    Inscrit en
    Septembre 2007
    Messages
    1 631
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 631
    Par défaut
    Bonjour,

    Un exemple avec DIR :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    Sub test_copieI()
    Dim Nomc As String
    Dim tabrep() As String
    Dim i As Integer, K as integer
    Dim result As String
    i = 0
    Nomc = "C:\XXX\YYYl\" ' Mettre ici le chemin
     
    Repertoire = Dir(Nomc & "*INV*", vbDirectory)
    ReDim Preserve tabrep(i)
    tabrep(i) = Repertoire
     
    Do While Len(Repertoire) > 0
     i = i + 1
        Repertoire = Dir()
        ReDim Preserve tabrep(i)
        tabrep(i) = Repertoire
    Loop
     
    Dim Mess As String
    For k = 0 To UBound(tabrep)
        result = Dir(tabrep(k), vbDirectory) '  <> ""
        Mess = Mess & tabrep(k) & vbCrLf
    Next k
     
    MsgBox Mess
     
    End Sub

  5. #5
    Membre confirmé
    Inscrit en
    Juin 2005
    Messages
    57
    Détails du profil
    Informations forums :
    Inscription : Juin 2005
    Messages : 57
    Par défaut
    mais pourquoi n'y ais je pas pensé plus tôt????????????????????


    merci c'est génial

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Erreur 1064 - Probléme de versions
    Par thibaut06 dans le forum Requêtes
    Réponses: 2
    Dernier message: 12/11/2005, 16h22
  2. Problème compilation Version 8.0.1 sous Debian Sarge
    Par LIndien dans le forum PostgreSQL
    Réponses: 1
    Dernier message: 04/02/2005, 21h38
  3. [Word] Problème de version Word
    Par delphicrous dans le forum API, COM et SDKs
    Réponses: 3
    Dernier message: 17/09/2004, 11h19
  4. Problèmes de versions avec Xalan, Xerces et Java
    Par honeyz dans le forum XML/XSL et SOAP
    Réponses: 4
    Dernier message: 05/06/2003, 10h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo