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

Signaler
Messages postés
10
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
12 octobre 2020
-
Messages postés
10
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
12 octobre 2020
-
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
12582
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
12 octobre 2020
700
bonjour, qu'as-tu essayé?
Messages postés
10
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
12 octobre 2020

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
10
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
12 octobre 2020
>
Messages postés
10
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
12 octobre 2020

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
12582
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
12 octobre 2020
700 >
Messages postés
10
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
12 octobre 2020

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
12582
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
12 octobre 2020
700
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
10
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
12 octobre 2020

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