Discussion :

[nascar33bx]

Bonjour,
J'ai besoin de convertir des RTX en DOCX. Très simple pour un par ci par là.
Mon problème :
J'ai un dossier exemple COURRIERS dans lequel il y a plusieurs milliers de sous-dossiers contenant des documents RTF créés au fil des années.
Quand j'ouvre un document RTF sous WORD 2013 et que je l'enregistre en DOCX, c'est parfait. Puis j'ouvre le DOCX, clique sur compatibilité et l'enregistre c'est OK.
Mon problème est que j'en ai des milliers, 300 000 à 500 000 documents. Donc impossible de faire cela à la main.
J'ai essayer des convertisseurs par lots mais le résultat est moyen. Seul WORD 2013 me fait un boulot impeccable. Donc leur module de conversion est bien.
Mon autre problème est que je n'y connais rien au développement. Donc c'est la galère.
Si quelqu'un a fait un utilitaire, une macro ... ce serait vraiment le top.
Merci beaucoup.

[Toulousaing]

Excuse-moi de répondre peut-être à côté de la question, mais je ne vois pas bien l'intérêt de la manip.
Si tu souhaites convertir des document .rtf en .docx, c'est que les lecteurs éventuels disposent de Word, donc ils peuvent parfaitement ouvrir des .RTF.
Où est le problème ?
Juste curieux.
Merci.

[QuestVba]

Si c'est pour une macro, il existe un forum ad hoc.

Sinon effectivement voici un code qui devrait fonctionner (il convertit tout un folder) :

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
Sub ConvertRtfToDocx()
 
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select folder..."
        .Show
        myFolder = .SelectedItems.Item(1)
    End With
 
    myWildCard = InputBox(prompt:="Enter wild card...")
 
    myDocs = Dir(myFolder & "\" & myWildCard)
 
    While myDocs <> ""
        Documents.Open FileName:=myFolder & "\" & myDocs, ConfirmConversions:=False
        ActiveDocument.SaveAs2 FileName:=myFolder & "\" & Left(myDocs, Len(myDocs) - 4) & ".docx", _
            FileFormat:=wdFormatDocumentDefault, _
            CompatibilityMode:=wdCurrent
        ActiveDocument.Close SaveChanges:=False
        myDocs = Dir()
    Wend
 
End Sub

[nascar33bx]

Super merci pour la macro.
Ca fonctionne super.
Au début je n'avais pas pigé la Wild Card et en réfléchissant un peu le fait de mette *.rtf c'est ok.
Il est vrai que dans le dossier j'ai des rtf, pdf, eml ...

La dernière chose c'est que j'ai un répertoire principal avec plein de sous-dossiers à l'intérieur et que je voudrai tout traiter d'un bloc en donnant le dossier principal de départ.
C'est sûr qu'il faut que je fasse une boucle, mais comme je ne touche pas du tout un développement ce serait trop cool de me rajouter les ligne de la macro.

Merci beaucou.

Si c'est pour une macro, il existe un forum ad hoc.

Sinon effectivement voici un code qui devrait fonctionner (il convertit tout un folder) :

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
Sub ConvertRtfToDocx()
 
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select folder..."
        .Show
        myFolder = .SelectedItems.Item(1)
    End With
 
    myWildCard = InputBox(prompt:="Enter wild card...")
 
    myDocs = Dir(myFolder & "\" & myWildCard)
 
    While myDocs <> ""
        Documents.Open FileName:=myFolder & "\" & myDocs, ConfirmConversions:=False
        ActiveDocument.SaveAs2 FileName:=myFolder & "\" & Left(myDocs, Len(myDocs) - 4) & ".docx", _
            FileFormat:=wdFormatDocumentDefault, _
            CompatibilityMode:=wdCurrent
        ActiveDocument.Close SaveChanges:=False
        myDocs = Dir()
    Wend
 
End Sub