Discussion :

[timtof2011]

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

[Jean-Philippe André]

salut,

as-tu essayé de faire tourner l'enregistreur de macro lors de ta manipulation ?

Si le code généré te parait complexe, n'hésite pas à le poster ici pour que nous t'aidions à le comprendre et l'adapter le cas échéant

[timtof2011]

merci bcp à toi jpcheck ...j'y avais pas pensé...

et j'ai trouvé.

Bonne journée.

Tof