Discussion :

[Rhadawhisp]

Bien le bonjour !

J'expose mon problème, actuellement en BTS info en alternance je dois réaliser des PTI (des TP info à présenter devant un jury dans 1.5 ans) qui doivent remplir certaines conditions tel que :

-Gestion Client /Serveur
-Programmation Objet
-Suivi et évolution d'une appli
-Optimisation de l'appli
-etc etc...

Dans ce but j'ai réalisé une application en VB.NET pour mon entreprise.
Cette application a pour le moment 2 buts :

-Création d'un fichier excel avec la liste de tous les contacts clients de la boite en fonction de n paramètres
-Importation sous outlook 2003 de ces contacts dans un carnet de contacts situé dans DossierPublics/TouslesDossiersPublics/Toto par ex

Je viens vers vous pour que vous commentiez le code que j'ai réalisé (novice en VB j'ai du apprendre de zéro) et que si possible vous proposiez des pistes d'optimisation du code ou d'implémentations supplémentaires

NB : pour les implémentations supplémentaire mon Boss ma suggéré que la requête SQL exécutée en "Dur" dans mon code ce serait plus judicieux de la placer dans un fichier .INI lu par une fonction en VB.NET pour gérer justement plusieurs type de requêtes "importations de contacts"

Création d'un fichier excel avec la liste de tous les contacts clients de la boite en fonction de n paramètres

Voilà le code complet commenté de partout :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
Imports Excel
'Module permettant d'importer le code VB6 qui est dans la premiere sub en .NET
Module UpgradeSupport
    Friend OutlookApplication_definst As New Outlook.Application
End Module
 
 
 
