Ouvrir fichier à partir d’une cellule

Résolu
Akatsucki Messages postés 90 Date d'inscription   Statut Membre Dernière intervention   -  
Akatsucki Messages postés 90 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, qu'as-tu essayé?
0
Akatsucki Messages postés 90 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   > Akatsucki Messages postés 90 Date d'inscription   Statut Membre Dernière intervention  
 
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Akatsucki Messages postés 90 Date d'inscription   Statut Membre Dernière intervention  
 
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
Réponse 2 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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   Statut Membre Dernière intervention  
 
J’ai trouvé merci encore de votre réponse :)
0