Ouvrir fichier Excel bureau

Bonjour à tous,

Je cherche un vba pour ouvrir un fichier excel qui se trouve sur mon bureau depuis un fichier excel de base avec ce chemin :

\Desktop\Panpan\Migration.xlsm

Ce fichier est sur chaque bureau de plusieurs personnes comment faire?

Lorsque j'utilise l'utilitaire d'enregistrement des macros il m'ouvre bien le fichier. Mais le code est uniquement pour mon pc pas pour le pc des autres.

Pouvez-vous m'aider svp?

Merci d'avance.

Bonjour,
Une piste :

Dim obj As Object, sFolder As String, sFullFileName As String
    Set obj = CreateObject("WScript.Shell")
    sFolder = obj.specialfolders("Desktop")
    sFullFileName = sFolder & "\Panpan\Migration.xlsm"
    'Debug.Print sFullFileName

Cdlt.

Bonjour, une autre piste

Pour ouvrir un fichier Excel qui se trouve sur le bureau depuis un fichier Excel de base en utilisant VBA, vous pouvez utiliser le code suivant :

Sub OuvrirFichierSurBureau()
    Dim CheminFichier As String

    ' Spécifiez le chemin complet du fichier sur le bureau
    CheminFichier = Environ("USERPROFILE") & "\Desktop\Panpan\Migration.xlsm"

    ' Vérifiez si le fichier existe
    If Dir(CheminFichier) <> "" Then
        ' Ouvrez le fichier
        Workbooks.Open CheminFichier
    Else
        MsgBox "Le fichier n'a pas été trouvé sur le bureau.", vbExclamation
    End If
End Sub

Ce code utilise la fonction Environ("USERPROFILE") pour obtenir le chemin du dossier du profil utilisateur, puis ajoute "\Desktop\Panpan\Migration.xlsm" pour former le chemin complet vers le fichier sur le bureau. Ensuite, il vérifie si le fichier existe à l'aide de la fonction Dir et l'ouvre avec Workbooks.Open s'il est trouvé.

Bonjour à vous 2,

Merci pour vos réponses.

Jean-Eric, lorsque je rentre ton code rien ne se passe.

Stepaustras, parfait tout fonctionne.

Merci à vous :)

Bonjour,

Dim obj As Object, sFolder As String, sFullFileName As String
    Set obj = CreateObject("WScript.Shell")
    sFolder = obj.specialfolders("Desktop")
    sFullFileName = sFolder & "\Panpan\Migration.xlsm"
    MsgBox sFullFileName, 64, "Information"