FileSearch - FoundFile - Excel 2007

[estelleamb]

Bonjour,

Avec le passage vers Excel 2007, ma macro suivante ne marche plus.
J'ai essayé de trouver des infos avec diférents messages postés sur le sujet mais comme je suis novice en macro, je ne suis pas arrivée à les adapter à ma macro.
Quelqu'un peut-il m'aider ?

Dim f
With Application.FileSearch
.NewSearch
.LookIn = NomRep
.Execute
On Error Resume Next
For Each f In .FoundFiles
Workbooks.Open f
Next f
End With


Merci

 

[degap05]

Re : FileSearch - FoundFile - Excel 2007

Bonjour,

Pour pallier le fait que FileSearch ne fonctionne pas avec Excel 2007, MichelXld propose une solution:

https://www.excel-downloads.com/threads/classefilesearch-pour-excel2007.77650/

A+

 

[estelleamb]

Re : FileSearch - FoundFile - Excel 2007

Merci pour votre réponse mais je n'arrive pas à adapter la réponse à ma macro...

 

[degap05]

Re : FileSearch - FoundFile - Excel 2007

Bonjour,

Est-ce que votre demande correspond à l'exploration d'un dossier et au choix de l'ouverture d'un fichier ?

Si c'est le cas, voyez le fichier joint, ou il faut adapter le chemin.

Vous devriez joindre votre fichier pour qu'un spécialiste l'examine de près.

A+