Ouvrir fichier à partir d’une cellule
Résolu
Akatsucki
Messages postés
94
Statut
Membre
-
Akatsucki Messages postés 94 Statut Membre -
Akatsucki Messages postés 94 Statut Membre -
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
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
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, qu'as-tu essayé?-
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- 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 - s'agit-il vraiment d'un message d'erreur?
peut-être ceci: https://docs.microsoft.com/fr-ch/office/vba/api/excel.application.asktoupdatelinks
-
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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
