Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Modifier apparence Icone

Modifier apparence Icone

4 réponses
Avatar
BHY
J'ai une tableau Excel dans lequel j'ai inséré un objet Word sous forme
d'Icone.
J'utilise le doc Word pour enregistrer des commentaires ...
J'aimerais que l'icone soit différente suivant que le document Word est
vierge ou non. Est-ce possible ? Si oui comment ?
--
BHY
Signaler un problème avec ce contenu

4 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
MichDenis
Un exemple de code :

La valeur que X peut prendre se situe entre 1 et 13.
chacun des icônes créés peut prendre la valeur de ton choix

'-------------------------
Sub test()
Dim Fichier As String, X As Integer
Fichier = "C:Denis.doc"
If Len(Fichier) = 0 Then
X = 1
Else
X = 6
End If

With Worksheets("Feuil1")
.Activate
.Range("A12").Select
.OLEObjects.Add Filename:=Fichier, Link:úlse, _
DisplayAsIcon:=True, IconFileName:= _
"C:WINDOWSInstaller{9011040C-6000-11D3-8CFE-0150048383C9}" & _
"wordicon.exe", IconIndex:=X, IconLabel:=Fichier
End With
End Sub
'--------------------------------



"BHY" a écrit dans le message de news:

J'ai une tableau Excel dans lequel j'ai inséré un objet Word sous forme
d'Icone.
J'utilise le doc Word pour enregistrer des commentaires ...
J'aimerais que l'icone soit différente suivant que le document Word est
vierge ou non. Est-ce possible ? Si oui comment ?
--
BHY
Avatar
BHY
Merci pour cette info, mais quand je teste la macro elle bug à partir de
.OLEObject ...
Elle ne doit pas trouver le ficheir Wordicon
Je ne vois pas de répertoire Windows/installer sur mon PC est-ce normal ?
Ps : Je suis sous XP
--
BHY



Un exemple de code :

La valeur que X peut prendre se situe entre 1 et 13.
chacun des icônes créés peut prendre la valeur de ton choix

'-------------------------
Sub test()
Dim Fichier As String, X As Integer
Fichier = "C:Denis.doc"
If Len(Fichier) = 0 Then
X = 1
Else
X = 6
End If

With Worksheets("Feuil1")
.Activate
.Range("A12").Select
.OLEObjects.Add Filename:=Fichier, Link:úlse, _
DisplayAsIcon:=True, IconFileName:= _
"C:WINDOWSInstaller{9011040C-6000-11D3-8CFE-0150048383C9}" & _
"wordicon.exe", IconIndex:=X, IconLabel:=Fichier
End With
End Sub
'--------------------------------



"BHY" a écrit dans le message de news:

J'ai une tableau Excel dans lequel j'ai inséré un objet Word sous forme
d'Icone.
J'utilise le doc Word pour enregistrer des commentaires ...
J'aimerais que l'icone soit différente suivant que le document Word est
vierge ou non. Est-ce possible ? Si oui comment ?
--
BHY





Avatar
BHY
Finalement j'ai trouvé
C:WINDOWSInstaller{9011040C-6000-11D3-8CFE-0150048383C9} ... dans le
Registre, mais çà bug toujours, il doit y avaoir une coquille dans la syntaxe
???

D'autre part, ta macro doit marcher pour un fichier Word "Normal", mais
est-ce possible avec un fichier Word incorporer dans la feuille Excel
=INCORPORER("Word.Document.8";"")
Quand je clique sur l'icone, Word s'ouvre bien et le nom qui s'affiche dans
la barre en haut est "Document dans Classeur 1 - Microsoft Word"
A+
--
BHY



Merci pour cette info, mais quand je teste la macro elle bug à partir de
.OLEObject ...
Elle ne doit pas trouver le ficheir Wordicon
Je ne vois pas de répertoire Windows/installer sur mon PC est-ce normal ?
Ps : Je suis sous XP
--
BHY



Un exemple de code :

La valeur que X peut prendre se situe entre 1 et 13.
chacun des icônes créés peut prendre la valeur de ton choix

'-------------------------
Sub test()
Dim Fichier As String, X As Integer
Fichier = "C:Denis.doc"
If Len(Fichier) = 0 Then
X = 1
Else
X = 6
End If

With Worksheets("Feuil1")
.Activate
.Range("A12").Select
.OLEObjects.Add Filename:=Fichier, Link:úlse, _
DisplayAsIcon:=True, IconFileName:= _
"C:WINDOWSInstaller{9011040C-6000-11D3-8CFE-0150048383C9}" & _
"wordicon.exe", IconIndex:=X, IconLabel:=Fichier
End With
End Sub
'--------------------------------



"BHY" a écrit dans le message de news:

J'ai une tableau Excel dans lequel j'ai inséré un objet Word sous forme
d'Icone.
J'utilise le doc Word pour enregistrer des commentaires ...
J'aimerais que l'icone soit différente suivant que le document Word est
vierge ou non. Est-ce possible ? Si oui comment ?
--
BHY







Avatar
MichDenis
La macro soumise fonctionne très bien.
Elle fut testée sous Excel 2003.
Assure-toi que certaines lignes ne sont pas coupées
intempestivement par le service de messageries.

N.B. Utilise l'enregistreur de macro, fais la manoeuvre
d'ajouter un fichier Word à ton fichier Excel. Si tu as
une version de microsoft office différente de 2003, il est
plus que probable que ce numéro contenu dans la macro soit différent :
{9011040C-6000-11D3-8CFE-0150048383C9}... tu adapteras.


"BHY" a écrit dans le message de news:

Merci pour cette info, mais quand je teste la macro elle bug à partir de
.OLEObject ...
Elle ne doit pas trouver le ficheir Wordicon
Je ne vois pas de répertoire Windows/installer sur mon PC est-ce normal ?
Ps : Je suis sous XP
--
BHY



Un exemple de code :

La valeur que X peut prendre se situe entre 1 et 13.
chacun des icônes créés peut prendre la valeur de ton choix

'-------------------------
Sub test()
Dim Fichier As String, X As Integer
Fichier = "C:Denis.doc"
If Len(Fichier) = 0 Then
X = 1
Else
X = 6
End If

With Worksheets("Feuil1")
.Activate
.Range("A12").Select
.OLEObjects.Add Filename:=Fichier, Link:úlse, _
DisplayAsIcon:=True, IconFileName:= _
"C:WINDOWSInstaller{9011040C-6000-11D3-8CFE-0150048383C9}" & _
"wordicon.exe", IconIndex:=X, IconLabel:=Fichier
End With
End Sub
'--------------------------------



"BHY" a écrit dans le message de news:

J'ai une tableau Excel dans lequel j'ai inséré un objet Word sous forme
d'Icone.
J'utilise le doc Word pour enregistrer des commentaires ...
J'aimerais que l'icone soit différente suivant que le document Word est
vierge ou non. Est-ce possible ? Si oui comment ?
--
BHY