Bonjour,

nous avons un fichier excel avec un grand nombre d'onglet et nous souhaiterions scinder ce fichier en 3 fichiers excel, mais le probleme est que nous avons des macros qui vont maintenant devoir aller chercher des informations non plus dans un onglet du fichier mais dans un onglet d'un autre fichier.

que rajouter pour faire le liens?

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
29
30
31
32
33
34
35
Sub deboguagevente()
'
' deboguagevente Macro
' Macro enregistrée le 23/07/03 par ROTY
'
 
'
    Sheets("Fdc").Select 'Fdc sera contenu dans un nouveau fichier
    Range("U28:AA28").Select
    Selection.ClearContents
    Sheets("BM").Select
    Range("AB62").Select
    Selection.Copy
    Range("AG62").Select
    ActiveSheet.Paste
    Range("AB62").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("AG62").Select
    Selection.Copy
    Range("AB62").Select
    ActiveSheet.Paste
    Range("AG62").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("Af58").Select
    ActiveCell.FormulaR1C1 = "=R[-51]C[-12]"
    Range("AF58").Select
    Selection.ClearContents
    Sheets("Fdc").Select
    Range("U28:AA28").Select
    ActiveCell.FormulaR1C1 = "=BM!R[34]C[7]"
    Range("U29").Select
    Sheets("BM").Select
End Sub