Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide Recherche
1589 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Application.FileSearch objet requis

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Application.FileSearch objet requis

n°1327892
Asmfox_swe​den
Posté le 18-03-2006 à 17:06:31  profilanswer
 

Bonjour,
 
Avec le code suivant, après compilation VB m'indique une erreur : un objet est requis (erreur 424)
 
    Set file_figures = Application.FileSearch
    With file_figures
        .LookIn = App.Path & "\figures"
        .SearchSubFolders = False 'true
        .FileName = "figure*.jpg"
        .Execute
    End With
Je pense qu'il faut que je fasse appelle à une référence pour que ca marche, mais laquelle ?  
Merci

mood
Publicité
Posté le 18-03-2006 à 17:06:31  profilanswer
 

n°1327902
Harkonnen
Modérateur
SQL is evil
Posté le 18-03-2006 à 17:27:51  profilanswer
 

c'est tout ce que tu as fait ? tu n'as pas l'impression d'avoir oublié un CreateObject("Word.Application" ) quelque part ?
les docs, c'est fait pour être lues, il ne suffit pas de récupérer bètement de bouts de code et de les utiliser sans réflechir

Message cité 1 fois
Message édité par Harkonnen le 18-03-2006 à 17:28:36

---------------
J'ai un string dans l'array (Paris Hilton) - lesblasblasdemma : Ecrire comme d'autres respirent
n°1327993
Asmfox_swe​den
Posté le 18-03-2006 à 22:01:51  profilanswer
 

D'accord, c'est un code que j'avais tapé sur excel et qui marchait très bien. Donc conclusion son importation sur VB n'est pas possible directement.
Alors es ce qu'il n'existe pas de fonction similaire sans MS office.
Merci

n°1328038
Harkonnen
Modérateur
SQL is evil
Posté le 18-03-2006 à 23:52:18  profilanswer
 

ben si c'est possible, faut juste ajouter la référence au fichier msword.olb (Microsoft Word Object Library)


---------------
J'ai un string dans l'array (Paris Hilton) - lesblasblasdemma : Ecrire comme d'autres respirent
n°1328172
Asmfox_swe​den
Posté le 19-03-2006 à 08:46:55  profilanswer
 

D'accord mais mon programme, je veux qu'il tourne sur plusieurs ordinateur, donc si ceux-ci ne possèdent pas Word, mon programme ne va pas marcher.
Es ce qu'il existe pas une fonction provenant de windows même par exemple, pour effectue le même travail.

n°1329019
Asmfox_swe​den
Posté le 20-03-2006 à 19:22:54  profilanswer
 

Excuse moi, je répète ma question car j'en ai besoin pour mon boulot.
Donc ma question est :
Existe-t-il une fonction recherche (qui ne fait pas appel au VBA) comme dans le code tout en haut, mais en VB.
MERci.

n°1329806
Epena
Posté le 21-03-2006 à 22:07:06  profilanswer
 

Bonsoir,
On peut utiliser la fonction Dir qui fonctionne en VB et VbA :
 
Sub Test()
Dim Répertoire
Dim Liste()
Répertoire = App.Path & "\figures\" '
ChDir Répertoire
Temp = Dir("figure*.jpg" )
Compte = -1
    While Temp <> ""
        Compte = Compte + 1
        Temp = Dir()
    Wend
If Compte > -1 Then
    ReDim Liste(Compte)
    Liste(0) = Dir("figure*.jpg" )
    msg = Liste(0)
    For i = 1 To Compte
        Liste(i) = Dir()
        msg = msg + Chr(10) & Liste(i)
    Next i
MsgBox msg
End If
End Sub
 
Bon courage
Epéna

n°1330125
Asmfox_swe​den
Posté le 22-03-2006 à 12:46:47  profilanswer
 

Merci, je vais tester cela.

n°1581358
ninikkhuet
Posté le 02-07-2007 à 09:36:38  profilanswer
 

Harkonnen a écrit :

c'est tout ce que tu as fait ? tu n'as pas l'impression d'avoir oublié un CreateObject("Word.Application" ) quelque part ?
les docs, c'est fait pour être lues, il ne suffit pas de récupérer bètement de bouts de code et de les utiliser sans réflechir


y en a vraiment qui manquent de cours de politesse !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  :pfff:


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Application.FileSearch objet requis

 

Sujets relatifs
[VS 2003] [Qt] Callback, objet, cast.[FOP] Instanciation d'un objet Driver foireuse
[.NET] Binding champs de table bdd <=> propriété d'objet[Forms] Faire une application non web
PHP objet alloudi les pages ?Objet Timer sous VBA
[RESOLU] PROB liste chainée d'objet push_back()sélection un objet grace à un string
protection d'objetdetruire un objet instancié par createClassObject()
Plus de sujets relatifs à : Application.FileSearch objet requis



Copyright © 1997-2014 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC