Lien instantané (ou par macro) entre 2 fichiers Fermé

Question

Bonjour, 

Lorsque je rentre le nom d'une personne dans une cellule de "Fichier1", il recherche si cette personne existe dans la base de donnée "BDD".
- Si oui, Excel me remplit automatiquement des cellules dans Fichier1 (correspondant à des caractéristiques de la personne écrites dans la BDD).
- Si non, il m'affiche ces cellules en rouge et je clique alors sur un bouton qui m'ouvre la base de données (via une macro), pour ensuite rentrer cette nouvelle personne et ses caractéristiques.

Mon problème: la liaison entre les fichiers excel n'est pas instantanée, cad quand j'enregistre la BDD avec une nouvelle personne inscrite (et que je la ferme), il ne m'affiche pas dans File1 les caractéristiques de cette nouvelle personne.
=> je suis obligé de faire "connexions", "mise à jour des valeurs"

Existe-il un moyen de faire ce lien instantané ? par une macro (associé à un bouton "mise à jour" dans File1) ?

Merci beaucoup de votre aide !
Bonne soirée.

Le Pingou · Answer

Bonjour,
Essayer avec le code qui suit à mettre dans un module de votre classeur [Fichier 1] ;
Ne pas oublier de mettre le chemin correct... !
La procédure :
Sub maj_liaison()ActiveWorkbook.UpdateLink Name:="C:\mettre le chemin de votre base de donnée \BDD.xls", Type:=xlExcelLinksEnd Sub

Le Pingou · Answer

Bonjour,
Avez-vous indiqué le répertoire et le chemin correctement ... ?
Eventuellement mettre le classeur sur  https://www.cjoint.com/  et poster le lien.

Le Pingou · Answer

Bonjour,
Faut-il déclare "Name" ... je ne comprends pas !
Par contre en fin de chemin vous devez avoir le nom du classeur et son extension.
Sans bonjour, rien de plus.

Le Pingou · Answer

Bonjour,
Merci de l'information.
Pas besoin de déclaration car il s'agit de nom réservé par le système (idem pour Type).
Pas de classeur, alors je vous suggère d'utiliser l'enregistreur de macro et de réaliser les manipulations selon : => je suis obligé de faire "connexions", "mise à jour des valeurs"
Et ensuite vous pouvez me montrer le code enregistré... !

Le Pingou · Answer

Bonjour,
Est-ce possible de ne pas la faire apparaître ? Je pense que Oui, pour cela il faut voir la macro complète que vous utilisez.... !
En tout cas ce n'est la macro en fin de message qui ouvre une fenêtre.... !
Note : pour information les tirets dans le code c'est utilisé pour le retour à la ligne lorsque la ligne de code est trop longue. (Cela fait office de liaison pour la ligne de code sur plusieurs lignes)
 
 
Salutations.
Le Pingou

Le Pingou · Answer

Bonjour,
Je pense qu'en utilisant l'événement [Workbook_Activate] cela devrait marcher.
Mettre la procédure qui suit dans [ThisWorkbook] :
Private Sub Workbook_Activate()ActiveWorkbook.UpdateLink Name:="D:\....xlsm", Type:=xlExcelLinksEnd SubPas oublier d'adapter le libellé de [Name :=]

Lien instantané (ou par macro) entre 2 fichiers

6 réponses

Discussions similaires

Newsletters