Application File.search 2003

[Pink_Paradise]

Bonjour le forum,

Voila j'expose mon problème. En 2003, je developpe une macro afin qu'elle puisse tt simplement m'insérer des fichiers de typer .rtf. La macro me localise les fichiers afin de les afficher sur Word 2003. Malheuresement et après de nombreuse recherche sur le net, je viens de découvrir que pour Word et Excel 2007 et 2010 l'application File.search n'est plus prise en considération!!!

Voici la macro développez :

Rem ***********************************************************************
Rem : Insertion de tous les fichiers RTF contenu dans un répertoire
Rem : Auteur :Sabrina M.
Rem : Date : 08/02/2003
Rem : ---------------------------------------------------------------------
Rem : 1) Insere tous les fichiers contenu dans un même répertoire
Rem ***********************************************************************


Sub Inserer_fichier()

Set fs = Application.FileSystemObject
With fs
.LookIn = file
.FileName = "*.rtf"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Selection.InsertFile FileName:=.FoundFiles(i), Range:="", ConfirmConversions:= _
False, link:=True, Attachment:=False
If i <> .FoundFiles.Count Then
Selection.InsertBreak Type:=wdSectionBreakNextPage
End If
Next i

Else
MsgBox "Aucun fichier n'a été trouvé."

End If
End With
End Sub


S'il y a quelqu'un qui pourrait me sauver, je pourrais être reconnaisante

Merci le forum
Sabrina

 

[Guest]

Re : Application File.search 2003

Bonjour et bienvenue sur le forum,

Nous somme sur un forum excel. Tu trouveras des succédanés de FileSearch soit en faisant une recherche sur ce forum, les solutions seront adaptées à excel mais pas forcément à word,
soit en faisant une recheche sur internet avec "Office 2007 FileSearch".


Un complment FileSearch pour Excel 2007

A+

 

[Pink_Paradise]

Re : Application File.search 2003

salut Haso,

Merci de ta réponse. En faite, à l'origine c'est une macro que j'ai développez sur excel. Et ayant un besoin sur word, j'aimerais savoir si cela pourrait se corriger avec ce bug de set fs= Application.filesearch

Merci

 

[Guest]

Re : Application File.search 2003

Re,

Application.FileSearch n'existe pas sous 2007. Toutes les macros écrites avant cette version et qui employaient FileSearch, doivent être réécrites.

Relis mon précédent post, j'y ai joins un lien vers un complément très bien fait.

Cordialement
A+

 

[Pink_Paradise]

Re : Application File.search 2003

Ok Hasco,
Par contre le lien est situé ou ?
Merci

 

[Efgé]

Re : Application File.search 2003

Bonjour Pink_Paradise,Bonjour Hasco ,
Pour le lien donné par Hasco : il faut cliquer sur la ligne en orange dans son post (Orange = lien sur le forum )
Si non on peux essayer d'utiliser quelque chose comme ça:

Sub test()
Dim dossier As Object, fichier As Object
Dim Rep$
Rep = ThisWorkbook.Path
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Rep & "/")
For Each fichier In dossier.Files
    If Right(fichier.Name, 3) = "rtf" Then
    '-----------------------
    'Le traitement
    '-----------------------
    End If
Next fichier
End Sub

A vérifier sous 2007, je suis sous 2003.
Cordialement

 

[Pink_Paradise]

Re : Application File.search 2003

Salut Efgé,

Merci pout ton conseil c'est gentil de ta part concernant le lien (orange=pas vus lool).
je vais essayer ce code que tu as developpé, je t'en dirais de mes nouvelles

Merci bcp

 

[Pierrot93]

Re : Application File.search 2003

Bonjour à tous,

petite info au passage, il existe également la fonction "Dir" native dans vba Excel et Word...

bon après midi
@+

 

[Efgé]

Re : Application File.search 2003

Re
Autant le préciser tout de suite, je n'ai rien dévrlopé du tout. J'ai juste, comme d'habitude, récupéré une proposition déja faites il y a un moment et que j'ai gardée bien au chaud
Cordialement

Edit; Bonjour Pierrot

 

[MJ13]

Re : Application File.search 2003

Bonjour à tous

J'avais mis en ligne un fichier pour lister ses fichiers (V5). A tester .

https://www.excel-downloads.com/thr...e-html-pour-creer-une-base-de-donnees.160810/

 

[Pink_Paradise]

Re : Application File.search 2003

Bonjour tout le monde,

Je reviens vers vous pour comprendre le sujet de la discussion. Il s'agit tout simplement de savoir si concernant a ce bug sur Excel ou Word 2010 (concernant la non reconnaisance de file.search), s'il y aurait une solution à mon problème (c'est à dire au code vba que j'ai publiée précedement).

Pour Efgé, malheuresement le code vba ne fonctionne pas merci comme même

Merci infiniment pour votre aide les gars
Sabrina

 

[Guest]

Re : Application File.search 2003

Sabrina

Je ne peux rien rajouté de plus à ce qui t'a été donné comme moyens de remplacement.

A+

 

[MJ13]

Re : Application File.search 2003

Re

Pink_Paradise: Essaye de tester le fichier Dir_Dossier5 (onglet DIR) que j'ai donné précédemment, pour voir déjà si cela fonctionne sur XL2010. Ensuite ce sera plus simple pour t'aider .

 

[Pierrot93]

Re : Application File.search 2003

Re,

un exemple dans Excel avec "Dir", liste tous les fichiers xls du répertoire dans lequel est enregistré le classeur de la macro :

Option Explicit
Sub test()
Dim r As String, i As Integer
i = 1
r = Dir(ThisWorkbook.Path & "\*.xls")
Do While r <> ""
    Cells(i, 1) = r
    i = i + 1
    r = Dir
Loop
End Sub

 

[Pink_Paradise]

Re : Application File.search 2003

Salut la compagnie,

MJ13, je vais essayer ton dossier et regarder si cela fonctionne. J'essaierai de trouver une solution. Au cas où, je reviendrai sur le forum vous embetez les mec

Pierrot93, je vais voir ce que cela va me donnez comme résultat sur Excel 2010.

Hasco ainsi que l'ensemble des personnes, je vous remercie de l'aide que vous m'avez apporté.

Sabrina