Public Class Form2
    Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        ' dans un événement click de bouton par exemple
        Dim xlApp As New Excel.Application
        'Si mon fichier existe je le delete
        If System.IO.File.Exists("C:\toto.xls") = True Then
            Kill("C:\toto.xls")
        End If
        'ajout d'une page et sélection 
        Dim xsTransfert As Excel.Worksheet = xlApp.Workbooks.Add.ActiveSheet
 
        Try
            ' ici on crée la chaine de connexion
            ' (on se connecte à SQL Server dans notre exemple)
            With xsTransfert.QueryTables.Add(Connection:="ODBC;DRIVER=SQL Server;SERVER=NEPTUNE;APP=Microsoft® Query;DATABASE=absyss_test;Integrated Security=True", Destination:=xsTransfert.Range("A1"))
                .CommandText = "SELECT CivDsc, CtcFstNamDsc, CtcNamDsc, CpyTrdNamDsc, CpyAddrStreet1Dsc, CpyAddrStreet2Dsc, CpyAddrZipDsc , CpyAddrExCde, CtcPhnNum, CtcFaxNum, CtcMailNum, DtyDsc as Titre1, CtcAbovDsc, CtcCellNum, CtcPrivNum, CpyAddrStreet2Dsc FROM p_cpy, p_cpyaddr, p_ctc, r_civ WHERE r_civ.CivInCde = p_ctc.CivInCde AND p_cpy.CpyInCde = p_cpyaddr.CpyInCde And p_cpyaddr.CpyAddrInCde = p_ctc.CpyAddrInCde AND p_ctc.ctcInCde >0 AND p_ctc.ctcNamDsc <> 'KIMWEB' AND p_ctc.ctcNamDsc <> 'VITO' AND p_ctc.ValidPnt <> 0 AND p_cpy.cpyStsInCde = 2 AND p_cpy.ValidPnt <> 0 AND p_cpy.CpyInCde <> 1000" ' ou requete SELECT"
                .Name = "feuil1"
                .FieldNames = True
                .RowNumbers = True
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .BackgroundQuery = True
                .RefreshStyle = Excel.XlCellInsertionMode.xlOverwriteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .PreserveColumnInfo = True
                .Refresh(BackgroundQuery:=False)
            End With
 
            ' affichage 
            xlApp.Visible = False
            'Gestion d'erreur
        Catch ex As Exception
            MsgBox("Va bosser ca marche pas !")
            MessageBox.Show(ex.Message)
        End Try
        'Sauvegarder le resultat de la requete SQL qui est copier dans mon fichier Excel
        xsTransfert.SaveAs("C:\toto.xls")
        'Pour enlever le message "voulez vous sauvegarder..."
        xlApp.DisplayAlerts = True
        'Quit Excel
        xlApp.Quit()
        'Libérer les ressources
        xlApp = Nothing
        xsTransfert = Nothing
        'Detruire les process EXCEL.EXE
        GC.Collect()
        'Appel de ma 2eme fonction
        Test()
 
    End Sub
 
    Sub Test()
 
        Dim Path As Object
        Dim ex As Object
        Dim oApp As Object
 
        Dim oCont As Outlook.ContactItem
        Dim lig As Short
 
        'ici on va créer le dossier contact s'il n'existe pas
        On Error Resume Next
        Dim NS As Outlook.NameSpace
        Dim colCTSItems As Object
        Dim oemployee As Outlook.ContactItem
        NS = OutlookApplication_definst.Application.GetNamespace("MAPI")
        'On se place dans les DossierPublic/Tous les dossiers publics/Fichiers Clients KIMOCE que l'on delete s'il existe
        NS.GetDefaultFolder(Outlook.OlDefaultFolders.olPublicFoldersAllPublicFolders).Folders("Fichier Clients KIMOCE").Delete()
 
 
 
 
 
 
        'On crée le "Fichier Client Kimoce en placant dans DossierPublic/Tous les dossiers publics
        colCTSItems = NS.GetDefaultFolder(Outlook.OlDefaultFolders.olPublicFoldersAllPublicFolders).Folders.Add("Fichier Clients KIMOCE", Outlook.OlDefaultFolders.olFolderContacts)
        ' Définie le dossier comme carnet d'adresse
        colCTSItems.ShowAsOutlookAB = True
        Err.Clear()
        On Error GoTo 0
 
 
        oApp = CreateObject("Excel.Application")
        ex = oApp.Workbooks.Open("C:\toto.xls")
 
        lig = 2
        Do Until ex.Sheets("Feuil1").Cells(lig, 2).Value = ""
            'ici on créé un nouveau contact
            oCont = colCTSItems.Items.Add(Outlook.OlItemType.olContactItem)
 
 
 
            'Nom
            oCont.FirstName = ex.Sheets("Feuil1").Cells(lig, 4).Value
 
            'Prénom
            oCont.LastName = ex.Sheets("Feuil1").Cells(lig, 3).Value
 
            'Adresse du Bureau
            oCont.BusinessAddressStreet = ex.Sheets("Feuil1").Cells(lig, 6).Value + Chr(13) + ex.Sheets("Feuil1").Cells(lig, 17).Value
 
            'Nom Complet / Titre
            oCont.Title = ex.Sheets("Feuil1").Cells(lig, 2).Value
 
            'Titre
            oCont.JobTitle = ex.Sheets("Feuil1").Cells(lig, 13).Value
 
            'Adresse Bureau/ Ville
            oCont.BusinessAddressCity = ex.Sheets("Feuil1").Cells(lig, 9).Value
 
            'Adresse Bureau/ Code postal
            oCont.BusinessAddressPostalCode = ex.Sheets("Feuil1").Cells(lig, 8).Value
 
            'Société
            oCont.CompanyName = ex.Sheets("Feuil1").Cells(lig, 5).Value
 
            'Ville Bureau
            'oCont.BusinessAddressCountry = ex.Sheets("Feuil1").Cells(lig, 15).Value
 
            'Classer Sous / Nom du manager
            oCont.ManagerName = ex.Sheets("Feuil1").Cells(lig, 14).Value
 
            'Numero de telephone Bureau
            oCont.BusinessTelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 10).Value
 
            'Numero de telephone 2  pro
            'oCont.Business2TelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 33).Value
 
            'Numero de telephone domicile
            'oCont.HomeTelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 38).Value
 
            'Autre Numero de telephone
            'oCont.OtherTelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 40).Value
 
            'Numero de telephone / télécopie (bureau)
            oCont.BusinessFaxNumber = ex.Sheets("Feuil1").Cells(lig, 11).Value
 
            'Numero de telephone / telephone mobile
            oCont.MobileTelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 15).Value
 
            'Numero de telephone / Domicile
            oCont.HomeTelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 16).Value
 
 
            'Adresse de messagerie
            oCont.Email1Address = ex.Sheets("Feuil1").Cells(lig, 12).Value
 
            lig = lig + 1
            oCont.Save()
        Loop
        'A la fin faut fermer excel
        oApp.Quit()
        'On libère les ressources
        ex = Nothing
        oApp = Nothing
        'ON detruit le procces EXCEL.EXE 
        GC.Collect()
        'On empeche le form2 de s'afficher
        Me.Close()
 
    End Sub
 
 
