Ouvrir fichier à partir d’une cellule

Résolu/Fermé
Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021 - 9 oct. 2020 à 21:04
Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021 - 10 oct. 2020 à 09:36
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
A voir également:

2 réponses

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
9 oct. 2020 à 22:54
bonjour, qu'as-tu essayé?
0
Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021
Modifié le 9 oct. 2020 à 23:06
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
0
Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021 > Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021
10 oct. 2020 à 00:02
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
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021
10 oct. 2020 à 06:15
s'agit-il vraiment d'un message d'erreur?
peut-être ceci: https://docs.microsoft.com/fr-ch/office/vba/api/excel.application.asktoupdatelinks
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
10 oct. 2020 à 06:11
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
0
Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021
10 oct. 2020 à 09:36
J’ai trouvé merci encore de votre réponse :)
0