Bonjour,

J'aimerais avoir vos conseils sur une petite subtilité par rapport à ma macro. Je souhaite copier les formules d'un fichier pour les coller dans un fichier correspondant.

Exemple :
Je veux copier la formule B1 du fichier A dans C1 du fichier B
Fichier A, si B1=A1 --> fichier B, la cellule C1 = A1
Voici mon code, cela fonctionne mais je ne retrouve pas mes formules, j'ai #REF

Code vb : 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
Sub export()
 
Dim classeurSource As Workbook, classeurDestination As Workbook
 
Application.ScreenUpdating = False
 
'définir le classeur source
Set classeurSource = ThisWorkbook
 
If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
 
Set classeurDestination = ActiveWorkbook
 
'copier les données de la "Sheet1" du classeur source vers la "Sheet1" du classeur destination
classeurSource.Sheets("Sheet1").Range("E2:E13").Copy
 
classeurDestination.Sheets("Sheet1").Range("A2:A13").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=True
 
'fermer le classeur source
Application.DisplayAlerts = False
classeurSource.Close False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
 
End Sub

Je vous remercie