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 Outlook publier un formulaire a l'aide de VBA

publier un formulaire a l'aide de VBA

13 réponses
Avatar
Véronique Pageau
Bonjour,

Je n'ai pas Exchange, mais workgroupShare pour partager mes contacts.

Le logiciel fonctionne très bien, mais il ne partage pas les formulaires
personnalisés, donc je cherche une façon d'automatiser la publication de mes
formulaires.

J'ai 50 postes donc je ne peux aller sur les postes à chaque modification de
formulaire...

J'ai pensé faire du code VBA et qu'a chaque ouverture allée chercher le bon
formulaire et le publier dans le bon dossier. Cependant, je n'ai pas trouvé
d'exemple et je ne connais pas beaucoup le vba.

Merci beaucoup de votre aide.


Véronique Pageau
Signaler un problème avec ce contenu

3 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
1 2
Avatar
Véronique Pageau
C'est exactement ça.. J'ai trouvé du code VBA qui fait presque ce dont je
veux, mais je n'ai pas trouvé la façon de changer la Classe de message avec
ce script...

Public Sub publicationForm()
Dim myOlApp As Outlook.Application

Dim myNamespace As Outlook.NameSpace

Dim myContactFolder As Outlook.MAPIFolder

Dim myNFolder2 As Outlook.MAPIFolder

Dim myNFolder3 As Outlook.MAPIFolder

Dim MyItem As Outlook.ContactItem



Set myOlApp = New Outlook.Application

'Set myOlApp = CreateObject("Outlook.Application")

Set myNamespace = myOlApp.GetNamespace("MAPI")

'Set myContactFolder = myNamespace.GetDefaultFolder(olFolderContacts)

Set myNewFolder = myNamespace.Folders("Dossiers personnels")

'Set myContactFolder = Session.Folders("Shared Information")

Set myNFolder2 = myNewFolder.Folders("Shared Information")

Set myNFolder3 = myNFolder2.Folders("Contact EKO")



Set MyItem = myOlApp.CreateItemFromTemplate("c:ContactEko.oft")

Set MonFormulaire = MyItem.FormDescription


MonFormulaire.Name = "ContactEko"

MonFormulaire.PublishForm olFolderRegistry, myNFolder3

MyItem.Close olDiscard

End Sub

Il me reste le moyen de trouver comment publier la classe de message, car
pour le moment c'est le formulaire par défaut qui est pris.

Merci pour t'ont aidé et si tu as d'autres idées c'est très apprécier.

"Isabelle Prawitz" a écrit dans le message de news:

Rebonjour !
Si je comprends bien, tu partages les 50 dossiers Contacts avec
WorkgroupShare, et dans ces dossiers Contacts, tu veux utiliser un
formulaire personnalisé ?
Isa

"Véronique Pageau" a écrit dans le message de
news:
Bonjour,

Merci beaucoup pour la suggestion, mais ça n'a pas fonctionné.
L'ordinateur

distant a gardé le formulaire qui est publié dans son dossier
contact.


La

seule façon que j'ai trouvé c'est de faire dans le formulaire ouvert

Outils --> Formulaire --> Publier le formulaire et de choisir mon
dossier


contact. Mon problème est que je ne peux faire ça sur 50 postes...

J'ai pensé faire un COM ou un script en vba qui me permettrait
d'aller



chercher mon formulaire sur le réseau et de le publier dans le
dossier



choisi.

Si quelqu'un peut m'aider...

Véronique Pageau

"Isabelle Prawitz" a écrit dans le message de
news:


Bonjour !
As-tu essayé en cochant la case "Envoyer la définition du
formulaire



avec
l'élément" dans l'onglet Propriétés de ton formulaire en mode
création



?
C'est une solution palliative !
Isa

"Véronique Pageau" a écrit dans le
message



de
news:
Bonjour,

Je n'ai pas Exchange, mais workgroupShare pour partager mes
contacts.





Le logiciel fonctionne très bien, mais il ne partage pas les
formulaires


personnalisés, donc je cherche une façon d'automatiser la
publication




de
mes
formulaires.

J'ai 50 postes donc je ne peux aller sur les postes à chaque
modification


de
formulaire...

J'ai pensé faire du code VBA et qu'a chaque ouverture allée
chercher




le
bon
formulaire et le publier dans le bon dossier. Cependant, je n'ai
pas




trouvé
d'exemple et je ne connais pas beaucoup le vba.

Merci beaucoup de votre aide.


Véronique Pageau
















Avatar
Isabelle Prawitz
Bon, encore 3 questions :
1. Ton formulaire ContactEKO est bien PUBLIE dans TON dossier Contacts avant
que tu veuilles le partager ?
2. Tu veux le publier dans le dossier Outlook : Dossiers Personnels/Shared
Information/Contact EKO ?
3. Sachant que dans ton environnement Outlook, tu vois les X dossiers d'une
façon équivalente ?

Isa

"Véronique Pageau" a écrit dans le message de
news:Og%

C'est exactement ça.. J'ai trouvé du code VBA qui fait presque ce dont
je

veux, mais je n'ai pas trouvé la façon de changer la Classe de message
avec

ce script...

Public Sub publicationForm()
Dim myOlApp As Outlook.Application

Dim myNamespace As Outlook.NameSpace

Dim myContactFolder As Outlook.MAPIFolder

