B Diagramme 21 : Élimination des lignes dupliquées E Diagramme 24 : Fusion des onglets, Diagramme 19 : Importation des logs ,
Disponible sur : <http://access.developpez.com/faq/?page=ActionsRep>: Il est utilisé pour ,
utiliser iframe lors de la mise ne page des graphiques linéaires du « Licence Pro/ENGINEER ») [en ligne, Disponible sur ,
KavaChart ProServe Users Guide [en ligne] Disponible sur, 2004. ,
Disponible sur < http ,
Disponible sur : < http://windows.developpez.com/faq/batch/?page=fichiers> Savoir utiliser les batch pour regrouper des fichiers txt, traiter ces fichiers ,
excel-downloads.com/forum/91722-vba-comment-remplacer- une-valeur-par-une-variable-dans-formular1c1.html > permet de calculer la somme d'une colonne ,
Formation Perl ? Formateur Perl [en ligne]. Disponible sur : < http, 2002. ,
PERL, le cours du débutant [en ligne]. Disponible sur : < http, 1999. ,
Disponible sur : < http ,
Disponible sur : < http ,
Access lire et écrire [en ligne] Disponible sur : < http ,
Disponible sur : < http ,
Disponible sur : < http://www.developpez.net/forums/d150119/logiciels/microsoft-office/excel/macros-vba- excel/vba-tester-presence-feuille-excel ,
Disponible sur : < http ,
Disponible sur : <http://www.presence-pc.com/forum/ppc/Programmation/excel-sendmessage-fonctionne- sujet-6547-1 ,
Disponible sur : < http ,
Disponible sur : < http ,
Disponible sur : < http ,
Disponible sur : < http ,
Disponible sur : < http ,
Disponible sur : < http ,
Disponible sur : < http ,
Disponible sur : < http://bytes.com/topic/networking/answers/892227-conversion-full-pcap-file-incl-header- information-into-txt-using-tshark> ,
Disponible sur : < http ,
une fenetre -Vb System Library -VbSystemLibrary -VbSysLib ? VSL [En ligne]. Disponible sur : < http ,
Date_en_cours ,
Annee_en_cours ,
Jour_en_cours ,
PicADV_AssemblyMaVariablePicADV_SurfaceMaVariablePicCabling_OptMaVariablePicTolerance_AnalysisMaVariableFin Initialisation des variables à faire une fois ,
End(xlUp).Row) End With Reponse = Application.WorksheetFunction.Max(MyRange) Foundation = Reponse ,
End(xlUp).Row) End With Reponse = Application.WorksheetFunction.Max(MyRange) Meca_DESIGN = Reponse If Val(LireINI("PicMeca_DESIGNMaVariable, C" & .Rows.Count) ,
End(xlUp).Row) End With Reponse = Application, & .Rows.Count) ,
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 ,
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 ,
PicMeca_DESIGN ,
PicADV_Assembly ,
PicADV_Surface ,
PicCabling_Opt ,
PicTolerance_Analysis ,
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 ,
Cabling Opt & Tolerance_Analysis Close intFic2 End IfNous sommes > Février, Month(Date) = 2) And (Not Date Like DEC) Then ,
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 ,
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 ,
PicMeca_DESIGN ,
PicADV_Assembly ,
PicADV_Surface ,
PicCabling_Opt ,
PicTolerance_Analysis ,
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 ,
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 ,
Fin Reconnaissance des utilisateurs non groupés ,
Advanc_Assymsg ,
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 ,
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 ,
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 ,
Offset(0, 1)Select ActiveCell = "name" & ActiveCell End If ,
Vider la mémoire, pp.3-4 ,
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 ,
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 ,
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 ,
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 ,