Discussion :

[pierre008]

Salut les gars,
Ce que j'essaye de faire est d'ouvrir tous les fichiers word d'un dossier et les enregistrer sous .html
Est ce qu'il aura une macro pour faire ca??

Merci pour votre aide

Pierre

[Heureux-oli]

Salut,

La macro, il faut la faire.

[pierre008]

En effet je suis débutant en vba, je sais comment enregistrer sous .html mais j'en ai aucune idée comment faire pour ouvrir tous les fichiers word dans une répertoire pour les enregistrer sous .html

[Heureux-oli]

Salut,

Il faut utiliser une librairie externe qui rend la vie plus facile, Mircrosoft Scripting Runtime

http://warin.developpez.com/access/fichiers/

Le principe est simple, il suffit de faire une boucle sur les fichiers du répertoire, si ce sont des documents, on les ouvre et on lance la conversion.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
ub Olivier101011()
'Déclaration des variables
Dim oFso As FileSystemObject
Dim oFol As Folder
Dim oFil As File
Dim oDlg As FileDialog
Dim stFol As String
 
'Affectation des objets
Set oFso = New FileSystemObject
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)
oDlg.Show
 
 
Set oFol = oFso.GetFolder(oDlg.SelectedItems(1))
'Boucle sur tous les fichiers du répertoire choisi
For Each oFil In oFol.Files
MsgBox oFil.Name
Next oFil
 
Set oDlg = Nothing
Set oFol = Nothing
Set oFso = Nothing
 
End Sub