J'ai un classeur avec plusieurs onglets, je dois envoyer chaque onglet à
un destinataire différent. Je souhaite pouvoir sauvegarder chaque onglet
sous un classeur distinct qui porterai le nom de l'onglet.
J'ai trouvé un code sur excelabo mais comme je ne suis pas très au point
je n'arrive pas à l'adapter pour donner automatiquement à mes classeurs
le nom des onglets.
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
DanielCo
Bonjour,
Sub test2() 'réf. 111007.xlsm Dim Sh As Worksheet For Each Sh In Worksheets Sh.Copy ActiveWorkbook.SaveAs Sh.Name Next Sh End Sub
juste un problème au cas où tes feuilles ccomporteraient des macros et que ta version d'Excel serait XL2007 ou postérieure, il faudrait préciser le format d'enregistrement. Cordialement. Daniel
Bonjour,
J'ai un classeur avec plusieurs onglets, je dois envoyer chaque onglet à un destinataire différent. Je souhaite pouvoir sauvegarder chaque onglet sous un classeur distinct qui porterai le nom de l'onglet.
J'ai trouvé un code sur excelabo mais comme je ne suis pas très au point je n'arrive pas à l'adapter pour donner automatiquement à mes classeurs le nom des onglets.
Merci de votre aide.
Bonjour,
Sub test2()
'réf. 111007.xlsm
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Copy
ActiveWorkbook.SaveAs Sh.Name
Next Sh
End Sub
juste un problème au cas où tes feuilles ccomporteraient des macros et
que ta version d'Excel serait XL2007 ou postérieure, il faudrait
préciser le format d'enregistrement.
Cordialement.
Daniel
Bonjour,
J'ai un classeur avec plusieurs onglets, je dois envoyer chaque onglet à un
destinataire différent. Je souhaite pouvoir sauvegarder chaque onglet sous un
classeur distinct qui porterai le nom de l'onglet.
J'ai trouvé un code sur excelabo mais comme je ne suis pas très au point je
n'arrive pas à l'adapter pour donner automatiquement à mes classeurs le nom
des onglets.
Sub test2() 'réf. 111007.xlsm Dim Sh As Worksheet For Each Sh In Worksheets Sh.Copy ActiveWorkbook.SaveAs Sh.Name Next Sh End Sub
juste un problème au cas où tes feuilles ccomporteraient des macros et que ta version d'Excel serait XL2007 ou postérieure, il faudrait préciser le format d'enregistrement. Cordialement. Daniel
Bonjour,
J'ai un classeur avec plusieurs onglets, je dois envoyer chaque onglet à un destinataire différent. Je souhaite pouvoir sauvegarder chaque onglet sous un classeur distinct qui porterai le nom de l'onglet.
J'ai trouvé un code sur excelabo mais comme je ne suis pas très au point je n'arrive pas à l'adapter pour donner automatiquement à mes classeurs le nom des onglets.
Merci de votre aide.
isabelle
et aussi fermer ce nouveau classeur pour que le classeur actif soit à nouveau le classeur de départ,
Sub test2() 'réf. 111007.xlsm Dim Sh As Worksheet For Each Sh In Worksheets Sh.Copy ActiveWorkbook.SaveAs Sh.Name ActiveWorkbook.Close Next Sh End Sub
-- isabelle
et aussi fermer ce nouveau classeur pour que le classeur actif soit à nouveau le classeur de départ,
Sub test2()
'réf. 111007.xlsm
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Copy
ActiveWorkbook.SaveAs Sh.Name
ActiveWorkbook.Close
Next Sh
End Sub