End Class

[Pol63]

une application avec une fenetre qui ne sert pas ; faire une application console ou afficher ce qu'il se passe dans le form
activated peut etre déclenché plusieurs fois (sub new ou form_load une seule)

un module pour placer une variable qui n'est utilisé que dans une classe devrait être remplacé par une variable de classe

kill pour un fichier c'est pas vraiement du .net (system.io.file.Delete)

le gc.collect n'est pas utile je pense ; plutot regarder s'il y a des choses disposables (.dispose) dans les objets que tu utilises
mettre des variables de sub à nothing ne sert à rien

on error resume next est plus qu'à banir !!!

pour le reste c'est de la manipulation d'objets office donc j'ai pas grand chose à dire dessus ...

si tu veux rendre plus lisible le code pour le remplissage de oCont tu peux faire une function qui s'en occupe, à laquelle tu passes ex.Sheets("Feuil1")

découper le plus de choses possibles rend l'algorithmie et le cheminement plus clairs

[Rhadawhisp]

une application avec une fenetre qui ne sert pas ; faire une application console ou afficher ce qu'il se passe dans le form
activated peut etre déclenché plusieurs fois (sub new ou form_load une seule)

pour les besoins de la boite tout est automatisé juste cliquer sur le .EXE et tout se lance.
Par contre pour la PTI a présenter devant le jury j'ferais un beau form avec des boutons "Générer Fichier Excel" "Importer dans outlook" etc...

un module pour placer une variable qui n'est utilisé que dans une classe devrait être remplacé par une variable de classe

ca je comprends pas... désolé j'suis vraiment naze en VB (depuis 10 jours j'apprends..)

e gc.collect n'est pas utile je pense ; plutot regarder s'il y a des choses disposables (.dispose) dans les objets que tu utilises
mettre des variables de sub à nothing ne sert à rien

ca sert pas a liberer les ressources ?

on error resume next est plus qu'à banir !!!

je vais le delete

si tu veux rendre plus lisible le code pour le remplissage de oCont tu peux faire une function qui s'en occupe, à laquelle tu passes ex.Sheets("Feuil1")

pas compris non plus


Et merci de prendre de votre temps pour m'aider a progresser !

[Rhadawhisp]

un module pour placer une variable qui n'est utilisé que dans une classe devrait être remplacé par une variable de classe

tu veux dire de déclarer un Dim comme ca ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim OutlookApplication_definst As New Outlook.Application

[Pol63]

en variable de sub oui
en variable de classe (utilisable dans toutes les sub de la classe donc) ca serait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
public class ***
 
  private machin as new truc
 
  private sub --- 
 
(...)

[Rhadawhisp]

Merci beaucoup !

Une autre question :

Si je veux lire ma requete ou mes requetes ds un fichier .INI ou texte
et mettre le resultat que je choisis dans une variable pour ensuite la mettre ds

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.CommandTest = MA VARIABLE

je dois procéderr de quelle manière ? Existe-t-il une fonction permettant la lecture et le stockage dans une variable d'un paramètre d'un fichier .INI ?

Codialement.

[Pol63]

system.io.readalltext et system.io.writealltext peuvent convenir pour extraire les données d'un fichier
voir aussi split() qui peut aider à parser les données brut du fichier
après à toi d'en définir la structure et tu donnes le nom que tu veux au fichier

[Rhadawhisp]

bon alors la ca me gave j'arrive pas à poser des conditions sur la lecture du fichier.INI que j'ai crée qui est de la forme

[AAA]
cle1=val1
cle2=val2
[BBB]
cle1=val1
cle2=val2

j'arrive a lire en entier le fichier mais pour en retourner la valeur que je veux c'est une autre paie de manche..

voila ma function lireIniFiles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Module lireIniFiles
     Function lectureFichier(ByVal fichier As String) As String
        Dim monStreamReader As New IO.StreamReader(fichier) 'Stream pour la lecture
        Dim ligne As String ' Variable contenant le texte de la ligne
 
 
        Try
            ligne = 0
            While ligne <> Nothing
                ligne = monStreamReader.ReadLine
 
                ' TRAITEMENT A EFFECTUER SUR LA LIGNE ICI
 
 
 
            End While
            monStreamReader.Close()
 
 
        Catch ex As Exception
            MsgBox("Une erreur est survenue au cours de l'accès en lecture du fichier de configuration du logiciel." & vbCrLf & vbCrLf & "Veuillez vérifier l'emplacement : " & fichier, MsgBoxStyle.Critical, "Erreur lors de l'ouverture du fichier conf...")
            Return 0
        End Try
        Return ligne
    End Function
 
