Bonjour,

Je n'arrive pas à copier une feuille d'un classeur ouvert vers un nouveau classeur
J'ai essayé beaucoup de chose (même le code d'aide de Microsoft ne marche pas)

Il me crée le classeur (classeur1), l'affiche mais ne l'enregistre pas ?
J'ai aussi vu passer pendant mes tests qu'il ne peut pas enregistrer en xlsm... Prob de format ?
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
19
20
21
22
Sub transfert()
Set wksSource = Worksheets("Facture pistolet")
Set wksfacture = Worksheets("Fact")
wksfacture.Cells(13, 1).Value = wksSource.Cells(2, 2).Value
 
Dim Fichier As String
Dim Chemin As String
 
''Chemin du dossier
Chemin = Workbooks(ActiveWorkbook.Name).Path
 
Fichier = "F:\Test-Facture\FactureTest.xlsx"
 
With wksfacture
    .Select
    .Copy
    .SaveAs Fichier
    .Close
    .ThisWorkbook.Activate
End With
 
End Sub
Merci de vos retours
FikoU