Vb

bonjour
bon premirement je ne sait pas de quoi tu veux parler
si tu veux que qlq t'aide envoi ton programme et bon chance

chui un debutant ds la programmation et jve faire mon menu personelle et j pa reussi aidez moi svp

Hello
de quel genre de lien est-ce que tu parles... c'est pour quoi faire exactement ?

Salut desire
tu veux un bouton qui ferait un lien vers un dossier qui existe déjà
si ça peut t'aider, je t'ai fabriquer en vb ce que tu demande
étudie le code, cela devrait répondre à ta question
http://www.partage-facile.com/129897-ouvrir_sauver_ficher.zip.html

Fonction du programme :
ouverture de n'importe quel fichier situé dans n'importe quel dossier du Disque Dur
et lecture/écriture dans un rtf.
Enregistrement du fichier ou de ce qui tu a écrit dans le rtf en deux format .txt, .avs

deux choses :
ne fait pas attention à ça
Script AVS (*.avs)|*.avs
car à l'origine ce code que je te donne aujourd'hui vient d'un programme de frameserver que j'ai créer en 2001.

ne fait pas attention à ça
CRC32 Check/Append
c'est le début de mes options de sécurités pour ne pas que l'on me crack mes programmes.

enfin étudie le composant CommonDialog1, c'est la base pour les accès au dossier et fichier.

A+
                           

Au fait dans le zip, le dossier "ouvrir sauver ficher" comporte les sources
et le dossier "exe" comporte l'application ( Projet1.exe )       
A+  

Bonjour, por trouver le chemin de 'Mes documents' c'est un peu compliqué parce que ce n'est qu'un raccourci
Dans Module1 tu colle le code ci-dessous

Option Explicit
'
Private Const CSIDL_PERSONAL As Long = &H5
'
Private Type SHITEMID
    cb As Long
    abID As Byte
End Type
'
Private Type ITEMIDLIST
    mkid As SHITEMID
End Type
'
Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _
                        (ByVal hwndOwner As Long, ByVal nFolder As Long, _
                         pidl As ITEMIDLIST) As Long
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _
                        (ByVal pidl As Long, ByVal pszPath As String) As Long
Function GetMyDocumentsFolder() As String
    Dim lRet As Long, IDL As ITEMIDLIST, sPath As String
    lRet = SHGetSpecialFolderLocation(100&, CSIDL_PERSONAL, IDL)
    If lRet = 0 Then
        sPath = String$(512, Chr$(0))
        lRet = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)
        GetMyDocumentsFolder = Left$(sPath, InStr(sPath, Chr$(0)) - 1)
    Else
        GetMyDocumentsFolder = vbNullString
    End If
End Function

Sur ta forme tu colle un bouton, tu double clic sur le bouton pour arriver sur l'événement clic du bouton.
TU EFFACE LES 2 LIGNES QUI SONT DEJA ECRITE.
Et tu colle ce code dans la feuille

Private Sub Command1_Click()
Dim Chemin As String
Dim Fichier As String
    Chemin = GetMyDocumentsFolder & "\Bureau\"
    Fichier = "LeNomFichier.ext"
    'Le fichier à ouvrir serra donc..
    MsgBox Chemin & Fichier
End Sub

A+

Après un Résolu, un petit merci aurait été sympa.