Discussion :

[alex830001]

Bonjour,

Dans une macro j'ouvre un fichier avec la fonction: Application.GetOpenFilename

Code :

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

1
2
3
4
5
Dim fichier As Variant, Wbk As Workbook
fichier = Application.GetOpenFilename
Application.ScreenUpdating = False
If fichier = False Then Exit Sub
Set Wbk = Workbooks.Open(Filename:=fichier)

Le fichier ouvert peut contenir des liaisons vers d'autre classeurs ou non.

J'aimerais que à l'ouverture si le fichier contient des liaisons, le message :"Le classeur que vous avez ouvert comporte des liaisons avec un autre classeurs" n'apparaisse pas (que se soit non automatiquement).

[casefayere]

bonjour,

Tu dois le trouver ds la FAQ, je l'ai vu, il n'y a pas 1 heure

[psykodumarteau]

Bonjour,

Il me semble que sur chaque fichier ou tu as de liaison tu peux choisir de mettre à jour ou non les liens sans avertissement. regarde dans le menu Édition/liaisons il y a un bouton "invite de démarrage".

Cordialement

[alex830001]

Bonjour j'ai effectivement trouvé dans les faq l'explication pour désactiver la demande de mise à jour des lien directement dans le fichier.

Mon probleme est que ma macro appelle a chaque fois un fichier different.

En effet, je suis sur un réseau donc désactiver l'option manuellement reglera le probleme pour un fichier ou que pour mon poste non?

il faut donc une ligne de code qui désactive l'affichage de ce message depuis ma macro.

Et sur cela mes recherches sont pour le moment infructueuse.

[tirex28]

Bonjour,

Je n'ai pas testé mais l'une de ces commandes devrait suffir.

Code :

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

1
2
3
Application.AskToUpdateLinks = False
 
Workbooks.Open Filename:="C:\....\Fichier.xls", UpdateLinks:=0

Cordialement,

Tirex28/

[alex830001]

Bonjour Tirex,

Merci pour votre aide, cela fonctionne, c'est exactement ce que je cherchais.

Je met mon code avec vos commandes à l'interieur cela pourras peut etre servir à quelqu'un d'autre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim fichier As Variant, Wbk As Workbook
ChDrive "H"
ChDir ("H:\PRIX\Prix TF\PRIX FILIALES")
fichier = Application.GetOpenFilename
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False
If fichier = False Then Exit Sub
Set Wbk = Workbooks.Open(Filename:=fichier, UpdateLinks:=0)
Wbk.Sheets("transfert TE Prix filiales").Cells.Copy ThisWorkbook.Sheets("Feuil1").Range("A1")
Wbk.Close
Application.ScreenUpdating = True