Discussion :

[fikou]

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

[Philippe Tulliez]

Bonjour,

Il me crée le classeur (classeur1), l'affiche mais ne l'enregistre pas ?

donc la copie fonctionne

Sans l'avoir testé et en supposant que le chemin est correct

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
wksfacture.Copy ' Copie de la feuille dans un nouveau classeur
ActiveWorkbook.SaveAs Fichier ' Sauver le nouveau classeur

[Franc]

Bonsoir, 3 petites remarques:
- tu affectes une valeur à ta variable Chemin mais tu ne l'utilises pas dans ton code
- .Close est une méthode du Workbook pas du Worksheet
- si tu veux sauvegarder au format .xlsm tu peux utiliser .SaveAs Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled

[fikou]

Bonjour et merci pour vos réponses

Ce code fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Chemin = Workbooks(ActiveWorkbook.Name).Path
Fichier = "FactureTest.xlsx"
wksfacture.Copy
ActiveWorkbook.SaveAs Chemin & Fichier

Et celui ci ne fonctionne pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Fichier = "F:\Test-Facture\FactureTest.xlsx"
wksfacture.Copy
ActiveWorkbook.SaveAs Fichier

Pendant que j'y suis comment faire pour que le nouveau fichier ne s'ouvre pas après sa création ?
Bonne journée
Fikou