XL 2013 Exporter un classeur

[Franck DEVISSCHER]

Bonjour a tous, je cherche un code VBA pour copier l’intégralité (tous les onglets) de mon classeur avec un bouton pour les coller dans un nouveau classeur, et d'effacer seulement les donner des cellules H11:U35 de tous les onglets et d'enregistrer celui-ci tout en gardant le 1er. merci d'avance

 

[Staple1600]

Bonsoir le fil, le forum

@Franck DEVISSCHER [Bienvenue sur le forum]
Tu as essayé de faire cette manipulation en laissant tourner l'enregistreur de macros?

 

[Staple1600]

Re

Apparemment, non ?
Donc voici une macro

Sub test()
Dim strPath$, NFic$, Wbk As Workbook, rng As Range
Dim arrWSN() As String, i%
strPath = ThisWorkbook.Path & "\"
NFic = Split(ThisWorkbook.Name, ".")(0) & "_Copie.xlsm"
ThisWorkbook.SaveCopyAs NFic
Set Wbk = Workbooks.Open(Filename:=strPath & NFic)
'crée un tableau avec le nom de toutes les feuilles du classeur actif
ReDim arrWSN(1 To Wbk.Sheets.Count)
For i = 1 To Wbk.Worksheets.Count
arrWSN(i) = Wbk.Sheets(i).Name
Next i
Set rng = Wbk.Sheets(1).Range("H11:U35"): rng = Empty
Worksheets(arrWSN).FillAcrossSheets rng
End Sub

Je te laisse t'occuper du bouton et de la suite des tests
(Et du problème qui ne manquera pas de survenir si tu lances la macro une seconde fois )

 

[Franck DEVISSCHER]

Bonjour, Staple 1600 encore merci c'est exactement ce que je cherchais, le code marche super bien
Merci pour ton aide

cordialement