OVH Cloud OVH Cloud

Creer nouveau xls à partir d'onglets.

2 réponses
Avatar
Vader
Bonjour,

Je cherche à faire tourner une macro qui serait capable dans un premier
temps de :
- créer un xls par onglet (le fichier de départ contient beaucoup d'onglets
> 90/100).
- nommer chaque xls ainsi créé avec le nom de l'onglet correspondant.


Dans un second est-il possible de faire la création de ces xls avec des
critères ? (Moins necessaire que le premier point)
Je m'explique : certains onglets doivent être extraient en groupe. Dans les
faits : les onglets nommés 101010, 201010, ... doivent être extraient dans le
meme xls.

merci Vad'

2 réponses

Avatar
Vader
(Suite)

A noter que j'arrive à faire l'opération partiellement :

Sub Copi_onglet

ActiveSheet.Select
ActiveSheet.Copy

ActiveSheet.Select
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsatopsentMy DocumentsCONSO10-06-2005 -
Capitaux Propres" & ActiveSheet.Name & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse


End Sub
Avatar
Elliac
Bonjour,

Sub Toto()
For Each f In ActiveWorkbook.Sheets
n = f.Name
f.Copy
ActiveWorkbook.SaveAs "c:temp" & n & ".xls"
ActiveWorkbook.Close
Next
End Sub

Camille

"Vader" wrote:

(Suite)

A noter que j'arrive à faire l'opération partiellement :

Sub Copi_onglet

ActiveSheet.Select
ActiveSheet.Copy

ActiveSheet.Select
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsatopsentMy DocumentsCONSO10-06-2005 -
Capitaux Propres" & ActiveSheet.Name & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse


End Sub