'Déclaration, Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String) Const SHARD_PATH = &H2& 'Utilisation dans le code Call SHAddToRecentDocs(SHARD, "c:\monDoc.doc")