C'est bourrin comme technique, mais ça fonctionne :
With Application.FileSearch
.NewSearch
.TextOrProperty = "*.dot"
.LookIn = "Le_répertoire_où_sont_les_dot"
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Execute
Total = .FoundFiles.Count
For i = 1 To Total
strNomFichier = .FoundFiles(i)
Documents.Open strNomFichier
ActiveDocument.SaveAs Left(strNomFichier, Len(strNomFichier) - 1) & "c", wdFormatDocument
ActiveDocument.Close wdDoNotSaveChanges
Next
End With
Edit: Petite correction dans le SaveAs (c'est un Left et j'ai mal placé une parenthèse).
Oui, je suis sûr que ça marche.
C'est le paramètre wdFormatDocument qui fait qu'il sauve en *.doc.
Je remets toute la ligne pour reprendre facilement le chemin du fichier et c'est plus facile de changer juste une caractère.
Si j'avais voulu sauver en *.dot l'argument aurait été wdFormatTemplate
Message édité par sgachet le 05-03-2004 à 09:56:45