Ouvrir fichier à partir d’une cellule [Résolu]

Signaler
Messages postés
76
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
8 avril 2021
-
Messages postés
76
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
8 avril 2021
-
Bonjours,

Je ne trouve pas le code pour ouvrir et fermer un fichier selon ma cellule A1

Exemple :
Si A1= poste 1
Ouvrir le fichier poste 1
Si A2= poste 2
Ouvrir fichier 2

En sachant que mon classeur ne ce trouve pas dans le même répertoire que ces fichiers la... si vous pouvez m’aider merci

Cordialement

2 réponses

Messages postés
15074
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
11 avril 2021
827
bonjour, qu'as-tu essayé?
Messages postés
76
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
8 avril 2021

Sub actualiserpage ()

Application.screenupdating = false
Application.displayalerts = false

With thisworkbook

Wkbs.open ("Q:\ fichier1")
Wkbs.open ("Q:\ fichier2")
Wkbs.open ("Q:\ fichier3")

Windows("fichier1").activate
Activeworkbook.refreshall
Windows("fichier2").activate
Idem
Windows("fichier3").activate
Idem

End With

Application.screenupdating = true
Application.displayalerts = true

End sub

Au final j’ai fais une macro qui actualise tous les fichier de référence à mon classeur, au lieu de faire en fonction d’une cellule

Le problème c’est que ce sont des fichiers d’entreprise donc lorsque je les ouvres je dois les lire en lecture seule (car fichier déjà ouvert) et je reçois des messages d’erreur de Microsoft (ce classeur comporte des liaisons avec plusieurs source externe) qu’il faut mettre à jours.. et ça me pose des problèmes
Messages postés
76
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
8 avril 2021
>
Messages postés
76
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
8 avril 2021

J’ai réussi à les ouvrir en lecture seule mais pas à enlever le message d’erreur de Microsoft pour les liaisons de MAJ

With Thiswkbk

Wkbk.open filename:="Q\....xlsm", readonly:=1

.refreshall

Windows("nom du fichier").close

End with

Quel commande dois je ajouter pour valider le message erreur Microsoft, sachant que pour moi c’est :
Application.displayalerts = false

Qui dois normalement retirer cela
Messages postés
15074
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
11 avril 2021
827 >
Messages postés
76
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
8 avril 2021

s'agit-il vraiment d'un message d'erreur?
peut-être ceci: https://docs.microsoft.com/fr-ch/office/vba/api/excel.application.asktoupdatelinks
Messages postés
15074
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
11 avril 2021
827
merci d'utiliser les balises de code (en précisant basic pour du VBA): https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Messages postés
76
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
8 avril 2021

J’ai trouvé merci encore de votre réponse :)