Problème de selection de classeur

[benjamintunisia]

Bonjour tout le monde

Voila ma situation,
J'ai un fichier excel apellé Test.xls qui contient une feuille nommé "daily_report"
J'ai un bouton "daily" avec lequel je voudrais faire une copy past spécial values(pour enlever les formule et avoir que des valeurs) de cette feuille dans un nouveau fichier excel apellé daily_production.xls
est ce que qqun aurais la solution...
Ci joint un bout du fichier pour exemple...
Merci bcp

 

[Cousinhub]

Re : Problème de selection de classeur

Bonjour

essaie avec ce code :

Sub transfert()
LeDir = ActiveWorkbook.Path & "\"
Sheets("Daily_Report").Copy
With Cells.SpecialCells(xlCellTypeFormulas, 23)
        .Value = .Value
End With
For Each sh In ActiveSheet.Shapes
    sh.Delete
Next sh
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs LeDir & "daily_production.xls"
ActiveWorkbook.Close False
End Sub

 

[benjamintunisia]

Re : Problème de selection de classeur

Cela ne fonctionne tjrs pas, peut tu essayer de l'inserer dans mon fichier s'il e plait ??

Merci bcp