[kick71]

Bonjour,

Depuis 4 ans j'ai une appli assez lourde développée sous excel.

Je vous passerais le pourquoi du comment que celle-ci à été développée sous excel.

Je dois installer cette appli sur un poste ayant office 2007.

Lors de cette migration office 2002 vers 2007, une fonction utilisant "Filesearch" ne fonctionne plus !

Il faut ajouter une référence dans excel 2007 afin d'utiliser les objets MSO. J'ai beau fouiner, je n'arrive à rien et je ne trouve pas d'infos sur le net !

J'ai essayé de copier le Rep. des références office2002 et tenté d'ajouter celles-ci sous excel 2007, mais rien n'y fait ...

Quelqu'un connait quelle ref. il faut ajouter, ou quelle manip il faut faire ?
Dans l'attente de de votre aide,
Merci

Kick

[MichelXld]

bonjour

Il semblerait que Filesearch ne soit plus pris en compte dans Excel2007.

Avant de te proposer une autre solution, peux tu préciser si tu fais aussi la recherche de fichiers dans les sous répertoires.
Tu listes tous les types fichiers ou seulement une extension spécifique (si c'est le cas quel type de fichier? .xls? .doc?...)


Bonne journée
MichelXld

[kick71]

Bonjour,

Je recherche l'existence d'un fichier dans un repertoire bien précis .
Le fichier recherché est tjrs du même type soit un "xls".

Il existe une nouvelle fonction ds Excel2007 qui fait la même chose ?

Merci de ton intérêt à mon pb MichelXld !

A suivre

"Je galère aussi avec mes anciennes barres d'outils ... mais je vais chercher avant de pleurer pour de l'aide ..."

[MichelXld]

Rebonjour

Je recherche l'existence d'un fichier dans un repertoire bien précis .
Le fichier recherché est tjrs du même type soit un "xls".

Tu peux préciser? tu vérifies simplement si un classeur existe?
dans ce cas tu peux utiliser directement:

If Dir("C:\dossier\NomClasseur.xls") <> "" Then
    MsgBox "existe"
    Else
    MsgBox "n'existe pas"
End If

Pour retrouver la correspondance des anciennes barres d'outils:

Présentation de Microsoft Office - Excel 2007 - Club d'entraide des développeurs francophones - Club d'entraide des développeurs francophones



bonne journée
MichelXld

[kick71]

Re Re bonjour !

Concernant la fonction "DIR" je l'utilise deja, mais c'est surtout lors de la recherche de ts les fichiers excel contenus ds un rep. bien précis afin de les gérer ds une listbox perso ...

Merci pour le lien sur les barres d'outils ... je vais regarder cela ... sinon j'ai rtouvé ds ce forum de quoi "m'amuser" avec la création de barres d'outils par programmation ...

Une mine d'or ce site ... je vais diffuser autour de moi l'adresse !

Encore merci et bon AM
Je tiendrais au courant des évolutions de mon post ...

kick

[MichelXld]

rebonjour

Tu peux utiliser cette procédure qui fonctionnera aussi pour les versions Excel antérieures:

Dim Chemin As String, Fichier As String

Chemin = "C:\dossier\"
Fichier = Dir(Chemin & "*.xls")

Do While Fichier <> ""
    ComboBox1.AddItem Fichier
    Fichier = Dir
Loop

Bon week end
MichelXld

[kick71]

Pil poil ...


Pourquoi ce compliquer la vie !

Bon week ... et à bientôt !

Kick