[VB.NET] Projet Informatique PTI BTS

Projet Informatique PTI BTS [VB.NET] - VB/VBA/VBS - Programmation

Marsh Posté le 17-02-2010 à 09:50:37    

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"

Citation :

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


Message édité par hazzelthorn le 17-02-2010 à 10:10:22
Reply

Marsh Posté le 17-02-2010 à 09:50:37   

Reply

Marsh Posté le 17-02-2010 à 12:01:00    

Ben pour la partie POO, c'est raté à première vue :/ Puis le choix du langage, VB, ça fait pas très sérieux. Du C# ou du java par exemple serait quand même mieux et plus sérieux (surtout pour la partie POO). Avant de commencer à coder comme un gros cochon, as-tu fais de la conception (au moins le diagramme des classes)?


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
Reply

Marsh Posté le 17-02-2010 à 13:18:26    

JAVA j'me demerde pas trop mal mais le VB m'est imposé... le codé a deja evolué a l'heure qu'il est j'utilise maintenant un fichier.INI pour lire mes variables. ca m'est aussi imposé.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed