Creation classeur par VBA

wachoo31

XLDnaute Occasionnel
Bonjour à toute et tous,

J'ai dans un fichier plusieurs feuilles avec différente données et formules.
Je voudrais en cliquant sur un bouton dans une feuille pouvoir créer un fichier ou il y aurais une boite de dialogue pour introduire le nom a donner a ce fichier, et en même temps copier dans ce fichier les feuilles 3, 4 et 8 avec leur données, leur mise en forme, leur largeur ect... Mais surtout sans leur formules.

Je cherche mais ne trouve pas la solution
 

fanfan38

XLDnaute Barbatruc
Re : Creation classeur par VBA

Bonjour
Voilà une macro qui repond à ta question (enfin je pense)
Sub mamacro()
Dim rep As String
Dim nomfich As String
rep = InputBox("Nom du fichier", "Nouveau fichier")
If Len(rep) = 0 Then Exit Sub
rep = rep & ".xls"
nomfich = ActiveWorkbook.Name
Sheets(Array("Feuil3", "Feuil4", "Feuil8")).Select
Sheets("Feuil8").Activate
Sheets(Array("Feuil3", "Feuil4", "Feuil8")).Copy
Range("C8").Select
ActiveWorkbook.SaveAs Filename:=rep
For i = 3 To 5
If i = 5 Then i = 8
Windows(nomfich).Activate
Sheets("feuil" & i).Select
Cells.Select
Selection.Copy
Windows(rep).Activate
Sheets("Feuil" & i).Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Range("A2").Select
Next
ActiveWorkbook.Save
'ActiveWorkbook.close 'pour fermer le fichier (pour utiliser cette ligne enlever l'apostrophe en début de ligne)
End Sub
Je commence par copier les feuilles dans un nouveau fichier
ensuite je supprime les fonctions...

A+ François
 

Discussions similaires

Réponses
5
Affichages
242

Statistiques des forums

Discussions
312 928
Messages
2 093 701
Membres
105 789
dernier inscrit
dulcioso