Ouvrir un userform à partir d'un raccourcis sur le bureau

Bonjour,

Etant plus que débutant en vba, je me rapproche de vous afin que vous puissez éclairer mes lanternes...

je souhaiterai pouvoir ouvrir un userform d'après un raccourcis qui se trouverait sur mon bureau.

Est-ce possible? avez-vous un code à me proposer?

D'avance merci.

Salut,

Dans le fichier ci-Joint, tu peux ouvrir un UserForm primaire par la combinaison de touche Ctrl+m ; est-ce que ça va dans le sens désiré ?

Cordialement.

Bonjour Yvouille,

merci pour ta réponse, mais ce n'est pas vraiment ce que je cherche mais je n'ai probablement pas donné suffisamment d'info!

en fait, mon fichier est destiné à des collaborateur qui ne maitrise pas du tout l’outil informatique...

il est donc essentiel pour moi de simplifier au maximum l'utilisation de mon fichier.

je souhaiterai donc leur installer uniquement un raccourcis sur leur bureau qui puisse ouvrir l'userform.

mais je ne sais pas si cela est possible par un code VBA!

merci de ta réponse

Yannick

Ouh, là, désolé Je n'avais pas fait attention aux mots 'sur le bureau'.

Non, je n'ai alors pas de solution à te proposer. Navré !

Bonjour

A tester

Bonjour,

merci pour le code mais ce n'est pas tout à fait ça !

comment puis-je faire pour que lorsque que je clique sur le raccourcis qui vient d'être installé celui-ci ouvre directement un userform, sans ouvrir le fichier Excel ?

merci d'avance!

Bonjour

Un Userform est associé à un fichier, donc t'es obligé d'ouvrir le fichier

Dans le module ThisWorkbook , procédure WorkBook_Open tu ouvres ton userform et tu masques ou minimises le fichier

bonjour Banzai64,yan1312 et le forum

voici un code a adapter mais a mettre dans un module appelé par un bouton qui créer un raccourci sur le bureau

Sub CreerRaccourci()

    Dim Raccourci As Object
    With ActiveWorkbook
        'Vérifie l'existence d'un chemin pour le classeur
        If .Name <> .FullName Then
            'Défini le raccourci
            With CreateObject("WScript.Shell")
                Set Raccourci = .CreateShortcut(.SpecialFolders("Desktop") _
                                              & "\" & ActiveWorkbook.Name & ".lnk")
            End With
            With Raccourci
                'Affecte l'icône (chemin à adapter)
                .iconlocation = "c:\mes images\logo.ico"
                'Crée le raccourci sur le bureau Windows
                .TargetPath = ActiveWorkbook.FullName    ' le chemin est identifié
                .Save
            End With
        Else
            MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
        End If
    End With
End Sub

Pascal