W. Compartimenter-les-données, .. Diagrammefile, /. Projet, .. Diagramme-dans-ocs-grâce-au, V. Table et al., B Diagramme 21 : Élimination des lignes dupliquées E Diagramme 24 : Fusion des onglets, Diagramme 19 : Importation des logs

*. Faq-lire-et-Écrire-dans-un-fichier and . Ini, Disponible sur : <http://access.developpez.com/faq/?page=ActionsRep>: Il est utilisé pour

I. La-balise, utiliser iframe lors de la mise ne page des graphiques linéaires du « Licence Pro/ENGINEER ») [en ligne, Disponible sur

. Visual-engineering and . Inc, KavaChart ProServe Users Guide [en ligne] Disponible sur, 2004.

A. Unicode, C. Character-codes-for, V. Vbscript, . Net, and . Php, Disponible sur < http

. Faq-windows and . Batch, Disponible sur : < http://windows.developpez.com/faq/batch/?page=fichiers> Savoir utiliser les batch pour regrouper des fichiers txt, traiter ces fichiers

. Disponible-sur, excel-downloads.com/forum/91722-vba-comment-remplacer- une-valeur-par-une-variable-dans-formular1c1.html > permet de calculer la somme d'une colonne

S. Lhullier, Formation Perl ? Formateur Perl [en ligne]. Disponible sur : < http, 2002.

J. C. Van-dan-hekke, PERL, le cours du débutant [en ligne]. Disponible sur : < http, 1999.

C. Perl and L. , Disponible sur : < http

P. Programming-documentation, Disponible sur : < http

F. Ms-, Access lire et écrire [en ligne] Disponible sur : < http

. Supprimer-une-ligne-complète, Disponible sur : < http

. Tester-la-présence-d-'un-onglet-dans-un, Disponible sur : < http://www.developpez.net/forums/d150119/logiciels/microsoft-office/excel/macros-vba- excel/vba-tester-presence-feuille-excel

. Piloter-internet-depuis-le-vba, Disponible sur : < http

I. Fermer-les-fenêtres-téléchargement-de-fichiers, Disponible sur : <http://www.presence-pc.com/forum/ppc/Programmation/excel-sendmessage-fonctionne- sujet-6547-1

L. Filtres and V. Excel, Disponible sur : < http

. Vider-le-presse, Disponible sur : < http

M. Les, Disponible sur : < http

P. Internet, Disponible sur : < http

. Rassembler-tous-les-classeurs-d-'un-répertoire,-ds-un-fusionner-classeur, Disponible sur : < http

S. Sur-une-page-web, Disponible sur : < http

C. Wiki, Disponible sur : < http

?. Hardware and . Configuration, Disponible sur : < http://bytes.com/topic/networking/answers/892227-conversion-full-pcap-file-incl-header- information-into-txt-using-tshark>

D. Wiki, Disponible sur : < http

R. Et-modifier-le-titre-d, une fenetre -Vb System Library -VbSystemLibrary -VbSysLib ? VSL [En ligne]. Disponible sur : < http

D. Lireini, Date_en_cours

Y. Lireini, Annee_en_cours

J. Lireini, Jour_en_cours

. Pp-'ecrireini, PicADV_AssemblyMaVariablePicADV_SurfaceMaVariablePicCabling_OptMaVariablePicTolerance_AnalysisMaVariableFin Initialisation des variables à faire une fois

S. Myrange and =. Range, End(xlUp).Row) End With Reponse = Application.WorksheetFunction.Max(MyRange) Foundation = Reponse

S. Myrange and =. Range, End(xlUp).Row) End With Reponse = Application.WorksheetFunction.Max(MyRange) Meca_DESIGN = Reponse If Val(LireINI("PicMeca_DESIGNMaVariable, C" & .Rows.Count)

S. Myrange, =. Range, and &. Range, End(xlUp).Row) End With Reponse = Application, & .Rows.Count)

S. Myrange and =. Range, End(xlUp)Row) End With Reponse = Application.WorksheetFunction.Max(MyRange) ADV_Surface = Reponse If Val(LireINI("PicADV_SurfaceMaVariable")) < Val(ADV_Surface) Then EcrireINI "PicADV_Surface, & .Range & .Rows.Count) ADV_Surface End If, issue.11

S. Myrange, =. Range, and &. Range, End(xlUp)Row) End With Reponse = ApplicationPicCabling_OptMaVariable")) < Val(Cabling_Opt) Then EcrireINI "PicCabling_OptMaVariable", Cabling_Opt End If '12) Max des licences PRO/E Tolerance_Analysis With SheetsEnd(xlUp).Row) End With Reponse = Application.WorksheetFunction.Max(MyRange) Tolerance_Analysis = Reponse If Val(LireINI("PicTolerance_Analysis Val(Tolerance_Analysis) Then SS EcrireINI "PicTolerance_AnalysisPicFoundation, ProE_11_Days_Overview_HMS") Set MyRange = .Range("G1:G" & .Range("G" & .Rows.Count) Tolerance_Analysis End If '13) Fermer ProE_11_Days_Overview_HMS.dat ActiveWorkbook.Close True '14) Relecture des variables Foundation = LireINI

