Bonjour à tous,
Je débute j'ai tout un tas de questions, je me suis promené ici et là , mais soyez indulgeant...
je ne dois pas etre loin de la solution sur le point en titre mais c'est pas encore ça.
je veux copier juste un ou 2 onglet de mon fichier sur un nouveau classeur que je dois créer et dans un dossier que je crée aussi ...
Bon désolé je mets le code commme ça (je vois pas ou chercher la boite pour le mettre
J'ai préalablement crééer mon dossier (ça, ça fonctionne ;-)
bon maintenant le fichier:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub creer_fiche() Cells.Select Selection.Copy Workbooks.Add Cells.Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Dim dossier As String, fiche As String dossier = Cells(2, 2) fiche = Cells(2, 3) ActiveWorkbook.SaveAs Filename:= _ "\\toto\titi_DossierElec\" & dossier& "\" & fiche& ."xlsm", FileFormat _ :=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close End Sub
Partager