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 Copie en bloc d'un champ contact outlook dans un autre

Copie en bloc d'un champ contact outlook dans un autre

5 réponses
Avatar
Colargol
Bonjour à tous !

J'aimerai pouvoir copier en une seul fois le champ "utilisateur 1" dans le
champ "classé sous" de chaqun de mes contacts (il y en a quand même 950...,
alors les ctrl v - ctrl v...).

Vous connaîssez un truc maîtrisable pour un non-programmeur ?

Je suis encore sous Outlook 2000

Merci
Signaler un problème avec ce contenu

5 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 Prawitz
Bonjour !
Le champ "Classer sous" est en lecture seule, il est composé de différents champs (Nom, Prénom, Société) suivant le choix de
liste déroulante.
Pour changer "Classer sous", écris dans la propriété FileAs.

Voici un code de macro que tu peux utiliser tel quel.
Il suffit de sélectionner les contacts à mettre à jour et de lancer la macro qui mettra le contenu de Utilisateur1 dans
FileAs.
Copie le code dans ton code de session Outlook.

' Macro qui met le contenu du champ User1 dans FileAs
Sub DeUser1AFileAs()
Dim monContact As ContactItem
Dim lItem As Object
Dim i As Integer, j As Integer

For i = 1 To ActiveExplorer.Selection.Count
Set lItem = ActiveExplorer.Selection.Item(i)
If TypeName(lItem) = "ContactItem" Then
Set monContact = lItem
monContact.FileAs = monContact.User1
monContact.Save
j = j + 1
End If
Next
MsgBox "Opération terminée, " & j & " contacts traité(s)"
End Sub
' Fin de macro

A+
Isa

"Colargol" a écrit dans le message de
news:
Bonjour à tous !

J'aimerai pouvoir copier en une seul fois le champ "utilisateur 1" dans le
champ "classé sous" de chaqun de mes contacts (il y en a quand même 950...,
alors les ctrl v - ctrl v...).

Vous connaîssez un truc maîtrisable pour un non-programmeur ?

Je suis encore sous Outlook 2000

Merci


Avatar
Colargol
Merci !

Ca bien marché quand j'ai fait un premier essai. Après j'ai eu une plantée
et depuis il me mets un message : Les macros de ce projet sont désactivées.

Mais où je réactive ?!?


Bonjour !
Le champ "Classer sous" est en lecture seule, il est composé de différents champs (Nom, Prénom, Société) suivant le choix de
liste déroulante.
Pour changer "Classer sous", écris dans la propriété FileAs.

Voici un code de macro que tu peux utiliser tel quel.
Il suffit de sélectionner les contacts à mettre à jour et de lancer la macro qui mettra le contenu de Utilisateur1 dans
FileAs.
Copie le code dans ton code de session Outlook.

' Macro qui met le contenu du champ User1 dans FileAs
Sub DeUser1AFileAs()
Dim monContact As ContactItem
Dim lItem As Object
Dim i As Integer, j As Integer

For i = 1 To ActiveExplorer.Selection.Count
Set lItem = ActiveExplorer.Selection.Item(i)
If TypeName(lItem) = "ContactItem" Then
Set monContact = lItem
monContact.FileAs = monContact.User1
monContact.Save
j = j + 1
End If
Next
MsgBox "Opération terminée, " & j & " contacts traité(s)"
End Sub
' Fin de macro

A+
Isa

"Colargol" a écrit dans le message de
news:
Bonjour à tous !

J'aimerai pouvoir copier en une seul fois le champ "utilisateur 1" dans le
champ "classé sous" de chaqun de mes contacts (il y en a quand même 950...,
alors les ctrl v - ctrl v...).

Vous connaîssez un truc maîtrisable pour un non-programmeur ?

Je suis encore sous Outlook 2000

Merci