End Module

pour les traitements a affectuer sur la ligne c'est un truc du style "si tu contient [ alors t'es une section et tu lis la ligne plus bas (ligne = ligne +1 ) et tu lis les valeur de la cle1 et cle 2.

La je seche totalus !

pour la partie programme j'ai integré ca et ca a l'air de marcher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim Valeur as String
Valeur = lectureFichier("C:\kimoce.txt")
        MsgBox(Valeur)

des idées ? malgré le fait de potasser google et ses innombrables reponses j'ai pas trouvé celle que je voulais.
Un timide essai avec StrComp m'a tout flingué...

[cougarg]

Bonjour,

Pourquoi ne pas utiliser un fichier de config : app.config inclus dans ton projet. il doit être de la forme suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
   <appSettings>
 
      <!-- Commentaires -->
      <add key="cle1" value="val1" />
      <add key="cle2" value="val2" />
 
   </appSettings>
</configuration>

Ensuite, tu récupère les valeurs avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

System.Configuration.ConfigurationManager.AppSettings("cle1")

[Rhadawhisp]

ah mais mon boss est chiant il veut que du .INI pas de XML...

[Rhadawhisp]

en faite en reflechissant j'vais explorer ta piste mais par contre comment nomme les differentes section la pour le XML ? car j'ai bien commencé sur VS a faire un fichier app.config mais j'ai pas le code pour saisir le nom de la SECTION


AH mais quel vieux con ! j'mets le nom de la SECTION en commentaire...

[Pol63]

moi je parlais pour du ini modifié, mettre des balises ca sert pas à grand chose et ca complique le traitement (bien que ...)
parce que sans balise en 3 ligne avec 2 split tu obtiens toutes tes valeurs

si tu veux du ini pur, y a deja des trucs tout fait sur le net

http://www.google.fr/#hl=fr&source=h...664ed443768a09

[Rhadawhisp]

mon pb c'est de poser des conditions sur la lecture de mon fichier INI, le lire j'y arrive

[Pol63]

unstring.substring ?

[Rhadawhisp]

hum j'suis parti sur le app.config de VS 2005 et la je bloque a un truc j'arrive bien a faire que ma requete soit issue d'une clée du fichier app.config

ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .CommandText = System.Configuration.ConfigurationSettings.AppSettings("cle2") ' ou requete SELECT"

par contre pour la même chose avec ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
NS = OutlookApplication_definst.Application.GetNamespace("MAPI")
        'On se place dans les DossierPublic/Tous les dossiers publics/Fichiers Clients KIMOCE que l'on delete s'il existe
        NS.GetDefaultFolder(Outlook.OlDefaultFolders.olPublicFoldersAllPublicFolders).Folders("cle3").Delete()

EDIT : j'ai bien essayer un turc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NS.GetDefaultFolder(Outlook.OlDefaultFolders.olPublicFoldersAllPublicFolders).Folders.System.Configuration.ConfigurationSettings.AppSettings.Add("cle3", Outlook.OlDefaultFolders.olFolderContacts)

mais sans succes..
et ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'On crée le "Fichier Client Kimoce en placant dans DossierPublic/Tous les dossiers publics
        colCTSItems = NS.GetDefaultFolder(Outlook.OlDefaultFolders.olPublicFoldersAllPublicFolders).Folders.System.Configuration.ConfigurationSettings.AppSettings.Add("cle3", Outlook.OlDefaultFolders.olFolderContacts)

j'arrive pas a placer mes clée dedans...

quelqu'un aurait il une idée ?

[Rhadawhisp]

je me repond a moi même :

je declare donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim cle3 As String = System.Configuration.ConfigurationSettings.AppSettings("cle3")

et j'lapelle ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

colCTSItems = NS.GetDefaultFolder(Outlook.OlDefaultFolders.olPublicFoldersAllPublicFolders).Folders.Add(cle3, Outlook.OlDefaultFolders.olFolderContacts)

