0/5 (1 avis)
Snippet vu 9 623 fois - Téléchargée 22 fois
'Cette procédure éclate le classeur actif en plusieurs fichiers, 1 par feuille Sub EclateClasseur() Dim Feuille As Worksheet Dim Classeur As Workbook Dim Chemin As String Chemin = InputBox("Quel répertoire pour la sauvegarde ?", "Donnez un chemin", ActiveWorkbook.Path) 'Par défaut le chemin est celui classeur actif If Chemin = "" Then Exit Sub 'Le chemin est vide, le bouton annuler a dû être cliqué Application.ScreenUpdating = False 'Arrêt de la mise à jour de l'écran For Each Feuille In ActiveWorkbook.Sheets Feuille.Copy 'Copie de la feuille ActiveWorkbook.SaveAs Filename:=Chemin & "\" & Feuille.Name + ".xls" 'Enregistrement de la feuille dans un classeur/Fihcier ActiveWorkbook.Close 'Le nouveau classeur/fichier est devenu le classeur actif donc fermeture du classeur actif Next Application.ScreenUpdating = True 'Redémarrage de la mise à jour de l'écran End Sub
21 avril 2012 à 16:35
Ton code serait mieux sur www.codyx.org.
Je ne connaissait pas cette technique, merci pour cette découverte.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.