Avatar
Isabelle Prawitz
Le mieux, c'est de certifier tes macros VBA !
Pour ça, va dans Démarrer, Tous les programmes, Microsoft Office, Outils Microsoft Office, Certificat numérique pour les
projets VBA, et donne-lui un nom, par ex. ColargolVBA !
Puis dans l'environnement VBA Outlook, Outils/Signature électronique, et Choisir, puis tu sélectionnes ColargolVBA.
Valide.
Maintenant, dans l'environnement Outlook classique, tu fais Outils/Macro/Sécurité... et tu choisis moyen, ce qui te permet de
choisir ce que tu veux exécuter, et avec le certificat l'exécution se fera normalement.
Ferme Outlook, et ressaie.
Si ça bloque encore, c'est peut-être un anti-virus !
Isa

"Colargol" a écrit dans le message de
news:
Merci !

Ca bien marché quand j'ai fait un premier essai. Après j'ai eu une plantée
et depuis il me mets un message : Les macros de ce projet sont désactivées.

Mais où je réactive ?!?


Bonjour !
Le champ "Classer sous" est en lecture seule, il est composé de différents champs (Nom, Prénom, Société) suivant le choix
de


liste déroulante.
Pour changer "Classer sous", écris dans la propriété FileAs.

Voici un code de macro que tu peux utiliser tel quel.
Il suffit de sélectionner les contacts à mettre à jour et de lancer la macro qui mettra le contenu de Utilisateur1 dans
FileAs.
Copie le code dans ton code de session Outlook.

' Macro qui met le contenu du champ User1 dans FileAs
Sub DeUser1AFileAs()
Dim monContact As ContactItem
Dim lItem As Object
Dim i As Integer, j As Integer

For i = 1 To ActiveExplorer.Selection.Count
Set lItem = ActiveExplorer.Selection.Item(i)
If TypeName(lItem) = "ContactItem" Then
Set monContact = lItem
monContact.FileAs = monContact.User1
monContact.Save
j = j + 1
End If
Next
MsgBox "Opération terminée, " & j & " contacts traité(s)"
End Sub
' Fin de macro

A+
Isa

"Colargol" a écrit dans le message de
news:
Bonjour à tous !

J'aimerai pouvoir copier en une seul fois le champ "utilisateur 1" dans le
champ "classé sous" de chaqun de mes contacts (il y en a quand même 950...,
alors les ctrl v - ctrl v...).

Vous connaîssez un truc maîtrisable pour un non-programmeur ?

Je suis encore sous Outlook 2000

Merci









Avatar
Colargol
J'ai pas tout compris, j'ai pas tout trouvé, ....
Mais ça remarche !

Merci infiniment

A+
Grégoire


Le mieux, c'est de certifier tes macros VBA !
Pour ça, va dans Démarrer, Tous les programmes, Microsoft Office, Outils Microsoft Office, Certificat numérique pour les
projets VBA, et donne-lui un nom, par ex. ColargolVBA !
Puis dans l'environnement VBA Outlook, Outils/Signature électronique, et Choisir, puis tu sélectionnes ColargolVBA.
Valide.
Maintenant, dans l'environnement Outlook classique, tu fais Outils/Macro/Sécurité... et tu choisis moyen, ce qui te permet de
choisir ce que tu veux exécuter, et avec le certificat l'exécution se fera normalement.
Ferme Outlook, et ressaie.
Si ça bloque encore, c'est peut-être un anti-virus !
Isa

"Colargol" a écrit dans le message de
news:
Merci !

Ca bien marché quand j'ai fait un premier essai. Après j'ai eu une plantée
et depuis il me mets un message : Les macros de ce projet sont désactivées.

Mais où je réactive ?!?


Bonjour !
Le champ "Classer sous" est en lecture seule, il est composé de différents champs (Nom, Prénom, Société) suivant le choix
de


liste déroulante.
Pour changer "Classer sous", écris dans la propriété FileAs.

