Discussion :

[ptitbow]

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

[Daniel.C]

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 :

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, 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

[ptitbow]

Merci Daniel, c'est bien ce que je recherchais


Cordialement