mon problème maintenant est de faire un truc qui me permet de pas coder a chaque fois 2 SUB pour faire la requete correspondant a cle XX et le dossier de destination a cle YY

[Rhadawhisp]

alors voila ou j'en suis et le problème que je rencontre, je dois lire la valeur d'une key issue de app.setting

mon app.setting est déclaré de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <appSettings>
 
    <!-- REQUETES -->
    <add key="Rqt1" value="SELECT CivDsc, CtcFstNamDsc, CtcNamDsc, CpyTrdNamDsc, CpyAddrStreet1Dsc, CpyAddrStreet2Dsc, CpyAddrZipDsc , CpyAddrExCde, CtcPhnNum, CtcFaxNum, CtcMailNum, DtyDsc as Titre1, CtcAbovDsc, CtcCellNum, CtcPrivNum, CpyAddrStreet2Dsc FROM p_cpy, p_cpyaddr, p_ctc, r_civ WHERE r_civ.CivInCde = p_ctc.CivInCde AND p_cpy.CpyInCde = p_cpyaddr.CpyInCde And p_cpyaddr.CpyAddrInCde = p_ctc.CpyAddrInCde AND p_ctc.ctcInCde >0 AND p_ctc.ctcNamDsc != 'KIMWEB' AND p_ctc.ctcNamDsc != 'VITO' AND p_ctc.ValidPnt != 0 AND p_cpy.cpyStsInCde = 2 AND p_cpy.ValidPnt != 0 AND p_cpy.CpyInCde != 1000" />
    <add key="Rqt2" value="SELECT CivDsc, CtcFstNamDsc, CtcNamDsc, CpyTrdNamDsc, CpyAddrStreet1Dsc, CpyAddrStreet2Dsc, CpyAddrZipDsc , CpyAddrExCde, CtcPhnNum, CtcFaxNum, CtcMailNum, DtyDsc as Titre1, CtcAbovDsc, CtcCellNum, CtcPrivNum, CpyAddrStreet2Dsc FROM p_cpy, p_cpyaddr, p_ctc, r_civ WHERE r_civ.CivInCde = p_ctc.CivInCde AND p_cpy.CpyInCde = p_cpyaddr.CpyInCde And p_cpyaddr.CpyAddrInCde = p_ctc.CpyAddrInCde AND p_ctc.ctcInCde >0 AND p_ctc.ctcNamDsc != 'KIMWEB' AND p_ctc.ctcNamDsc != 'VITO' AND p_ctc.ValidPnt != 0 AND p_cpy.cpyStsInCde = 2 AND p_cpy.ValidPnt != 0 AND p_cpy.CpyInCde = 1000" />
 
    <!--DOSSIER DESTINATION OUTLOOK-->
    <add key="Dst1" value="FICHIER Clients KIMOCE"/>
    <add key="Dst2" value="Employe Absyss"/>
 
  </appSettings>
</configuration>

ds mon programme j'arrive à lire les key mais pas les value correspondante, voilà le bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Tableau As Array = System.Configuration.ConfigurationSettings.AppSettings.AllKeys
 
        For Item As Integer = 0 To Tableau.Length - 1
            MsgBox(Tableau(Item))
        Next

j'ai chercher ds System.Configuration.ConfigurationSettings.AppSettings et je ne vois pas comment faire correspondre dynamiquement mes value pour chaque key sans le faire ne "DUR" dans mon programme

par ex comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Dim cle4 As String = System.Configuration.ConfigurationSettings.AppSettings("FICHIER Client KIMOCE")
 
 
 
 
 
 
 
 colCTSItems = NS.GetDefaultFolder(Outlook.OlDefaultFolders.olPublicFoldersAllPublicFolders).Folders.Add(cle4, Outlook.OlDefaultFolders.olFolderContacts)

des réponses a m'apporter ?

Cordialement.

[cougarg]

Bonjour,

