Discussion :

[Caussenard12]

Bonjour,
Mon objectif est de copier deux feuilles contenant des formules entre elles d'un fichier Source vers un fichier de travail:


Pour cela je copie des feuilles du fichier source vers un fichier de travail avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Workbooks("Grille_RC.xlsx").Activate
    Sheets("STD").Select
    Sheets("STD").Copy After:=Workbooks("Template_2017.xlsm").Sheets(Nbr_Feuille + 4)

Dans ma feuille 'RC' j'ai des formules faisant appel à d'autre feuilles 'Calcul'
=SOMME.SI.ENS('Calcul'!H:H;'Calcul'!A:A;B6)/60

Jusque là tout va bien...
Mais une fois que je ferme mon fichier Source avec le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Windows("Grille_RC.xlsx").Activate
    ActiveWindow.Close

Une mise à jour se fait automatiquement sur mon fichier travail et les formules deviennent comme ci-dessous (liées vers le fichier source):

=SOMME.SI.ENS('M:\...\[Grille_RC.xlsx]Calcul'!H:H;'M:\...\[Grille_RC.xlsx]Calcul'!A:A;B6)/60

Comment puis-je éviter que mes formules se lies avec le fichier source?

Merci pour vos réponses

[Invité]

Comment puis-je éviter que mes formules se lient avec le fichier source?

Bonjour,

Et en exportant également l'onglet Calcul ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets(Array("STD","Calcul")).Copy After:=Workbooks("Template_2017.xlsm").Sheets(Nbr_Feuille + 4)

Cordialement.