Cliquez avec le bouton droit de la souris sur une zone de votre Bureau où il n’y a pas de raccourci et sélectionnez Nouveau.
Sélectionnez Raccourci dans le sous-menu Nouveau.
Entrez :
explorer.exe shell:::{3080F90D-D7AD-11D9-BD98-0000947B0257}
dans la zone Entrez l’emplacement de l’élément.
Cliquez sur Suivant pour passer à la dernière étape de l’assistant.
Effacez le nom par défaut et saisissez Afficher le Bureau (ou tout autre nom de votre choix) dans la zone Entrez un nom pour ce raccourci.
Cliquez sur Terminer pour ajouter le raccourci Afficher le bureau sur le Bureau.
Cliquez avec le bouton droit de la souris sur le raccourci Afficher le Bureau pour sélectionner Afficher plus options > Épingler à la barre des tâches.
Accélérer les accès disque en Windows
Désactiver la date de dernier accès aux fichiers – Windows 10
cmd en mode administrateur
fsutil behavior set disablelastaccess 1
Sites Google
Raccourci vers différentes fonctionnalités Google
A propos de ce site
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.
Déplacement d’une ligne entre 2 tables
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
Ejection d’un utilisateur en cas d’inactivité prolongée
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)
Changer la couleur des titres de colonne d’une table
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
Impression d’un état avec un champ RTF
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)
Exporter une requête en Excel
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
Charger en Excel tout le contenu de formulaires Word se trouvant dans un dossier
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