Creation classeur par VBA

Re : Creation classeur par VBA

bonjour,

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

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

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

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