Export and Copy Formulas

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.

Citation:

---

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:

---

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

Bonjour,

C'est normal si tu travailles avec des références relatives, comme les plages source et cible ne coïncident pas. Essaie :

Code:

---

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, C As Range   Application.ScreenUpdating = False   'définir le classeur source Set classeurSource = ThisWorkbook   If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub   Set classeurDestination = ActiveWorkbook   With classeurDestination.Sheets("Sheet1") For Each C In classeurSource.Sheets("Sheet1").Range("E2:E13") .Cells(C.Row, 1).Formula = C.Formula Next C End With 'fermer le classeur source Application.DisplayAlerts = False classeurSource.Close False Application.ScreenUpdating = True Application.DisplayAlerts = True   End Sub

---

Merci Daniel, c'est bien ce que je recherchais


Cordialement