Discussion :

[dilejeu]

Bonjour à tous,

J’ai un fichier qui à des liaisons avec un autre fichier, ce dernier change tous les mois, ce qui modifie donc mon premier fichier.
Ce que je souhaiterai faire, c'est faire une copier du fichier, une sorte d'image à un moment donné, pour les utilisateurs, avoir donc un fichier avec les valeurs actuelles mais pas de liaison.
Je trouve que la méthode de coupure de liaison avec le message "voulez vous activer la liaison", n'est pas très fiable, car les utilisateurs pourraient ne plus avoir les bonnes valeurs pour le bon mois

Merci d'avance

[ouskel'n'or]

Tu peux utiliser SaveCoyAs et Worksheets(1).EnableCalculation = False
La macro :

Code :

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

1
2
3
4
5
6
7
8
For each Feuille in Activeworkbook.worksheets
      Feuille.EnableCalculation = False
Next
ActiveWorkBook.savecopyas Chemin & NomFich
DoEvents
For each Feuille in Activeworkbook.worksheets
      Feuille.EnableCalculation = True
Next

A compléter...
A+

[dilejeu]

Juste pour une précision,
sous quel forme dois-je écrire le chemin?

Code :

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

 ActiveWorkbook.SaveCopyAs C:\Documents and Settings\M004436\Bureau\Diane\image.xls

ceci ne marche pas, cependant, étant une novice en VBA, je n'ai aucune idée

Merci toute fois pour le code qui me conviens tout à fait

[ouskel'n'or]

Le chemin ne doit pas inclure le nom du fichier ou alors tu y places tout mais tu ne mets pas le nom du fichier en plus

Code :

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

1
2
Chemin = "C:\Documents and Settings\M004436\Bureau\Diane\"
NomFich = "image.xls"

[dilejeu]

Encore un détail,
Mon fichier contient deux liaisons en réalité et j'ai l'impression que le code que tu ma fournis ne supprime qu'une seule liaison.

Pourrait-tu confirmer ou infirmer stp

[ouskel'n'or]

Encore un détail,
Mon fichier contient deux liaisons en réalité et j'ai l'impression que le code que tu ma fournis ne supprime qu'une seule liaison.

Pourrait-tu confirmer ou infirmer stp

Non, je ne peux ni confirmer ni infirmer... jamais fait Mais teste-le...
A+