Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Bonjour,
La modification de cette option n'est pas rétro active.
C'est-à-dire que pour les nouveaux contacts créés, ils seront classés comme
tu le demande, mais ceux déjà créés restent classer comme ils l'étaient.
Il faut modifier les contacts pour que le classement soit modifié.
Pour pas tous se les faire un par un, il y a 2 méthodes. Exporter et
réimporter ton dossier contact ou faire une macros VBA.
"lodemon" (sansspam)> a écrit dans le message de news:Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Bonjour,
La modification de cette option n'est pas rétro active.
C'est-à-dire que pour les nouveaux contacts créés, ils seront classés comme
tu le demande, mais ceux déjà créés restent classer comme ils l'étaient.
Il faut modifier les contacts pour que le classement soit modifié.
Pour pas tous se les faire un par un, il y a 2 méthodes. Exporter et
réimporter ton dossier contact ou faire une macros VBA.
"lodemon" <laurent@exemple.com.(sansspam)> a écrit dans le message de news:
679CB331-DF00-4FBC-A2D1-EF42F685DD6C@microsoft.com...
Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Bonjour,
La modification de cette option n'est pas rétro active.
C'est-à-dire que pour les nouveaux contacts créés, ils seront classés comme
tu le demande, mais ceux déjà créés restent classer comme ils l'étaient.
Il faut modifier les contacts pour que le classement soit modifié.
Pour pas tous se les faire un par un, il y a 2 méthodes. Exporter et
réimporter ton dossier contact ou faire une macros VBA.
"lodemon" (sansspam)> a écrit dans le message de news:Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Merci,
Peux tu éventuellement me détailler la macro.
Merci sinon j'essayerai de le faire mais je ne suis pas du tout un expert
ds
les macros
--
LodemonBonjour,
La modification de cette option n'est pas rétro active.
C'est-à-dire que pour les nouveaux contacts créés, ils seront classés
comme
tu le demande, mais ceux déjà créés restent classer comme ils l'étaient.
Il faut modifier les contacts pour que le classement soit modifié.
Pour pas tous se les faire un par un, il y a 2 méthodes. Exporter et
réimporter ton dossier contact ou faire une macros VBA.
"lodemon" (sansspam)> a écrit dans le message de
news:Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT
DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Merci,
Peux tu éventuellement me détailler la macro.
Merci sinon j'essayerai de le faire mais je ne suis pas du tout un expert
ds
les macros
--
Lodemon
Bonjour,
La modification de cette option n'est pas rétro active.
C'est-à-dire que pour les nouveaux contacts créés, ils seront classés
comme
tu le demande, mais ceux déjà créés restent classer comme ils l'étaient.
Il faut modifier les contacts pour que le classement soit modifié.
Pour pas tous se les faire un par un, il y a 2 méthodes. Exporter et
réimporter ton dossier contact ou faire une macros VBA.
"lodemon" <laurent@exemple.com.(sansspam)> a écrit dans le message de
news:
679CB331-DF00-4FBC-A2D1-EF42F685DD6C@microsoft.com...
Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT
DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Merci,
Peux tu éventuellement me détailler la macro.
Merci sinon j'essayerai de le faire mais je ne suis pas du tout un expert
ds
les macros
--
LodemonBonjour,
La modification de cette option n'est pas rétro active.
C'est-à-dire que pour les nouveaux contacts créés, ils seront classés
comme
tu le demande, mais ceux déjà créés restent classer comme ils l'étaient.
Il faut modifier les contacts pour que le classement soit modifié.
Pour pas tous se les faire un par un, il y a 2 méthodes. Exporter et
réimporter ton dossier contact ou faire une macros VBA.
"lodemon" (sansspam)> a écrit dans le message de
news:Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT
DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Re...
Je peux te donner ce qui suis qui m'avait été donné par Oliv' et le site
http://www.outlookcode.com
Par contre, dans mon cas, je voulais modifier le champ "Classer Sous".
Il faudra donc que tu remplace le FileAs dans la macro par le champ qui
correspond au classement non complet.
Mais là, va falloir demander à quelqu'un d'autre car je ne sais pas comment
s'appel ce champ... :o(
*********************************************
Sub Modif_Contact_ClasserSous()
'Pour modifier le champ Classer sous d'un dossier contact
Dim OL_App As Outlook.Application
Dim OL_NS As Outlook.NameSpace
Dim Dos_Contacts As Outlook.MAPIFolder
Dim Liste_Contacts As Outlook.Items
Dim MaListe As Outlook.Items
Dim Contact As Object
Set OL_App = CreateObject("Outlook.application")
Set OL_NS = OL_App.GetNamespace("MAPI")
' Attention : la fonction RecupDossier est une fonction à créer dans le
projet
Set Dos_Contacts = RecupDossier("Boîte aux lettres -
MonUserDossierContactsAModifier")
Set Liste_Contacts = Dos_Contacts.Items
Set MaListe = Liste_Contacts '.Restrict(strWhere)
For Each Contact In MaListe
If (Contact.Class = olContact) Then
' Classement par NOM-PRENOM
Contact.FileAs = Contact.LastName & vbCrLf & Contact.FirstName
Contact.Save
End If
Next
MsgBox "Fini !"
End Sub
Public Function RecupDossier(Chemin_Dossier As String) As MAPIFolder
' Le chemin du dossier doit être de cette forme
' "Boîte aux lettres - UtilisateurContacts Perso"
Dim OL_App As Outlook.Application
Dim OL_NS As Outlook.NameSpace
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim ListeDos() As String
Dim i As Long
On Error Resume Next
ListeDos() = Split(Chemin_Dossier, "")
Set OL_App = CreateObject("Outlook.Application")
Set OL_NS = OL_App.GetNamespace("MAPI")
Set objFolder = OL_NS.Folders.Item(ListeDos(0))
If Not objFolder Is Nothing Then
For i = 1 To UBound(ListeDos)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(ListeDos(i))
If objFolder Is Nothing Then
Exit For
End If
Next
End If
Set RecupDossier = objFolder
Set colFolders = Nothing
Set OL_NS = Nothing
Set OL_App = Nothing
End Function
*********************************************
En espérant que ça t'aidera...
A+
"lodemon" (sansspam)> a écrit dans le message de news:Merci,
Peux tu éventuellement me détailler la macro.
Merci sinon j'essayerai de le faire mais je ne suis pas du tout un expert
ds
les macros
--
LodemonBonjour,
La modification de cette option n'est pas rétro active.
C'est-à-dire que pour les nouveaux contacts créés, ils seront classés
comme
tu le demande, mais ceux déjà créés restent classer comme ils l'étaient.
Il faut modifier les contacts pour que le classement soit modifié.
Pour pas tous se les faire un par un, il y a 2 méthodes. Exporter et
réimporter ton dossier contact ou faire une macros VBA.
"lodemon" (sansspam)> a écrit dans le message de
news:Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT
DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Re...
Je peux te donner ce qui suis qui m'avait été donné par Oliv' et le site
http://www.outlookcode.com
Par contre, dans mon cas, je voulais modifier le champ "Classer Sous".
Il faudra donc que tu remplace le FileAs dans la macro par le champ qui
correspond au classement non complet.
Mais là, va falloir demander à quelqu'un d'autre car je ne sais pas comment
s'appel ce champ... :o(
*********************************************
Sub Modif_Contact_ClasserSous()
'Pour modifier le champ Classer sous d'un dossier contact
Dim OL_App As Outlook.Application
Dim OL_NS As Outlook.NameSpace
Dim Dos_Contacts As Outlook.MAPIFolder
Dim Liste_Contacts As Outlook.Items
Dim MaListe As Outlook.Items
Dim Contact As Object
Set OL_App = CreateObject("Outlook.application")
Set OL_NS = OL_App.GetNamespace("MAPI")
' Attention : la fonction RecupDossier est une fonction à créer dans le
projet
Set Dos_Contacts = RecupDossier("Boîte aux lettres -
MonUserDossierContactsAModifier")
Set Liste_Contacts = Dos_Contacts.Items
Set MaListe = Liste_Contacts '.Restrict(strWhere)
For Each Contact In MaListe
If (Contact.Class = olContact) Then
' Classement par NOM-PRENOM
Contact.FileAs = Contact.LastName & vbCrLf & Contact.FirstName
Contact.Save
End If
Next
MsgBox "Fini !"
End Sub
Public Function RecupDossier(Chemin_Dossier As String) As MAPIFolder
' Le chemin du dossier doit être de cette forme
' "Boîte aux lettres - UtilisateurContacts Perso"
Dim OL_App As Outlook.Application
Dim OL_NS As Outlook.NameSpace
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim ListeDos() As String
Dim i As Long
On Error Resume Next
ListeDos() = Split(Chemin_Dossier, "")
Set OL_App = CreateObject("Outlook.Application")
Set OL_NS = OL_App.GetNamespace("MAPI")
Set objFolder = OL_NS.Folders.Item(ListeDos(0))
If Not objFolder Is Nothing Then
For i = 1 To UBound(ListeDos)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(ListeDos(i))
If objFolder Is Nothing Then
Exit For
End If
Next
End If
Set RecupDossier = objFolder
Set colFolders = Nothing
Set OL_NS = Nothing
Set OL_App = Nothing
End Function
*********************************************
En espérant que ça t'aidera...
A+
"lodemon" <laurent@exemple.com.(sansspam)> a écrit dans le message de news:
A10CE6F9-1F06-410B-A860-CED14EE6AEED@microsoft.com...
Merci,
Peux tu éventuellement me détailler la macro.
Merci sinon j'essayerai de le faire mais je ne suis pas du tout un expert
ds
les macros
--
Lodemon
Bonjour,
La modification de cette option n'est pas rétro active.
C'est-à-dire que pour les nouveaux contacts créés, ils seront classés
comme
tu le demande, mais ceux déjà créés restent classer comme ils l'étaient.
Il faut modifier les contacts pour que le classement soit modifié.
Pour pas tous se les faire un par un, il y a 2 méthodes. Exporter et
réimporter ton dossier contact ou faire une macros VBA.
"lodemon" <laurent@exemple.com.(sansspam)> a écrit dans le message de
news:
679CB331-DF00-4FBC-A2D1-EF42F685DD6C@microsoft.com...
Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT
DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon
Re...
Je peux te donner ce qui suis qui m'avait été donné par Oliv' et le site
http://www.outlookcode.com
Par contre, dans mon cas, je voulais modifier le champ "Classer Sous".
Il faudra donc que tu remplace le FileAs dans la macro par le champ qui
correspond au classement non complet.
Mais là, va falloir demander à quelqu'un d'autre car je ne sais pas comment
s'appel ce champ... :o(
*********************************************
Sub Modif_Contact_ClasserSous()
'Pour modifier le champ Classer sous d'un dossier contact
Dim OL_App As Outlook.Application
Dim OL_NS As Outlook.NameSpace
Dim Dos_Contacts As Outlook.MAPIFolder
Dim Liste_Contacts As Outlook.Items
Dim MaListe As Outlook.Items
Dim Contact As Object
Set OL_App = CreateObject("Outlook.application")
Set OL_NS = OL_App.GetNamespace("MAPI")
' Attention : la fonction RecupDossier est une fonction à créer dans le
projet
Set Dos_Contacts = RecupDossier("Boîte aux lettres -
MonUserDossierContactsAModifier")
Set Liste_Contacts = Dos_Contacts.Items
Set MaListe = Liste_Contacts '.Restrict(strWhere)
For Each Contact In MaListe
If (Contact.Class = olContact) Then
' Classement par NOM-PRENOM
Contact.FileAs = Contact.LastName & vbCrLf & Contact.FirstName
Contact.Save
End If
Next
MsgBox "Fini !"
End Sub
Public Function RecupDossier(Chemin_Dossier As String) As MAPIFolder
' Le chemin du dossier doit être de cette forme
' "Boîte aux lettres - UtilisateurContacts Perso"
Dim OL_App As Outlook.Application
Dim OL_NS As Outlook.NameSpace
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim ListeDos() As String
Dim i As Long
On Error Resume Next
ListeDos() = Split(Chemin_Dossier, "")
Set OL_App = CreateObject("Outlook.Application")
Set OL_NS = OL_App.GetNamespace("MAPI")
Set objFolder = OL_NS.Folders.Item(ListeDos(0))
If Not objFolder Is Nothing Then
For i = 1 To UBound(ListeDos)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(ListeDos(i))
If objFolder Is Nothing Then
Exit For
End If
Next
End If
Set RecupDossier = objFolder
Set colFolders = Nothing
Set OL_NS = Nothing
Set OL_App = Nothing
End Function
*********************************************
En espérant que ça t'aidera...
A+
"lodemon" (sansspam)> a écrit dans le message de news:Merci,
Peux tu éventuellement me détailler la macro.
Merci sinon j'essayerai de le faire mais je ne suis pas du tout un expert
ds
les macros
--
LodemonBonjour,
La modification de cette option n'est pas rétro active.
C'est-à-dire que pour les nouveaux contacts créés, ils seront classés
comme
tu le demande, mais ceux déjà créés restent classer comme ils l'étaient.
Il faut modifier les contacts pour que le classement soit modifié.
Pour pas tous se les faire un par un, il y a 2 méthodes. Exporter et
réimporter ton dossier contact ou faire une macros VBA.
"lodemon" (sansspam)> a écrit dans le message de
news:Bonjour,
J'ai actuellement ma liste de contacts triée par prenom-nom.
Comme le suggère l'aide, j'essaye de corriger en allant dans outils -
option
- option des contacts et de mettre "Nom prenom" dans ORDRE PAR DEFAULT
DU
"NOM COMPLET".
Je n'obtiens pas de changement d'ordre de tri.
Merci pour votre aide.
--
Lodemon