Désactiver la date de dernier accès aux fichiers – Windows 10
cmd en mode administrateur
fsutil behavior set disablelastaccess 1
Désactiver la date de dernier accès aux fichiers – Windows 10
cmd en mode administrateur
fsutil behavior set disablelastaccess 1
Raccourci vers différentes fonctionnalités Google
Ce site reprend différentes procédures ou routines récurrentes lors des développements en Windev. Elle est le résultat du travail de nombreux informaticiens notamment les membres du forum des développeurs windev-forum@listes.arvalis.net que je remercie ici tout particulièrement. N’hésitez pas à nous écrire afin d’apporter votre contribution ou nous proposer des améliorations.
Un moyen simple de déplacer le contenu d’une ligne d’une table dans une autre table strictement identique.
Pour Toute Ligne Sélectionnée de Table1 TableAjouteLigne(Table2,Table1.Colonne1,Table1.Colonne2,Table1.Colonne3,Table1.Colonne4) Fin
ou
Pour Toute Ligne Sélectionnée nLigne de Table1 TableAjoute(Table2,Table1[nLigne]) Fin
Source : Emprin Frédéric
Dans le code d’initialisation du projet
// Initialisation Détection de l'inactivité de l'utilisateur LASTINPUTINFO est une Structure nCbTaille est un entier sans signe sur 4 nDwTime est un entier FIN gnTimerinactivité est un entier = TimerSys("gestionInactivite", 600) gnDuréeEnMinute est un entier = 60 // Durée d'inactivité = 1 heure // Fin d'initialisation Détection de l'inactivité de l'utilisateur
Dans un timer, on appelle une procédure :
PROCEDURE GLOBAL gestionInactivite() nDiff est un entier InfoUser est un LASTINPUTINFO //On le relance une fois fini (évite les erreurs en boucle) donc on l’arrête FinTimerSys(gnTimerinactivité) InfoUser:nCbTaille = Dimension(InfoUser ) SI API("user32","GetLastInputInfo",&InfoUser ) <> 0 ALORS nDiff = API("Kernel32","GetTickCount" )-InfoUser:nDwTime // on vérifie le temps d'inactivité en ms SI nDiff >= 10*6000*gnDuréeEnMinute ALORS Ouvre(FEN_EjectionProgramme) // on propose de sortir du programme FIN //Traitement fini, on relance le timer gnTimerinactivité = TimerSys("gestionInactivite", 600)
pour x = 1 to TableOccurrence(TABLE_RapportGénéral,toColonne) sColonne = TableEnumèreColonne(TABLE_RapportGénéral,x) {"TABLE_RapportGénéral."+sColonne,indchamp}..libellé =gStylo(noir)+{"TABLE_RapportGénéral."+sColonne,indChamp}..Libelle fin
Si vous rencontrez des problèmes pour imprimer en PDF un état contenant un champ RTF, (Décalage des textes, et des tableaux), voici la solution
iDestination(iPDFGénérique,sNomPDF)
iParamètre ( iRTFAvecImagesEtTableaux , Vrai )
iImprimeEtat(ETAT_Chantiers_Rapport_Suivi_Chantier,LIB_IDChantier)
Procedure RequêteVersExcel(sdMaRequete est une Source de Données,sCheminFichierExcel est une chaîne)
xlsExport est un xlsDocument
xlsAjouteFeuille(xlsExport,"Feuille 1")
xlsFeuilleEnCours(xlsExport,1)
sRubriques est une chaîne = HListeRubrique(sdMaRequete)
POUR TOUTE CHAINE sRub,nPos,nColonne DE sRubriques SEPAREE PAR RC
xlsExport[nColonne,1] = sRub
FIN
nLigne est un entier = 2
POUR TOUTE sdMaRequete
POUR TOUTE CHAINE sRub,nPos,nColonne DE sRubriques SEPAREE PAR RC
xlsExport[nLigne,nColonne] = {sdMaRequete..Nom+"."+sRub,indrubrique}
FIN
nLigne ++
FIN
xlsSauve(xlsExport,sCheminFichierExcel
Sub Button1_Click() Dim oFSO As New FileSystemObject Dim oFil As File Dim oFold As Folder Set oFold = oFSO.GetFolder("C:\Temp\") For Each oFil In oFold.Files If Right(oFil.Name, 4) = "docx" Then Extract (oFil.Name) End If Next oFil Set oFSO = Nothing End Sub Public Function Extract(oFN As String) On Error Resume Next Dim wApp As New Word.Application Dim oDoc As Word.Document Dim rs As DAO.Recordset Dim sql As String Dim i As Integer, j As Integer Dim resp Set oDoc = wApp.Documents.Open(FileName:="D:\Temp\" & oFN) oDoc.Unprotect i = oDoc.ContentControls.Count ''resp = MsgBox(i, , "NumberOfFormfields") ''resp = MsgBox(oDoc.ContentControls(2).Range) Debug.Print i Dim sheet As Excel.Worksheet Set sheet = Workbooks("Collection.xlsm").Worksheets("Collection") For j = 0 To i sheet.Cells(1, j).Value = oDoc.ContentControls(j).Range Next j 'sheet.Columns(j + 1) = oFN sheet.Columns.Update oDoc.Close SaveChanges:=False Set sheet = Nothing Set oDoc = Nothing wApp.Quit End Function
Voici le code Windev permettant
QUAND EXCEPTION DANS word est un objet OLE "Word.Application" word>>Visible=Faux // Word n'apparait pas à l'écran // Ouverture du document word>>Documents>>Open(sNomFichier) // Ecriture dans Word //word>>Selection>>TypeText("Texte écrit par WinDev") word>>DisplayAlerts= False SI word>>ActiveDocument>>ProtectionType = 2 word>>ActiveDocument>>unprotect("Password") FIN word>>ActiveDocument>>MailMerge>>OpenDataSource(sNomFichierExcel) // on prépare le publipostage vers un nouveau document word>>ActiveDocument>>MailMerge>>Destination=0 Multitâche(-30) // on fusionne vers un nouveau document word>>ActiveDocument>>MailMerge>>Execute(Faux) word>>ActiveDocument>>Protect(2,Faux,"Password") //word>>ActiveDocument>>Saveas(sNomFichierPDF,17) // Enregistrement du document modifié word>>Activedocument>>save() word>>Activedocument>>Quit // Fermeture de Word FAIRE word>>Quit Info(ExceptionInfo(errComplet)) FIN