bonjour tout le monde...

je voulais savoir comment faire pour récupérer mes formules de mon Classeur A (AD35 à AD73) lorsque j'extrais une feuille de ce classeur dans un nouveau Classeur B et de coller ces formules aux mêmes endroits en (AD35 à AD73).

Merci pour votre aide.

Tof.

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
23
24
25
26
27
28
Sub Rec()
 
Dim iDer As Long
Dim rep As String
Dim nom As String
Dim nomclientprenom As String
Dim cheminXls As String
Dim n As Variant
 
    nomclientprenom = Range("dupond")
    iDer = "1"
    nom = nomclientprenom & Format(Date, "ddmmyyyy") & ".xls"
 
    Sheets(1).Select
    cheminXls = Range("x:\sauvegarde\")
    Sheets(5).Copy
    ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
 
For Each n In ActiveWorkbook.Names: n.Delete: Next
    Application.DisplayAlerts = False
 
'ActiveWorkbook.SaveAs Filename:="X:\Sauvegarde\" & nom, FileFormat:=xlNormal
 
'   Ecrit le fichier sur le disque+repertoire+le nom du fichier
    ActiveWorkbook.SaveAs Filename:=cheminXls & nom, FileFormat:=xlNormal
    ActiveWorkbook.Close
 
End Sub