A l'ouverture du classeur (Mod=E8le) Je fais appara=EEtre un message de bie=
nvenue, via les propri=E9t=E9s, existant dans le champ "commentaires" (item=
(5).
A partir de la deuxi=E8me ouverture du classeur, si le champs est toujours =
celui de bienvenue, je souhaiterais l'effacer, et ajouter un "autre comment=
aire".
- Qu'est-ce que je dois mettre dans mon "IF" pour savoir si dans le contenu=
de "Msg_Bienvenue" se trouve le terme "Bonjour"
------------------------------------
Msg_Bienvenue =3D ActiveWorkbook.BuiltinDocumentProperties.Item(5)
MsgBox ActiveWorkbook.BuiltinDocumentProperties.Item(5), , " Bienvenue"
if Msg_Bienvenue contient "Bonjour" then
ThisWorkbook.BuiltinDocumentProperties.Item(5) =3D "Autre commentaire"
End If
-------------------------------------
En vous remerciant d'avance pour votre aide et sollicitude,
Tr=E8s bonnes salutations.
Emile
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
isabelle
bonjour Emile,
If InStrRev(Msg_Bienvenue, "Bonjour") <> 0 Then
isabelle
Le 2015-09-28 07:17, Emile63 a écrit :
Bonjour à tous,
A l'ouverture du classeur (Modèle) Je fais apparaître un message de bienvenue, via les propriétés, existant dans le champ "commentaires" (item(5).
A partir de la deuxième ouverture du classeur, si le champs est toujours celui de bienvenue, je souhaiterais l'effacer, et ajouter un "autre commentaire".
- Qu'est-ce que je dois mettre dans mon "IF" pour savoir si dans le contenu de "Msg_Bienvenue" se trouve le terme "Bonjour" ------------------------------------ Msg_Bienvenue = ActiveWorkbook.BuiltinDocumentProperties.Item(5)
MsgBox ActiveWorkbook.BuiltinDocumentProperties.Item(5), , " Bienvenue" if Msg_Bienvenue contient "Bonjour" then ThisWorkbook.BuiltinDocumentProperties.Item(5) = "Autre commentaire" End If ------------------------------------- En vous remerciant d'avance pour votre aide et sollicitude, Très bonnes salutations. Emile
bonjour Emile,
If InStrRev(Msg_Bienvenue, "Bonjour") <> 0 Then
isabelle
Le 2015-09-28 07:17, Emile63 a écrit :
Bonjour à tous,
A l'ouverture du classeur (Modèle) Je fais apparaître un message de bienvenue, via les propriétés, existant dans le champ "commentaires" (item(5).
A partir de la deuxième ouverture du classeur, si le champs est toujours celui de bienvenue, je souhaiterais l'effacer, et ajouter un "autre commentaire".
- Qu'est-ce que je dois mettre dans mon "IF" pour savoir si dans le contenu de "Msg_Bienvenue" se trouve le terme "Bonjour"
------------------------------------
Msg_Bienvenue = ActiveWorkbook.BuiltinDocumentProperties.Item(5)
MsgBox ActiveWorkbook.BuiltinDocumentProperties.Item(5), , " Bienvenue"
if Msg_Bienvenue contient "Bonjour" then
ThisWorkbook.BuiltinDocumentProperties.Item(5) = "Autre commentaire"
End If
-------------------------------------
En vous remerciant d'avance pour votre aide et sollicitude,
Très bonnes salutations.
Emile
A l'ouverture du classeur (Modèle) Je fais apparaître un message de bienvenue, via les propriétés, existant dans le champ "commentaires" (item(5).
A partir de la deuxième ouverture du classeur, si le champs est toujours celui de bienvenue, je souhaiterais l'effacer, et ajouter un "autre commentaire".
- Qu'est-ce que je dois mettre dans mon "IF" pour savoir si dans le contenu de "Msg_Bienvenue" se trouve le terme "Bonjour" ------------------------------------ Msg_Bienvenue = ActiveWorkbook.BuiltinDocumentProperties.Item(5)
MsgBox ActiveWorkbook.BuiltinDocumentProperties.Item(5), , " Bienvenue" if Msg_Bienvenue contient "Bonjour" then ThisWorkbook.BuiltinDocumentProperties.Item(5) = "Autre commentaire" End If ------------------------------------- En vous remerciant d'avance pour votre aide et sollicitude, Très bonnes salutations. Emile