XL97: Conversion automatique des fichiers

Exclusion de responsabilité du contenu obsolète de la base de connaissances

Cet article a été rédigé sur les produits pour lesquels Microsoft n’offre plus aucune prise en charge. Par conséquent, cet article est proposé « en l’état » et ne sera plus mis à jour.

Résumé

INFORMATION TECHNIQUE :

La macro complémentaire "Assistant conversion de fichiers" converti tous
les
fichiers d'un seul et même dossier. Cet article décrit comment employer
une
macro Visual Basic pour applications afin de convertir les fichiers d'un
dossier
et de tous ses sous dossiers.

Microsoft fournit des exemples de procédures Visual Basic pour gérer
toutes
sortes d'événements ou de données. Dans cet article les macros sont
présentées
sans que Microsoft garantisse qu'elles peuvent être employés dans toutes
les
situations.

Pour plus d'information à propos des fournisseurs de solutions Microsoft ,
appelez le service client Microsoft au Numero indique a la page http://support.microsoft.com/contactus/ .

Dans Microsoft Excel 97, L'objet application possède maintenant une
propriété
FileSearch et FoundFiles qui retourne un objet contenant la liste des
dossiers
trouvés dans la recherche. Ces propriétés peuvent être employées afin
d'ouvrir
d'autres types de fichiers et de les sauver sous un format Excel 97.

NOTE: Si vous ne voulez pas voir les classeurs s'ouvrir ou se fermer,
ajoutez la ligne suivante au début de votre macro:

Application.ScreenUpdating = False

Si vous convertissez un grand nombre de dossiers, cette ligne peut
provoquer une
erreur
dans votre macro.


EXEMPLE :

La macro Visual Basic pour application suivante, convertit les fichiers
dans un
dossier et tous ses sous dossiers:

#########################################################################
' Code Visual Basic anglais

Sub Converter()
'La désactivation des messages d'alertes permet d'écrire à nouveau
'sur des fichiers sans demande de confirmation
Application.DisplayAlerts = False
'Initialisation des conditions de conversion:
SearchDir = InputBox("Nom du répertoire de conversion: ")
FileExt = InputBox("Taper l'extension des fichiers *.xxx: ")
SaveDir = InputBox("Nom du répertoire de sauvegarde: ")
SearchSubs = MsgBox(prompt:="incl. Sous-répertoires ?",
Buttons:=vbYesNo)
'Initialisation de la recherche
With Application.FileSearch
.NewSearch
.LookIn = SearchDir
'Détermine s'il faut chercher dans les sous répertoires
If SearchSubs = 6 Then
.SearchSubFolders = Vrai
Else
.SearchSubFolders = False
End If
'Détermine le type de fichier à convertir
.FileName = FileExt
.MatchTextExactly = True
'Si la recherche trouve d'autres fichiers, ouverture et
'sauvegarde au format Microsoft Excel 97
If .Execute > 0 Then
counter = 0
For i = 1 To .FoundFiles.Count
counter = counter + 1
Workbooks.OpenFileName = .FoundFiles(i)
'Construit le nouveau nom en effaçant l'extension précédente.
ActiveWorkbook.SaveAs FileName:=SaveDir & "\" _
& Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) _
- 4),FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close savechanges:=False
Next i
'Retourne combien de fichiers ont été convertis
MsgBox counter & "Fichiers ont été convertis"
ElseIf .Execute = 0 Then
MsgBox "Aucun fichier n'a été trouvé, aucun fichier converti"
End If
End With
End Sub

#########################################################################


Références


Pour plus d'information Sur FileSearch, cliquer sur l'assistant Office,
tapez
"FileSearch," cliquez sur rechercher, et cliquez à nouveau pour voir
"Objet
FileSearch."

NOTE: Si L'assistant est caché, cliquez sur le bouton de L'assistant
Office sur
la barre d'outils standard. Si l'Aide Microsoft n'est pas installée sur
votre
ordinateur, voir l'article suivant dans la Base De Connaissance Microsoft
:

ARTICLE-ID: 120802
TITRE : Office: How to Add/Remove a Single Office Program or Component


La liste de(s) mot(s) suivant(s) permet une recherche plus efficace de
cette
fiche technique : conversion

Propriétés

ID d'article : 467553 - Dernière mise à jour : 9 avr. 2013 - Révision : 1

Commentaires