Si le tableau te retourne toutes les clés, tu peux facilement retrouver les valeurs correspondantes. Après, cela dépend de ce que tu veux faire de ces valeurs. Tu peux l'utiliser directement, la conserver dans un tableau en vrac, ou conserver la correspondance cle <-> valeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim TableauValue As New ArrayList
Dim HTValue As New Hashtable
Dim Tableau As String()= System.Configuration.ConfigurationSettings.AppSettings.AllKeys
 
        For Each cle As String in Tableau
            Dim value as String = System.Configuration.ConfigurationSettings.AppSettings(cle)
 
            ' Traitement direct / appel fct
            ModeleFct(value)
 
            ' Tableau des valeurs
           TableauValue.Add(value) 
 
            Htable pour garder correspondance avec la cle
            If Not HTValue.Contains(value) Then
                HTValue.Add(cle, value)
            Else
                ' remplace la valeur si deja present
                HTValue.Item(cle) = value
             End If
 
        Next

[Rhadawhisp]

Voila le code fonctionnelle a 95% mais un dernier bug existe qqui est le suivant :

si je delete un dossier contact qui n'as pas ete crée précedemment j'ai une erreur d'execution.

une idée ?

voila le code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
 Imports Excel
Imports System.Text.RegularExpressions
'Module permettant d'importer le code VB6 qui est dans la premiere sub en .NET
Module UpgradeSupport
    Friend OutlookApplication_definst As New Outlook.Application
End Module
 
 
 
Public Class Form2
    Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        ' dans un événement click de bouton par exemple
        Dim xlApp As New Excel.Application
        'ajout d'une page et sélection 
        Dim xsTransfert As Excel.Worksheet = xlApp.Workbooks.Add.ActiveSheet
        Dim tabstr As String() = System.Configuration.ConfigurationSettings.AppSettings.AllKeys
        Dim nbReq As Integer = 0
        Dim nbDst As Integer = 0
        Dim rg As New Regex("Rqt([0-9])+")
        Dim rg2 As New Regex("Dst([0-9])+")
 
        For Item As Integer = 0 To tabstr.Length - 1
            If rg.IsMatch(tabstr(Item)) Then
                nbReq = nbReq + 1
            ElseIf rg2.IsMatch(tabstr(Item)) Then
                nbDst = nbDst + 1
            End If
        Next
 
        If (nbDst < nbReq Or nbReq = 0) Then
            MsgBox("Paramètres de conf incorrect")
            Me.Close()
        End If
 
        For I As Integer = 1 To nbReq
 
 
 
 
            Try
                ' ici on crée la chaine de connexion
 
 
                Dim str As String = "Rqt" + I.ToString
 
                With xsTransfert.QueryTables.Add(Connection:="ODBC;DRIVER=SQL Server;SERVER=NEPTUNE;APP=Microsoft® Query;DATABASE=absyss_test;Integrated Security=True", Destination:=xsTransfert.Range("A1"))
                    .CommandText = System.Configuration.ConfigurationSettings.AppSettings(str) ' ou requete SELECT"
                    .Name = "feuil1"
                    .FieldNames = True
                    .RowNumbers = True
                    .FillAdjacentFormulas = False
                    .PreserveFormatting = True
                    .RefreshOnFileOpen = False
                    .BackgroundQuery = True
                    .RefreshStyle = Excel.XlCellInsertionMode.xlOverwriteCells
                    .SavePassword = False
                    .SaveData = True
                    .AdjustColumnWidth = True
                    .RefreshPeriod = 0
                    .PreserveColumnInfo = True
                    .Refresh(BackgroundQuery:=False)
                End With
 
                ' affichage 
                xlApp.Visible = False
                'Gestion d'erreur
            Catch exa As Exception
                MsgBox("Va bosser ca marche pas !")
                MessageBox.Show(exa.Message)
            End Try
            'Sauvegarder le resultat de la requete SQL qui est copier dans mon fichier Excel
            xsTransfert.SaveAs("C:\toto" + I.ToString + ".xls")
            'Pour enlever le message "voulez vous sauvegarder..."
            xlApp.DisplayAlerts = True
            'Quit Excel
            xlApp.Quit()
            'Libérer les ressources
            xlApp = Nothing
            xsTransfert = Nothing
 
 
 
 
 
 
 
            Dim Path As Object
            Dim ex As Object
            Dim oApp As Object
 
            Dim oCont As Outlook.ContactItem
            Dim lig As Short
            Dim str2 As String = "Dst" + I.ToString
            Dim dossier As String = System.Configuration.ConfigurationSettings.AppSettings(str2)
 
            'ici on va créer le dossier contact s'il n'existe pas
            Dim NS As Outlook.NameSpace
            Dim colCTSItems As Object
            Dim oemployee As Outlook.ContactItem
            NS = OutlookApplication_definst.Application.GetNamespace("MAPI")
            'On se place dans les DossierPublic/Tous les dossiers publics/DstI que l'on delete s'il existe   
 
 
 
 
