[WD-2003] 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 :

Code :

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
29
30
31
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.FileSearch
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

[Pink_Paradise]

RE,

J'aimerais savoir si dans ce forum, il y aurait des âmes sensibles qui pourait aidez une jeune femme en détresse . Concernant ce petit bug, je me sens un peu perdue.

Merci de me répondre
Sabrina

[Heureux-oli]

Salut,

Pas pleurer !

Michel avait fait quelque chose pour combler le trou !
http://silkyroad.developpez.com/vba/classefilesearch/

On peut toujours contourner le problème avec un code maison et du FSO.

[Pink_Paradise]

Salut Heureux_oli,

Merci pour ta prompte réponse. Ayant cherché dans les compléments de Word où se trouve la commande ClFile.Search, celle ci ni figure malheuresement pas sur Word . J'aimerais savoir par rapport au code que j'ai publiée sur le forum s'il quelqu'un pourrait me montrer à quoi la ligne Set fs=Application.filesearch pourrait être remplacée. Ce que tu m'a envoyé correspond à Excel, je vais comme même essayer.

Je te remercie de m'avoir répondu comme quoi tu portes bien ton surnom

J'attends la suite des réponse merci le forum

[Heureux-oli]

Salut,

Je pensais que c'était transposable facilement dans Word, je me suis un peu trompé.

Je vais te donner une autre voie.

windows dispose d'une bibliothèque FileSystemObjet qui permet de travailler sur les dossiers et les fichiers.
http://warin.developpez.com/access/fichiers/

Le but serait de récupérer tous les fichiers .rtf contenu dans un répertoire pour les insérer dans un document.

Je pense que j'ai déjà donné un code similaire pour les images.

Tu dois ajouter la bibliothèque "Microsoft Scripting Runtime" à ton projet (Outils => Références).

Code :

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
 
Sub ListerLesFichiers()
Dim oFSO As FileSystemObject
Dim oFol As Folder
Dim oFil As File
Dim oDlg As FileDialog
 
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)
oDlg.Show
 
Set oFSO = New FileSystemObject
Set oFol = oFSO.GetFolder(oDlg.SelectedItems(1))
 
For Each oFil In oFol.Files
If Right(oFil.Name, 3) = "rtf" Then Debug.Print oFil.Name
Next oFil
 
 
 
Set oDlg = Nothing
Set oFil = Nothing
Set oFol = Nothing
Set oFSO = Nothing
 
End Sub

Si tu n'arrives pas à utiliser ce code dans ta macro, on ira un peu plu sloin.

[Pink_Paradise]

Bonjour le forum,

Voila revenue de vacances, je reprends tout doucement mes projets . Et là je reviens vers toi Heureux_oli par rapport aux codes que tu m'as envoyés. Le souci c'est que ce code m'ouvre une fenêtre de dialogue avec ouvrir>document et moi j'essaie en fait d'avoir la même manipulation que je faisais auparavant c'est à dire que j'avais une fenêtre de dialogue avec le chemin d'accès et ensuite mon ajout de l'entête.

C'est peut être trop demander mais comme on va m'installer le pack office 2010, sans cette manipulation je vais être dans de beaux draps !!!

Merci beaucoup de vos solutions le forum

Sabrina

[Pink_Paradise]

Voici le fichier qui va avec, vous comprendriez mieux je l'espère.
(j'essaie d'avoir cette manipulation sur Word 2010 )

Merci de vos réponses c'est gentil

[Pink_Paradise]

OOps j'ai oublier de mettre en pièce jointe le fichier

NB: il faudra convertir le document en docm pour que les macro puissent fonctionnés

[Heureux-oli]

Salut,

Juste que ouvrir document, ne sert pas à ouvrir un document mais à choisir le répertoire.

[Pink_Paradise]

Bonjour le forum,

Apparemment je me suis mal fait comprendre . Le truc n'est pas d'ouvrir le document mais, tout simplement de pouvoir faire fonctionner cette macro sur Word 2010. C'est pourquoi je vous ai envoyé (spécialement à Heureux_oli), le fichier pour que vous comprendriez l'acheminement de mon résultat. J'espère qu'il aura du soutien sur cela. Là, je ne peux pas faire plus d'un point de vue explication !!!!!

[dzincou]

Bonjour,

La réponse apportée ici à l'aide de la bibliothèque "Microsoft Scripting Runtime" convient parfaitement au problème qui se pose à moi.
Un détail cependant, lorsque que je récupère mes fichiers afin de les insérer dans mon document j'aimerais les trier alphabétiquement (pour maîtriser l'ordre d'insertion).

Comment est il possible de faire cela ?

Merci d'avance.

[Heureux-oli]

Salut,

Le plus simple est un tableau et faire un tri sur le tableau.