Dim myNFolder2 As Outlook.MAPIFolder

Dim myNFolder3 As Outlook.MAPIFolder

Dim MyItem As Outlook.ContactItem



Set myOlApp = New Outlook.Application

'Set myOlApp = CreateObject("Outlook.Application")

Set myNamespace = myOlApp.GetNamespace("MAPI")

'Set myContactFolder = myNamespace.GetDefaultFolder(olFolderContacts)

Set myNewFolder = myNamespace.Folders("Dossiers personnels")

'Set myContactFolder = Session.Folders("Shared Information")

Set myNFolder2 = myNewFolder.Folders("Shared Information")

Set myNFolder3 = myNFolder2.Folders("Contact EKO")



Set MyItem = myOlApp.CreateItemFromTemplate("c:ContactEko.oft")

Set MonFormulaire = MyItem.FormDescription


MonFormulaire.Name = "ContactEko"

MonFormulaire.PublishForm olFolderRegistry, myNFolder3

MyItem.Close olDiscard

End Sub

Il me reste le moyen de trouver comment publier la classe de message,
car

pour le moment c'est le formulaire par défaut qui est pris.

Merci pour t'ont aidé et si tu as d'autres idées c'est très apprécier.

"Isabelle Prawitz" a écrit dans le message de
news:


Rebonjour !
Si je comprends bien, tu partages les 50 dossiers Contacts avec
WorkgroupShare, et dans ces dossiers Contacts, tu veux utiliser un
formulaire personnalisé ?
Isa

"Véronique Pageau" a écrit dans le message
de


news:
Bonjour,

Merci beaucoup pour la suggestion, mais ça n'a pas fonctionné.
L'ordinateur

distant a gardé le formulaire qui est publié dans son dossier
contact.


La

seule façon que j'ai trouvé c'est de faire dans le formulaire
ouvert




Outils --> Formulaire --> Publier le formulaire et de choisir mon
dossier


contact. Mon problème est que je ne peux faire ça sur 50 postes...

J'ai pensé faire un COM ou un script en vba qui me permettrait
d'aller



chercher mon formulaire sur le réseau et de le publier dans le
dossier



choisi.

Si quelqu'un peut m'aider...

Véronique Pageau

"Isabelle Prawitz" a écrit dans le message de
news:


Bonjour !
As-tu essayé en cochant la case "Envoyer la définition du
formulaire



avec
l'élément" dans l'onglet Propriétés de ton formulaire en mode
création



?
C'est une solution palliative !
Isa

"Véronique Pageau" a écrit dans le
message



de
news:
Bonjour,

Je n'ai pas Exchange, mais workgroupShare pour partager mes
contacts.





Le logiciel fonctionne très bien, mais il ne partage pas les
formulaires


personnalisés, donc je cherche une façon d'automatiser la
publication




de
mes
formulaires.

J'ai 50 postes donc je ne peux aller sur les postes à chaque
modification


de
formulaire...

J'ai pensé faire du code VBA et qu'a chaque ouverture allée
chercher




le
bon
formulaire et le publier dans le bon dossier. Cependant, je n'ai
pas




trouvé
d'exemple et je ne connais pas beaucoup le vba.

Merci beaucoup de votre aide.


Véronique Pageau




















Avatar
Véronique Pageau
J'ai réussi merci pour vos réponse ...


"Isabelle Prawitz" a écrit dans le message de news:

Rebonjour !
Si je comprends bien, tu partages les 50 dossiers Contacts avec
WorkgroupShare, et dans ces dossiers Contacts, tu veux utiliser un
formulaire personnalisé ?
Isa

"Véronique Pageau" a écrit dans le message de
news:
Bonjour,

Merci beaucoup pour la suggestion, mais ça n'a pas fonctionné.
L'ordinateur

distant a gardé le formulaire qui est publié dans son dossier
contact.


La

seule façon que j'ai trouvé c'est de faire dans le formulaire ouvert

Outils --> Formulaire --> Publier le formulaire et de choisir mon
dossier


contact. Mon problème est que je ne peux faire ça sur 50 postes...

J'ai pensé faire un COM ou un script en vba qui me permettrait
d'aller



chercher mon formulaire sur le réseau et de le publier dans le
dossier



choisi.

Si quelqu'un peut m'aider...

Véronique Pageau

"Isabelle Prawitz" a écrit dans le message de
news:


Bonjour !
As-tu essayé en cochant la case "Envoyer la définition du
formulaire



avec
l'élément" dans l'onglet Propriétés de ton formulaire en mode
création



?
C'est une solution palliative !
Isa

"Véronique Pageau" a écrit dans le
message



de
news:
Bonjour,

Je n'ai pas Exchange, mais workgroupShare pour partager mes
contacts.





Le logiciel fonctionne très bien, mais il ne partage pas les
formulaires


personnalisés, donc je cherche une façon d'automatiser la
publication




de
mes
formulaires.

J'ai 50 postes donc je ne peux aller sur les postes à chaque
modification


de
formulaire...

J'ai pensé faire du code VBA et qu'a chaque ouverture allée
chercher




le
bon
formulaire et le publier dans le bon dossier. Cependant, je n'ai
pas




trouvé
d'exemple et je ne connais pas beaucoup le vba.

Merci beaucoup de votre aide.


Véronique Pageau
















1 2