Log. Conversion Excel

Fermé

Steuve - 9 juil. 2009 à 10:38
Steuve - 9 juil. 2009 à 14:23

Bonjour,

Notre société dispose d'environ 660 anciens fichiers ".xls". (1995)
Nous sommes passé en Microsft Office 2007.
Ces fichiers ne s'ouvre pas.

Nous avons trouvé une solution:
Les ouvrir avec Microsoft Excel 2000 et les ré-enregistrer en classeur ".xls"
Après cette manipulation ils sont lisibles sur Excel 2007.

Ma question est simple:

Existe t-il un logiciel capable de faire cette conversion automatiquement ?
ou bien
Possibilité d'automatiser cela par une appli (VB?) ?

car faire 660 fichiers à la main.............. !!!

Merci d'avance !

A voir également:

Log. Conversion Excel
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

3 réponses

Réponse 1 / 3

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
9 juil. 2009 à 11:29

Salut,

Peut être avec une macro.
Donc tu ouvres Excel 2000 et tu lances là macro.
Quand tu exécutes la macro tu fermes d'abord tous les fichiers excel déjà ouverts.

Sub enregistrer_sous()
Dim fic, repbase
Application.DisplayAlerts = False

repbase = "C:\chemin\vers\repertoire\" ' à modifier en fonction de ton arborescence
fic = Dir(repbase & "*.xls")
'
Do While fic <> ""
   Workbooks.Open Filename:=repbase & fic
   ActiveWorkbook.SaveAs Filename:= _
        repbase & fic, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.Close
    fic = Dir
Loop
Application.DisplayAlerts = True
End Sub

Réponse 2 / 3

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
9 juil. 2009 à 12:12

Re,

Il faudra mieux penser à eviter le remplacement au cas où, donc j'ai rajouté un préfixe 2000 au nom de fichier

Sub enregistrer_sous()
Dim rep, fic
Dim repbase
Application.DisplayAlerts = False

repbase = "\\f-renoutet-md\home4$\p049784\MyDocs\conversion\"
fic = Dir(repbase & "*.xls")
'
Do While fic <> ""
   Workbooks.Open Filename:=repbase & fic
   ActiveWorkbook.SaveAs Filename:= _
        repbase & "2000_" & fic, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.Close
    fic = Dir
Loop
Application.DisplayAlerts = True
End Sub

Réponse 3 / 3

Steuve
9 juil. 2009 à 14:23

OK !
Sa marche !

Niquel ;) Je te remerci !

ps: j'ai pa eu besoin du suffixe, car j'ai changé la destination en rajoutant une variable.

(c'est entrain de tourner la....)

Newsletters