Microsoft 365 Exécuter macro après lancement hypertexte

[Superemi]

Bonjour à tous, le forum,

Dans mon 1er fichier, je lance 1 macro ouvrant 1 lien hypertexte vers mon 2ème fichier.
1 autre macro placée dans le 1er fichier s'exécute, mais elle s'exécute avant que le 2ème fichier soit ouvert donc j'ai 1 erreur.

Comment faire pour que la 2ème macro s'exécute après l'ouverture du 2ème fichier ?

Voici mon code :

Sub ADD_CHANGE_CONTACT()
With Sheets("Listes")
.Visible = True
.Activate
derlig = [A1].End(xlDown).Row
dercol = [A1].End(xlToRight).Column
.Range(Cells(derlig, 1), Cells(derlig, dercol)).Copy
End With
'Ouverture 2ème fichier s'appelant SEED ORDER
Range("Tableau32[LIEN TRAME SEED ORDER]").Hyperlinks(1).Follow 'NewWindow:=False, AddHistory:=True

Call macro1

End Sub

'2ème macro devant s'exécuter après l'ouverture du 2ème fichier
Sub macro1()
With Windows("SEED ORDER.xlsm")
.Activate
With Sheets("Listes")
.Visible = True
.Activate
derlig = [A1].End(xlDown).Row + 1
.Cells(derlig, 1).PasteSpecial xlPasteValues
End With
Sheets("Listes").Visible = False
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWindow.Close
Application.DisplayAlerts = True
End With

End Sub

 

[job75]

Bonjour Superemi,

Essayez en remplaçant :

Call macro1

par :

Application.OnTime 1, "macro1"

A+

 

[Superemi]

Bonjour job75,

Hélas ça ne marche pas.

J'ai effectivement essayé avec un timer en utilisant ce code qui fonctionne :

Application.OnTime Now + TimeValue("00:00:05"), "macro1"

Mais est-il possible de passer sans timer ?

 

[job75]

Bonjour Superemi,

Vous ne nous avez pas montré la macro qui ouvre le lien hypertexte.

Et pourquoi ne pas joindre les fichiers (sans données confidentielles) ?

Mais a priori Application.OnTime est indispensable.

A+

 

[Superemi]

Voici les fichiers en PJ.
J'ouvre TEST, je lance la macro ADD_CHANGE_CONTACT.

Le lien hypertexte est dans 1 cellule (dernière ligne du code ADD_CHANGE_CONTACT).

 

[job75]

Je suis bien conscient que tout ce que vous voulez c'est travailler sur SharePoint.

Mais moi je ne l'utilise jamais, alors je modifie le lien hypertexte.

Téléchargez les fichiers joints dans le même dossier (le bureau) et voyez les macros, très peu modifiées.

 

[Superemi]

Effectivement le code fonctionne bien sans passer par Sharepoint.
Du coup vous m'avez donné 1 idée : même si le fichier est sur Sharepoint, il existe 1 lien tel que C: ...
Et avec ce lien, ça marche 🙂

Merci beaucoup pour votre aide !

 

[job75]

Si le fichier SEED ORDER.xlsm est sur le disque dur ouvrez-le sans utiliser de lien hypertexte.