V
Virginie
Guest
Bonjour les spécialistes,
Voilà quelques temps que je n'étais pas passé vous voir, et je constate que votre forum est toujours des plus actifs.
Je voudrai écrire une macro qui génére à partir d'un classeur X autant de nouveaux classeurs que de feuilles contenues dans ce classeur X. (chaque nouveau classeur contiendrait une feuille du classeur X) et laisser à l'utilisateur choisir l'emplacement où il désire stocker ces nouveaux classeurs.
j'ai essayé de composer avec ces bouts de code que j'ai trouvé sur ce forum, mais ils 'bug' à Sheets(sh).Select. Et je ne parviens pas à trouver comment laisser le choix du repertoire de destination à l'utilisateur, dans ce code le repertoire est en 'dur'.
Sub séparation()
' Macro enregistrée le 18/07/2005 par CB
'
Dim sh As Worksheet
Dim lenom As String
Dim lenom2 As String
For Each sh In Sheets
Sheets(sh).Select
Sheets(sh).Copy
lenom = sh.Name
lenom2 = lenom & '.xls'
ChDir 'C:'
ActiveWorkbook.SaveAs Filename:= _
'C:lenom2', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Next sh
End Sub
Merci pour votre patience, je vous embrasse par avance pour l'aide que vous pourrez m'apporter.
Virginie
Voilà quelques temps que je n'étais pas passé vous voir, et je constate que votre forum est toujours des plus actifs.
Je voudrai écrire une macro qui génére à partir d'un classeur X autant de nouveaux classeurs que de feuilles contenues dans ce classeur X. (chaque nouveau classeur contiendrait une feuille du classeur X) et laisser à l'utilisateur choisir l'emplacement où il désire stocker ces nouveaux classeurs.
j'ai essayé de composer avec ces bouts de code que j'ai trouvé sur ce forum, mais ils 'bug' à Sheets(sh).Select. Et je ne parviens pas à trouver comment laisser le choix du repertoire de destination à l'utilisateur, dans ce code le repertoire est en 'dur'.
Sub séparation()
' Macro enregistrée le 18/07/2005 par CB
'
Dim sh As Worksheet
Dim lenom As String
Dim lenom2 As String
For Each sh In Sheets
Sheets(sh).Select
Sheets(sh).Copy
lenom = sh.Name
lenom2 = lenom & '.xls'
ChDir 'C:'
ActiveWorkbook.SaveAs Filename:= _
'C:lenom2', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Next sh
End Sub
Merci pour votre patience, je vous embrasse par avance pour l'aide que vous pourrez m'apporter.
Virginie