Sub fouilledossier() Dim fso As Object Dim objFiles As Folder Dim dossier As String Dim variable As Variant Dim fFile As File Dim objWord As New Word.Application Set fso = CreateObject("Scripting.FileSystemObject") 'chemin du dossier contenant les fichiers dossier = CurrentProject.Path Set objFiles = fso.GetFolder(dossier) Dim cheminfichier As String For Each Item In objFiles.Files If Left(Item.Type, 30) "Document Microsoft Office Word" And Item.Attributes "32" Then cheminfichier = fso.GetFile(Item.Path) objWord.Documents.Open cheminfichier objWord.Visible = True 'si tu veux fermer le fichier word 'objWord.Documents(1).Close Set objWord = Nothing End If Next Set fso = Nothing Set objFiles = Nothing End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question