X feuilles dans classeur = enregistrer 1 feuille par classeur ?
2 réponses
justasimpleword
Bonjour,
Nous disposons d'un classeur avec plusieurs feuilles.
Nous souhaitons enregistrer chaque feuille de ce classeur dans des classeurs
différents : 1 feuille = 1 classeur.
Y a-t-il un moyen direct de faire cette action (et non pas de copier ou
déplacer chaque feuille dans un nouveau classeur) ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-François Aubert
Salut,
Une petite macro ?
Sub enregistre_feuilleParFeuille() Dim Ish, Wk, fich For Ish = 1 To Sheets.Count fich = "CopieFeuille-" & Ish & ".xls" Sheets(Ish).Copy Set Wk = ActiveWorkbook Wk.SaveAs Filename:= _ "C:" & fich, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Wk.Close Next Set Wk = Nothing End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"justasimpleword" a écrit dans le message de news:
Bonjour,
Nous disposons d'un classeur avec plusieurs feuilles. Nous souhaitons enregistrer chaque feuille de ce classeur dans des classeurs différents : 1 feuille = 1 classeur. Y a-t-il un moyen direct de faire cette action (et non pas de copier ou déplacer chaque feuille dans un nouveau classeur) ?
Merci par avance.
Salut,
Une petite macro ?
Sub enregistre_feuilleParFeuille()
Dim Ish, Wk, fich
For Ish = 1 To Sheets.Count
fich = "CopieFeuille-" & Ish & ".xls"
Sheets(Ish).Copy
Set Wk = ActiveWorkbook
Wk.SaveAs Filename:= _
"C:" & fich, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Wk.Close
Next
Set Wk = Nothing
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"justasimpleword" <justasimpleword@discussions.microsoft.com> a écrit dans
le message de news: AC00F240-5567-4133-A75D-919FF32E7B39@microsoft.com...
Bonjour,
Nous disposons d'un classeur avec plusieurs feuilles.
Nous souhaitons enregistrer chaque feuille de ce classeur dans des
classeurs
différents : 1 feuille = 1 classeur.
Y a-t-il un moyen direct de faire cette action (et non pas de copier ou
déplacer chaque feuille dans un nouveau classeur) ?
Sub enregistre_feuilleParFeuille() Dim Ish, Wk, fich For Ish = 1 To Sheets.Count fich = "CopieFeuille-" & Ish & ".xls" Sheets(Ish).Copy Set Wk = ActiveWorkbook Wk.SaveAs Filename:= _ "C:" & fich, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Wk.Close Next Set Wk = Nothing End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"justasimpleword" a écrit dans le message de news:
Bonjour,
Nous disposons d'un classeur avec plusieurs feuilles. Nous souhaitons enregistrer chaque feuille de ce classeur dans des classeurs différents : 1 feuille = 1 classeur. Y a-t-il un moyen direct de faire cette action (et non pas de copier ou déplacer chaque feuille dans un nouveau classeur) ?
Merci par avance.
justasimpleword
Bonjour,
Merci beaucoup Jean-François, cela fonctionne...
Comme vous avez l'air doué, je me permets d'autres questions :
1- Est-il possible que le nom de chaque classeur corresponde à l'onglet des feuilles du classeur de départ ?
2- Pour diriger ces classeurs dans un dossier, par ex. : "D:"nom du dossier" , comment doit-on écrire ce chemin d'accès ?
Je vous en remercie par avance et vous souhaite une bonne journée.
Salut,
Une petite macro ?
Sub enregistre_feuilleParFeuille() Dim Ish, Wk, fich For Ish = 1 To Sheets.Count fich = "CopieFeuille-" & Ish & ".xls" Sheets(Ish).Copy Set Wk = ActiveWorkbook Wk.SaveAs Filename:= _ "C:" & fich, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Wk.Close Next Set Wk = Nothing End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"justasimpleword" a écrit dans le message de news:
Bonjour,
Nous disposons d'un classeur avec plusieurs feuilles. Nous souhaitons enregistrer chaque feuille de ce classeur dans des classeurs différents : 1 feuille = 1 classeur. Y a-t-il un moyen direct de faire cette action (et non pas de copier ou déplacer chaque feuille dans un nouveau classeur) ?
Merci par avance.
Bonjour,
Merci beaucoup Jean-François, cela fonctionne...
Comme vous avez l'air doué, je me permets d'autres questions :
1- Est-il possible que le nom de chaque classeur corresponde à l'onglet des
feuilles du classeur de départ ?
2- Pour diriger ces classeurs dans un dossier, par ex. : "D:"nom du
dossier" , comment doit-on écrire ce chemin d'accès ?
Je vous en remercie par avance et vous souhaite une bonne journée.
Salut,
Une petite macro ?
Sub enregistre_feuilleParFeuille()
Dim Ish, Wk, fich
For Ish = 1 To Sheets.Count
fich = "CopieFeuille-" & Ish & ".xls"
Sheets(Ish).Copy
Set Wk = ActiveWorkbook
Wk.SaveAs Filename:= _
"C:" & fich, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Wk.Close
Next
Set Wk = Nothing
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"justasimpleword" <justasimpleword@discussions.microsoft.com> a écrit dans
le message de news: AC00F240-5567-4133-A75D-919FF32E7B39@microsoft.com...
Bonjour,
Nous disposons d'un classeur avec plusieurs feuilles.
Nous souhaitons enregistrer chaque feuille de ce classeur dans des
classeurs
différents : 1 feuille = 1 classeur.
Y a-t-il un moyen direct de faire cette action (et non pas de copier ou
déplacer chaque feuille dans un nouveau classeur) ?
Comme vous avez l'air doué, je me permets d'autres questions :
1- Est-il possible que le nom de chaque classeur corresponde à l'onglet des feuilles du classeur de départ ?
2- Pour diriger ces classeurs dans un dossier, par ex. : "D:"nom du dossier" , comment doit-on écrire ce chemin d'accès ?
Je vous en remercie par avance et vous souhaite une bonne journée.
Salut,
Une petite macro ?
Sub enregistre_feuilleParFeuille() Dim Ish, Wk, fich For Ish = 1 To Sheets.Count fich = "CopieFeuille-" & Ish & ".xls" Sheets(Ish).Copy Set Wk = ActiveWorkbook Wk.SaveAs Filename:= _ "C:" & fich, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Wk.Close Next Set Wk = Nothing End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"justasimpleword" a écrit dans le message de news:
Bonjour,
Nous disposons d'un classeur avec plusieurs feuilles. Nous souhaitons enregistrer chaque feuille de ce classeur dans des classeurs différents : 1 feuille = 1 classeur. Y a-t-il un moyen direct de faire cette action (et non pas de copier ou déplacer chaque feuille dans un nouveau classeur) ?