Voici un code de macro que tu peux utiliser tel quel.
Il suffit de sélectionner les contacts à mettre à jour et de lancer la macro qui mettra le contenu de Utilisateur1 dans
FileAs.
Copie le code dans ton code de session Outlook.

' Macro qui met le contenu du champ User1 dans FileAs
Sub DeUser1AFileAs()
Dim monContact As ContactItem
Dim lItem As Object
Dim i As Integer, j As Integer

For i = 1 To ActiveExplorer.Selection.Count
Set lItem = ActiveExplorer.Selection.Item(i)
If TypeName(lItem) = "ContactItem" Then
Set monContact = lItem
monContact.FileAs = monContact.User1
monContact.Save
j = j + 1
End If
Next
MsgBox "Opération terminée, " & j & " contacts traité(s)"
End Sub
' Fin de macro

A+
Isa

"Colargol" a écrit dans le message de
news:
Bonjour à tous !

J'aimerai pouvoir copier en une seul fois le champ "utilisateur 1" dans le
champ "classé sous" de chaqun de mes contacts (il y en a quand même 950...,
alors les ctrl v - ctrl v...).

Vous connaîssez un truc maîtrisable pour un non-programmeur ?

Je suis encore sous Outlook 2000

Merci














Avatar
Isabelle Prawitz
C'est l'essentiel !
;-)
A+
Isa

"Colargol" a écrit dans le message de
news:
J'ai pas tout compris, j'ai pas tout trouvé, ....
Mais ça remarche !

Merci infiniment

A+
Grégoire


Le mieux, c'est de certifier tes macros VBA !
Pour ça, va dans Démarrer, Tous les programmes, Microsoft Office, Outils Microsoft Office, Certificat numérique pour les
projets VBA, et donne-lui un nom, par ex. ColargolVBA !
Puis dans l'environnement VBA Outlook, Outils/Signature électronique, et Choisir, puis tu sélectionnes ColargolVBA.
Valide.
Maintenant, dans l'environnement Outlook classique, tu fais Outils/Macro/Sécurité... et tu choisis moyen, ce qui te
permet de


choisir ce que tu veux exécuter, et avec le certificat l'exécution se fera normalement.
Ferme Outlook, et ressaie.
Si ça bloque encore, c'est peut-être un anti-virus !
Isa

"Colargol" a écrit dans le message de
news:
Merci !

Ca bien marché quand j'ai fait un premier essai. Après j'ai eu une plantée
et depuis il me mets un message : Les macros de ce projet sont désactivées.

Mais où je réactive ?!?


Bonjour !
Le champ "Classer sous" est en lecture seule, il est composé de différents champs (Nom, Prénom, Société) suivant le
choix




de
liste déroulante.
Pour changer "Classer sous", écris dans la propriété FileAs.

Voici un code de macro que tu peux utiliser tel quel.
Il suffit de sélectionner les contacts à mettre à jour et de lancer la macro qui mettra le contenu de Utilisateur1
dans




FileAs.
Copie le code dans ton code de session Outlook.

' Macro qui met le contenu du champ User1 dans FileAs
Sub DeUser1AFileAs()
Dim monContact As ContactItem
Dim lItem As Object
Dim i As Integer, j As Integer

For i = 1 To ActiveExplorer.Selection.Count
Set lItem = ActiveExplorer.Selection.Item(i)
If TypeName(lItem) = "ContactItem" Then
Set monContact = lItem
monContact.FileAs = monContact.User1
monContact.Save
j = j + 1
End If
Next
MsgBox "Opération terminée, " & j & " contacts traité(s)"
End Sub
' Fin de macro

A+
Isa

"Colargol" a écrit dans le message de
news:
Bonjour à tous !

J'aimerai pouvoir copier en une seul fois le champ "utilisateur 1" dans le
champ "classé sous" de chaqun de mes contacts (il y en a quand même 950...,
alors les ctrl v - ctrl v...).

Vous connaîssez un truc maîtrisable pour un non-programmeur ?

Je suis encore sous Outlook 2000

Merci