'======== ERREUR SE SITUE ICI =============
 
 
            NS.GetDefaultFolder(Outlook.OlDefaultFolders.olPublicFoldersAllPublicFolders).Folders(dossier).Delete()
 
 
 
 
 
 
            'On crée le "Fichier Client Kimoce en placant dans DossierPublic/Tous les dossiers publics
            colCTSItems = NS.GetDefaultFolder(Outlook.OlDefaultFolders.olPublicFoldersAllPublicFolders).Folders.Add(dossier, Outlook.OlDefaultFolders.olFolderContacts)
            ' Définie le dossier comme carnet d'adresse
            colCTSItems.ShowAsOutlookAB = True
            Err.Clear()
 
 
 
            oApp = CreateObject("Excel.Application")
            ex = oApp.Workbooks.Open("C:\toto" + I.ToString + ".xls")
 
            lig = 2
            Do Until ex.Sheets("Feuil1").Cells(lig, 2).Value = ""
                'ici on créé un nouveau contact
                oCont = colCTSItems.Items.Add(Outlook.OlItemType.olContactItem)
 
 
 
                'Nom
                oCont.FirstName = ex.Sheets("Feuil1").Cells(lig, 4).Value
 
                'Prénom
                oCont.LastName = ex.Sheets("Feuil1").Cells(lig, 3).Value
 
                'Adresse du Bureau
                oCont.BusinessAddressStreet = ex.Sheets("Feuil1").Cells(lig, 6).Value + Chr(13) + ex.Sheets("Feuil1").Cells(lig, 17).Value
 
                'Nom Complet / Titre
                oCont.Title = ex.Sheets("Feuil1").Cells(lig, 2).Value
 
                'Titre
                oCont.JobTitle = ex.Sheets("Feuil1").Cells(lig, 13).Value
 
                'Adresse Bureau/ Ville
                oCont.BusinessAddressCity = ex.Sheets("Feuil1").Cells(lig, 9).Value
 
                'Adresse Bureau/ Code postal
                oCont.BusinessAddressPostalCode = ex.Sheets("Feuil1").Cells(lig, 8).Value
 
                'Société
                oCont.CompanyName = ex.Sheets("Feuil1").Cells(lig, 5).Value
 
                'Ville Bureau
                'oCont.BusinessAddressCountry = ex.Sheets("Feuil1").Cells(lig, 15).Value
 
                'Classer Sous / Nom du manager
                oCont.ManagerName = ex.Sheets("Feuil1").Cells(lig, 14).Value
 
                'Numero de telephone Bureau
                oCont.BusinessTelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 10).Value
 
                'Numero de telephone 2  pro
                'oCont.Business2TelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 33).Value
 
                'Numero de telephone domicile
                'oCont.HomeTelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 38).Value
 
                'Autre Numero de telephone
                'oCont.OtherTelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 40).Value
 
                'Numero de telephone / télécopie (bureau)
                oCont.BusinessFaxNumber = ex.Sheets("Feuil1").Cells(lig, 11).Value
 
                'Numero de telephone / telephone mobile
                oCont.MobileTelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 15).Value
 
                'Numero de telephone / Domicile
                oCont.HomeTelephoneNumber = ex.Sheets("Feuil1").Cells(lig, 16).Value
 
 
                'Adresse de messagerie
                oCont.Email1Address = ex.Sheets("Feuil1").Cells(lig, 12).Value
 
                lig = lig + 1
                oCont.Save()
            Loop
            'A la fin faut fermer excel
            oApp.Quit()
 
            'On libère les ressources
            ex = Nothing
            oApp = Nothing
            GC.Collect()
            GC.WaitForPendingFinalizers()
            GC.Collect()
            GC.WaitForPendingFinalizers()
            Kill("C:\toto" + I.ToString + ".xls")
        Next
        Me.Close()
    End Sub
 
 
 
 
 
 
 
End Class

[narutobaka]

Bonjour,

Petite question concernant tes requêtes à la base de donnée, dans ta dernière version les as-tu laissés dans les paramètres d'applications?

As-tu fait une recherche concernant les procédures stockées?

Si tu utilises Mssql comme SGBD, cela devrait être plus propre d'utiliser les procédures stockées?

++