bonjour a tous,
je tenais =E0 remercier tout d'abord ceux qui prennent la=20
penne de r=E9pondre au messages..
Une question : j'ai un classeur avec 10 feuilles excel=20
plein de formules. Je souhaite exporter 3 de ces feuilles=20
vers un nouveau classeur en copiant juste la forme et les=20
valeur par du code VBA....
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
Frédéric Sigonneau
Bonsoir,
Essaye cette macro :
Sub test() Dim sht As Worksheet 'noms à adapter Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy For Each sht In ActiveWorkbook.Sheets sht.UsedRange.Value2 = sht.UsedRange.Value2 Next End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
bonjour a tous, je tenais à remercier tout d'abord ceux qui prennent la penne de répondre au messages..
Une question : j'ai un classeur avec 10 feuilles excel plein de formules. Je souhaite exporter 3 de ces feuilles vers un nouveau classeur en copiant juste la forme et les valeur par du code VBA....
comment je procede?
merci d'avance...
Serge
Bonsoir,
Essaye cette macro :
Sub test()
Dim sht As Worksheet
'noms à adapter
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy
For Each sht In ActiveWorkbook.Sheets
sht.UsedRange.Value2 = sht.UsedRange.Value2
Next
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
bonjour a tous,
je tenais à remercier tout d'abord ceux qui prennent la
penne de répondre au messages..
Une question : j'ai un classeur avec 10 feuilles excel
plein de formules. Je souhaite exporter 3 de ces feuilles
vers un nouveau classeur en copiant juste la forme et les
valeur par du code VBA....
Sub test() Dim sht As Worksheet 'noms à adapter Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy For Each sht In ActiveWorkbook.Sheets sht.UsedRange.Value2 = sht.UsedRange.Value2 Next End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
bonjour a tous, je tenais à remercier tout d'abord ceux qui prennent la penne de répondre au messages..
Une question : j'ai un classeur avec 10 feuilles excel plein de formules. Je souhaite exporter 3 de ces feuilles vers un nouveau classeur en copiant juste la forme et les valeur par du code VBA....