=. Meca_design and . Lireini, PicMeca_DESIGN

=. Adv_assembly and . Lireini, PicADV_Assembly

=. Adv_surface and . Lireini, PicADV_Surface

=. Cabling_opt and . Lireini, PicCabling_Opt

=. Tolerance_analysis and . Lireini, PicTolerance_Analysis

/. Ecrire-le-résultat-dans-le-fichier-proe_18_pic_licence and D. Meca, dat intFic2 = FreeFile OpenC:\Inetpub\wwwroot\ptcstat\ProE_18_PIC_licence.dat" For Append As intFic2 Print #intFic2PRO/E Foundation: " & Foundation & Chr(10), & Meca_DESIGN & Chr, issue.10

&. Adv_assembly, /. Chr, &. Adv-surface-adv_surface, &. Chr-cabling_opt, /. Chr et al., Cabling Opt & Tolerance_Analysis Close intFic2 End IfNous sommes > Février, Month(Date) = 2) And (Not Date Like DEC) Then

_. =xlnone and . Consecutivedelimiter, Semicolon:=False, Comma:=True _ , Space:=False, Other:=False '2) On sauvegarde le fichier nom2 ActiveWorkbook.SaveAs Filename:="C:\Inetpub\wwwroot\ptcstat\rapport\usergroupcumulate\" & nom2 ActiveWorkbookClose True '3) On ouvre Licenses by users.xlsx WorkbooksOpenText Filename:="C:\Inetpub\wwwroot\ptcstat\Licenses by users.xlsx", Origin:= _ xlWindows, DataType:=xlDelimited, TextQualifier:=xlNone, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _ , Space:=False, Other:=False '4) On sauvegarde le fichier SheetsActivate RangeA2:C" & RangeEnd(xlUp).Row)Select Selection.Delete Shift:=xlUp ActiveWorkbook.Save ActiveWorkbook.Close TrueFin Mise à zéro de Licenses by users.xlsxPicFoundationMaVariable, ) On ouvre la dernière sauvegarde de pic Workbooks.OpenText Filename:="C:\Inetpub\wwwroot\ptcstat\Pic\" & nom, Origin:= _ xlWindows, DataType:=xlDelimited, TextQualifier:=xlNone, _ UU ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _ , Space:=False, Other:=False '2) On sauvegarde le fichier nom = "Year_Pic_Licence_" & YEC & ".txt" ActiveWorkbook.SaveAs Filename:="C:\Inetpub\wwwroot\ptcstat\Pic\" & nom ActiveWorkbook.Close True '3) On remet l'ensemble des valeurs à zéro EcrireINI

. On-ouvre-proe_18_pic_licence, C:\Inetpub\wwwroot\ptcstat\ProE_18_PIC_licence.dat DataType:=xlDelimited, TextQualifier:=xlNone, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _ , Space:=False, Other:=False '5) Effacer les données ActiveSheet.Cells.Clear '6) Fermer et enregistrer ActiveWorkbookPicFoundation, Origin:= _ xlWindows

=. Meca_design and . Lireini, PicMeca_DESIGN

=. Adv_assembly and . Lireini, PicADV_Assembly

=. Adv_surface and . Lireini, PicADV_Surface

=. Cabling_opt and . Lireini, PicCabling_Opt

=. Tolerance_analysis and . Lireini, PicTolerance_Analysis

/. Ecrire-le-résultat-dans-le-fichier-proe_18_pic_licence and D. Meca, dat intFic2 = FreeFile OpenC:\Inetpub\wwwroot\ptcstat\ProE_18_PIC_licence.dat" For Append As intFic2 Print #intFic2PRO/E Foundation: " & Foundation & Chr(10), & Meca_DESIGN & Chr, issue.10

&. Adv_assembly, /. Chr, &. Adv-surface-adv_surface, &. Chr-cabling_opt, /. Chr et al., Cabling Opt & Tolerance_Analysis Close intFic2 End IfFin Nous sommes > Février, DisplayAlerts = True End Sub Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String Fichier = "C:\Inetpub\wwwroot\ptcstat\Parameters.ini" WriteINI = WritePrivateProfileString) End Function Function LireINI(Entete As String, Variable As String) As String Dim Retour As String Fichier = "C:\Inetpub\wwwroot\ptcstat\Parameters.ini" Retour = String

=. Texteuser and . Texteuser, Fin Reconnaissance des utilisateurs non groupés

=. Advanc_assy and . Lireinid, Advanc_Assymsg

