Compatibilité excel 7 / 9

[thegritch]

Bonjour à tous,

J'ai parcouru ce forum de long en large sans trouver vraiment ce qu'il me faillait. ( suis difficile lol ) => mais y 'a plein de trucs vraiment sympa !!

Bref voilà ce qui m'ammène à vous :

Il y a Mr A avec une version de Excel 2000
et Mr B qui lui possède une version Excel 97.

Mr A envoi par mail des fichiers xls ( version 2000 ) à Mr B
Et Mr B n'arrive pas à la ouvrir ( problème de version )

Mr B donc demande à Mr A de lui renvoyer les fichiers sous le bon format.
Et tout marche comme il faut.

Le soucis est que Mr B à énormément de fichiers xls ( version 2000 ) à convertir en xls 97.

Y a t'il un logiciel magique qui transforme des xls 9 en xls 7 ??
( la mise en forme importe peu , seule les données comptent ! )

Ben voilà


@+ THE_GRITCH

 

[@+Thierry]

Salut The_Gritch, The Forum

Heu non, je ne pense pas qu'un tel programme existe, ceci dit il suffit de l'écrire.

Disons qu'une macro de base pourrait déjà se présenter comme ceci pour convertir le fichier :

Exemple 1
Ce code sauverait une copie du le classeur actif (Toto.xls) avec une extension de nom (Toto Version XL 97.xls)

Sub SaveAsXL97()
Dim NomFile As String
NomFile = ActiveWorkbook.Name & " Version XL 97"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\mes documents\" & NomFile, FileFormat:=xlExcel9795
Application.DisplayAlerts = True
End Sub

Exemple 2
Si on ne veut pas de copie mais écraser le fichier format 2000 en 97, il suffit alors de faire un code comme ceci : (pour peu que le classeur d'origine se trouve bien dans le répertoire spécifié "C:\mes documents\")

Sub SaveXL97()
Dim NomFile As String
NomFile = ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\mes documents\" & NomFile, FileFormat:=xlExcel9795
Application.DisplayAlerts = True
ActiveWorkbook.Close False 'necessaire pour la macro "Mass_MAJ_XL97"
End Sub


Ensuite si tous les classeurs sont dans un répertoire précis on pourrait faire tourner ceci :
Sub Mass_MAJ_XL97()
Dim LeFichier As Variant

With Application.FileSearch
.NewSearch
.LookIn = "C:\mes documents\"
.Execute
On Error Resume Next
For Each LeFichier In .FoundFiles
Workbooks.Open LeFichier
SaveASXL97 'ou SaveXL97 selon le choix
Next F
End With

Voilà, mais attention, comme dans toute MAJ en masse de documents par Macro te faire un BackUp complet du répertoire à traiter avant tout essaie !!!


Bon Appétit et bon travail !
@+Thierry