Conversion automatisée des .doc en .docx (et des .xls en .xlsx)

Question

Bonjour

Je désirerais convertir la totalité de mes fichiers word .doc en .docx et la même chose pour mes fichiers Excel (.xls en .xlsx). Existe-t-il une procédure Microsoft pour le faire par lot ? Un programme à télécharger et exécuter sur son PC par exemple ?

Merci.

Answer 1

Bonjour Du29&,

Bienvenue dans Microsoft Community.

Je comprends que vous vous renseignez sur la conversion de plusieurs fichiers Word et Excel par lots.

Essayez d’utiliser www.multidoc-converter.com pour convertir .doc en docx.

Essayez www.freeconvert.com/xls-to-xlsx pour Excel

S’il vous plaît laissez-moi savoir si vous avez besoin de plus d’aide.

Clause de non-responsabilité : Il existe des liens vers des sites Web non Microsoft. Les pages semblent fournir des informations précises et sûres. Méfiez-vous des publicités sur les sites qui peuvent annoncer des produits fréquemment classés comme PPI (produits potentiellement indésirables). Faites des recherches approfondies sur tout produit annoncé sur les sites avant de décider de le télécharger et de l’installer.

Redonnez à la communauté, aidez la prochaine personne qui a ce problème en indiquant si cette réponse a résolu votre problème. Cliquez sur Oui ou Non ci-dessous.

Cordialement

Cette réponse a été traduite automatiquement. Par conséquent, il peut y avoir des erreurs grammaticales ou des expressions étranges.

Answer 2

Bonjour,

J'ai utilisé www.freeconvert.com/xls-to-xlsx pour Excel qui fonctionne bien...

Je vous remercie aussi pour cette information.

Bonne journée.

Answer 3

Bonjour,

La macro suivante devrait faire la même la même chose pour les classeurs Excel. Attention, fais un essai sur un nombre limité de dossiers et de classeurs. De toute façon les fichiers XLS ne sont pas supprimés. Lance la macro XLS_XLSX, choisis la dossier maître à traiter et laisse la macro s'exécuter.

Public Sub XLS_XLSX()

Dim FSO As Object, Nom As String  
Dim Doss As String  
Dim F As Object, D As Object  
Application.ScreenUpdating = False  
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set Var = Application.FileDialog(msoFileDialogFolderPicker)  
If Var.Show <> -1 Then Exit Sub  
Doss = Var.SelectedItems.Item(1)  
For Each F In FSO.getfolder(Doss).Files  
  If UCase(Right(F.Name, 4)) = ".XLS" Then  
    Debug.Print F.Name  
     Set wbk = Workbooks.Open(F.Path)  
     Nom = Left(F.Path, Len(F.Name) - 4) & ".xlsx"  
     wbk.SaveAs Nom, xlOpenXMLWorkbook  
     wbk.Close  
  End If  
Next F  
For Each D In FSO.getfolder(Doss).subfolders  
  find\_folders D  
Next D  

End Sub

Private Function find_folders(ByVal D)
Dim SF As Object
For Each F In D.Files
Debug.Print "***" & D.Path & "***"
If UCase(Right(F.Name, 4)) = ".XLS" Then
Debug.Print F.Name
Set wbk = Workbooks.Open(F.Path)
Nom = Left(F.Path, Len(F.Name) - 4) & ".xlsx"
wbk.SaveAs Nom, xlOpenXMLWorkbook
wbk.Close
End If
Next F
For Each SF In D.subfolders
find_folders SF
Next

End Function

Cordialement.

Daniel

Answer 4

Merci beaucoup pour votre réponse rapide !

Dans un premier temps je viens de convertir quelques milliers de fichiers Word .doc en .docx avec MultiDoc Converter cela marche parfaitement... Le fait de traiter les sous-dossiers en se plaçant sur le dossier supérieur sans avoir à descendre sur les racines est particulièrement pratique...

Il me reste les fichiers Excel à traiter... à suivre !

Bonne journée.

Answer 5

Bonjour

Via VBA

https://www.extendoffice.com/documents/excel/1349-excel-batch-convert-xls-to-xlsx.html