=. Advanc_surf and F. Lireinidproe, Advanc_SurfmsgRangeRangeValue & Chr(10) & " StateRangeValue & Chr(10) & Chr(10RangeValue & Chr(10) & " Free: " & WorksheetsRangeValue & Chr(10) & " State: " & WorksheetsRangeValue & Chr(10) & Chr(10) & _ "-PROE ADVANCED ASSEMBLY (MAX 17):" & Chr(10) & " Used: " & WorksheetsAdvanc_Assy")Range("I7")Value & Chr(10) & " Free: " & WorksheetsAdvanc_Assy")Range("I6")Value & Chr(10) & " State: " & WorksheetsRangeValue & Chr(10) & Chr(10) & _ "-PROE ADVANCED SURFACE (MAX 6):" & Chr(10) & " Used: " & WorksheetsRangeValue & Chr(10) & " Free: " & WorksheetsRangeValue & Chr(10) & " State: " & WorksheetsRangeValue & Chr(10) & Chr(10) & _ "-PROE TOLERANCE ANALYSIS EXTENSION (MAX 1):" & Chr(10) & " Used: " & WorksheetsRangeRangeRangeValue & Chr(10) & Chr(10) & _ "-PROE CABLING Option (MAX 4):" & Chr(10) & " Used: " & WorksheetsRangeValue & Chr(10) & " Free: " & WorksheetsRangeRangeValue & Chr(10) & Chr(10) & _ "This E Mail is automaticaly sent when the number of avalaible licenses is forRangeRange, I7").Value & Chr(10) & " Free: " & WorksheetsI6").Value & Chr(10) & " State: " & WorksheetsI6").Value & Chr(10) & " State: " & WorksheetsValue & Chr(10) & _ AAA "PRO/E Advanc Ass:" & Worksheets("Advanc_Assy").Range("I9").Value & Chr(10) & _ "PRO/E Advanc Sur:" & Worksheets("Advanc_Surf").Range("I9").Value & Chr(10) & _ "PRO/E Cabling Opt:" & Worksheets("Cabling_Option").Range("I9").Value & Chr(10) & Chr(10) & _ "More information of license use: \\D020106\Inetpub\wwwroot\ptcstat\NEOPOST_PROE_LICENSE_MONITORING.htm" & "" & Chr(10) & _ "This E-Mail has been sent by a robot, DO NOT REPLY. For more information Please Contact: r.desire@NEOPOST.com" .Send End With On Error GoTo 0

. Un-Élément-contenant-un-lien-'ce-qui-implique-que-cet-Élément-est-un-lien-intra, est un élément révisé If ActiveCellText Like "*s02007.neopost.grp*" Then SelectionOffset(0, -1)Select ActiveCell.Offset(1, 0)Select cpt3 = 1 'Sinon, cet élément peut être traité Else Selection.Offset(0, -1)SelectFin traitement de la ligneDEBUT DELETE FILE 2.TXT s'il existe: Il recevra le code HTML d'eRoom, Else Selection.Offset Dim fso1 Dim file1 As String file1 = "D:\Profiles\ndiaye\Bureau\Test_061210\2.txt" Set fso1 = CreateObject("Scripting

. Activecell, Select ActiveCellActivate cpt = cpt + 1 Loop Else UUU ' Traitement des bases de donnéesActivate RangeSelect cptdb1 = cptdb -1 nextattrib: Do Until cpt = cptdb1 'Recherche des attributs base de données grâce à <TH id Cells.Find(What:=occurence6, after:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False)Activate StartRow:=1, DataType:=xlFixedWidth, othercharActivate End If With Worksheets, TrailingMinusNumbers:=True Else WindowsA1:A50900"), "=" & cle) 'Nombre de lignes à insérer dans eRoom.txt cptdb3 =, pp.2-3

. Activecell, Offset(0, 1)Select ActiveCell = "name" & ActiveCell End If

E. Closeclipboard, Vider la mémoire, pp.3-4

C. Appel-de-la-fonction-ouvrir and <. Ouvrir-chemin-if-msg, Then _ MsgBoxPour des raisons de protection ou autres, n'ont pu être copiées " & vbCrLf & msg End SubFin programme Traitement de plusieurs pages, Dim Chemin As String LastExcel = "D:\Profiles\ndiaye\Bureau\Test_061210\2.txt" Open LastExcel For Output As #1 Close Application.ScreenUpdating = False Chemin

F. Set, . Wk, and . Worksheets, feuille où les données sont collées For Each LaFeuille In CL2.Worksheets 'parcours du classeur à copier 'On vérifie que la feuille n'est pas vide If Not (LaFeuille.UsedRange.Address = "$A$1" And RangeEnd(xlUp)Row + 1 'première ligne vide On Error Resume Next LaFeuille.UsedRange.Copy FL1.Cells(derlig, 1) DoEvents Wk.WorksheetsSave ActiveWorkbook.SaveAs Filename:="D:\Profiles\ndiaye\Bureau\Test_061210\2, Rows.Count), issue.2

A. Liste-exhausi and E. , Liste exhausive des rooms projets (racines) (racines) d'eRoom FFFF ANNEXE M Batch d'extraction de métadonnées de room spécifique d'eRoom

. Un-fichier-batch, bat) me permet d'exécuter des scripts VBS spécifiques à la demande Un exemple serait de l'utiliser pour extraire les métadonnées d'une room que le maître d'oeuvre me demandera en priorité. En exemple, le fichier « priorite