Creation classeur par VBA

[wachoo31]

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

 

[CHALET53]

Re : Creation classeur par VBA

bonjour,

un début de réponse dans le fichier joint

 

[fanfan38]

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

 

[wachoo31]

Re : Creation classeur par VBA

Bonsoir fanfan38, chalet53, Re le forum

Un grand merci à vous deux, je vais pouvoir mettre en pratique les infos reçues par vos deux exemples
Bonne soirée et encore merci
Alain

 

[xpxpplus]

Re : Creation classeur par VBA

Salut, monsieur wachoo 31,

avec l'aide d'un exeldownloadien Fanfan38, qui est plus rapide que moi.....
maintenant, vous avez de quoi avancer sur votre recherche

bien a vous monsieur wachoo 31