Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Rattachement de document par bouton

Rattachement de document par bouton

2 réponses
Avatar
Sabian
Salut.
Je cherche =E0 pouvoir rattacher un document Word dans=20
Excel par un bouton de commande.
Voici la macro que j'ai faite:

ActiveSheet.OLEObjects.Add(Filename:=3D"C:\MonDoc.doc",=20
Link:=3DFalse, _
DisplayAsIcon:=3DTrue, IconFileName:=3D _
"C:\WINDOWS\Installer\{9028040C-6000-11D3-8CFE-
0050048383C9}\PEicons.exe", _
IconIndex:=3D0, IconLabel:=3D"C:\MonDoc.doc").Select

Comment faire pour que l'utilisateur puisse avoir le=20
choix du document =E0 rattacher. Quelle variable dois-je=20
utiliser pour remplacer le C:\MonDoc.doc ?

Y a t'il un code plus simple ?

Merci de votre aide

Sabian
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Sabian,

fichier = Application.GetOpenFilename("Text Files (*.doc), *.doc")
If fileToOpen <> False Then
ActiveSheet.OLEObjects.Add(Filename:="" & fichier, _
Link:úlse, DisplayAsIcon:=True, IconFileName:= _
"C:WINDOWSInstaller{9028040C-6000-11D3-8CFE0050048383C9}PEicons.exe", _
IconIndex:=0, IconLabel:="C:MonDoc.doc").Select
End If

isabelle


Salut.
Je cherche à pouvoir rattacher un document Word dans
Excel par un bouton de commande.
Voici la macro que j'ai faite:

ActiveSheet.OLEObjects.Add(Filename:="C:MonDoc.doc",
Link:úlse, _
DisplayAsIcon:=True, IconFileName:= _
"C:WINDOWSInstaller{9028040C-6000-11D3-8CFE-
0050048383C9}PEicons.exe", _
IconIndex:=0, IconLabel:="C:MonDoc.doc").Select

Comment faire pour que l'utilisateur puisse avoir le
choix du document à rattacher. Quelle variable dois-je
utiliser pour remplacer le C:MonDoc.doc ?

Y a t'il un code plus simple ?

Merci de votre aide

Sabian


Avatar
isabelle
oups, petite correction,

fichier = Application.GetOpenFilename("Text Files (*.doc), *.doc")
If fichier <> False Then
ActiveSheet.OLEObjects.Add(Filename:="" & fichier, _
Link:úlse, DisplayAsIcon:=True, IconFileName:= _
"C:WINDOWSInstaller{9028040C-6000-11D3-8CFE0050048383C9}PEicons.exe", _
IconIndex:=0, IconLabel:="C:MonDoc.doc").Select
End If

isabelle


bonjour Sabian,

fichier = Application.GetOpenFilename("Text Files (*.doc), *.doc")
If fileToOpen <> False Then
ActiveSheet.OLEObjects.Add(Filename:="" & fichier, _
Link:úlse, DisplayAsIcon:=True, IconFileName:= _
"C:WINDOWSInstaller{9028040C-6000-11D3-8CFE0050048383C9}PEicons.exe", _
IconIndex:=0, IconLabel:="C:MonDoc.doc").Select
End If

isabelle


Salut.
Je cherche à pouvoir rattacher un document Word dans Excel par un
bouton de commande.
Voici la macro que j'ai faite:

ActiveSheet.OLEObjects.Add(Filename:="C:MonDoc.doc", Link:úlse, _
DisplayAsIcon:=True, IconFileName:= _
"C:WINDOWSInstaller{9028040C-6000-11D3-8CFE-
0050048383C9}PEicons.exe", _
IconIndex:=0, IconLabel:="C:MonDoc.doc").Select

Comment faire pour que l'utilisateur puisse avoir le choix du document
à rattacher. Quelle variable dois-je utiliser pour remplacer le
C:MonDoc.doc ?

Y a t'il un code plus simple ?

Merci de votre aide

Sabian