Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Private Sub CommandButton1_Click()
Dim Wrd As Object
Application.ScreenUpdating = False
Set Wrd = CreateObject('word.Application')
Wrd.Visible = True
Wrd.documents.Open ('C:\\1\\Doc1.doc') 'A adapter of course
End Sub
Sur la page Wiki (Forum 1ère génération) de MichelXld (que je salue au passage) tu trouveras pour les autres applications.
Reviens sur ce même fil si tu ne trouve pas.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.