Discussion :

[Denis_67]

Bonjour,

J'ai une macro qui envoie des messages avec un raccourcis vers des classeurs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
strbody = "<font size=""3"" face=""Calibri"">" & _
                  "<B>Merci de bien vouloir procéder à la création ****:<br><br>" & _
                  "Pour ouvrir le classeur de travail :<BR><BR>" & _
                  "Cliquer sur le lien suivant : " & _
                  "<A HREF=""file://" & NomClasseur & _
                  """>" & NomClasseur & "</A>.</font>" & "</BODY>"

Peut-on gérer dans les attributs du raccourcis des paramètres supplémentaires; un identifiant ou le nom d'une macro à lancer.?

Dans le classeur appelé, je vais mettre une procédure workbook_open(), mais j'aimerais conditionner le traitement en fonction de ce que je reçois lors de l'appel.

Pour etre tout à fait concret. dans la phase A je crée un enregistrement dans un classeur dans la phase B, je voudrais rappeler cet enregistrement pour le compléter.

Merci pour vos suggestions.
Denis

[parmi]

Bonjour,

Je ne suis pas certain de tout bien comprendre, mais bon...
Est-ce que ce serait pensable d'inscrire quelque chose dans une feuille, éventuellement masquée, quand la phase A est terminée.
Par la suite, tu pourrais vérifier cette note et passer à la phase B le cas échéant...

[Denis_67]

Merci pour ta réponse Parmi

Je vais faire un bricolo dans ce genre, mais la question reste partièlement ouverte

Quand le destinataire va recevoir le mail, il va cliquer sur le lien
Mais comment je vais savoir quel message a ouvert le classeur et donc décider de la données à pointer.

Dans un premier temps, je vais envoyer un code à l'utilisateur en même temps que le lien
et lors du clic pour ouvrir ce classeur dans la macro workbook_open je vais demander de saisir ce code pour pointer vers la donnée à compléter.

Cela m'oblige à ajouter un choix: nouvelle demande, modification.

En tout cas vu ton expérience, tu me confirme que tu ne vois pas de possibilité de coller un attribut dans le lien du raccourci.

Merci
Denis

[Jean-Philippe André]

Salut,

en passant l'information au classeur Excel ?
https://jpcheck.developpez.com/tutor...ge-parametres/

[Denis_67]

Merci Jean Philippe

Ta contribution est très intéressante, mais j'avoue avoir un peu de mal mes connaissances théoriques étant limités

J'ai créé un classeur avec avec dans ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (lpString As Any) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any) As Long
Private Sub Workbook_Open()
Dim monparam As Variant 'déclare une variable
Stop
    monparam = GetCmd 'affecte la valeur de la ligne de commande
    If Not IsNull(monparam) Then 'si la variable est nulle
        If Len(monparam) > 0 Then 'on s'assure qu'il y a eu une ligne de commande passée
            'code de traitement
             MsgBox momparam
        End If
    End If
End Sub
Private Function GetCmd() As String
   Dim lpCmd As Long
   lpCmd = GetCommandLine()
   GetCmd = Space$(lstrlen(ByVal lpCmd))
   lstrcpy ByVal GetCmd, ByVal lpCmd
End Function

Je m'envoie un mail avec le classeur en raccourci
Je clique sur le lien le classeur s'ouvre mais j'ai une erreur

par contre il me renvoie comme valeur

""C:\Program Files (x86)\Microsoft Office\Office15\EXCEL.EXE" /dde"

[Jean-Philippe André]

Le message affiché est la ligne de commande qui a lancé ton Excel, donc c'est bon.

Il te faut 2 choses arrivé ici :
- modifier la ligne de commande en y inscrivant l'information que tu veux

je vais demander de saisir ce code pour pointer vers la donnée à compléter

- modifier le code VBA pour extraire la valeur dont tu as besoin
https://jpcheck.developpez.com/tutor...ametres/#LXI-B