Sub Protection()
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="123"
End Sub
Archives par catégorie : Divers
Windev – Hajoute avec un id automatique crée un doublon
Il suffit de renouveler le dernier identifiant automatique :
HLitDernier(Véhicules,IDVéhicules)
HModifie(Véhicules,hNumEnrEnCours,hFixeIdAuto)
Google Documents est à votre écoute
Le traitement de texte Google Doc en ligne bénéficie maintenant d’un système de reconnaissance vocale. Dictez votre texte au lieu de le taper au clavier. Le système développé par Google est très fiable. La reconnaissance est rapide et pratiquement sans faute.
Vous pouvez dicter votre texte en Français. Quarante langues sont supportées. Ce qui impressionne ici c’est l’efficacité de l’outil sur de longues phrases. Difficile de prendre le système en défaut.
Pour utiliser cette nouvelle fonction de Google Docs, il suffit de créer un nouveau document puis dans le menu Outils sélectionner « Saisie vocale ». Un micro va s’afficher à droite de votre fenêtre. En cliquant dessus, celui-ci passe au rouge et vous pouvez commencer la dictée.
Modifier un champ en haut de rupture
Pour mettre à jour un champ figurant dans le haut de rupture d’une table mémoire
TableTrie(TABLE,"+COL_Prestataire","+COL_Client") TableAffiche(TABLE,taCourantBandeau) POUR TOUTE LIGNE nLigne DE TABLE nIndice = TableIndiceRupture(RUPT_HautRupture1,nLigne) TABLE[nIndice].SAI_Prestataire = TABLE.COL_Prestataire[nLigne] FIN TableAffiche(TABLE,taCourantBandeau)
Se désinscrire définitivement de Facebook
Pour une suppression complète et définitive du compte. allez à l’adresse suivante : https://www.facebook.com/help/delete_account
puis suivez les étapes.
Calendrier annuel
Crédit : neptune@merdunord.fr
POUR x = 1 A 12 POUR i = 1 A 31 {"MOIS"+x,indChamp}[i]=DateEnCours..Jour+" "+DateVersJourEnLettre(DateEnCours) SI EstPair(NuméroDeSemaine(DateEnCours)) ALORS {"S"+x,indChamp}[i]..CouleurFond = VertPastel SI EntierVersJour(DateVersEntier(DateEnCours))= 6 ALORS {"MOIS"+x,indChamp}[i]..CouleurFond = RougePastel FIN SI EntierVersJour(DateVersEntier(DateEnCours))= 7 ALORS {"MOIS"+x,indChamp}[i]..CouleurFond = RoulePastel FIN nResultat = TableauCherche(gclJoursFeries:UneListeDeJoursFeries,tcLinéaire,"DATE_JF",DateEnCours,1) SI nResultat <> -1 ALORS {"MOIS"+x,indChamp}[i]..CouleurFond = GrisClair FIN SI DateEnCours = DateSys() ALORS {"MOIS"+x,indChamp}[i]..CouleurFond = RougeClair FIN DateEnCours..Jour += 1 SI DateEnCours..Mois <> MoisEnCours ALORS SORTIR FIN FIN MoisEnCours = DateEnCours..Mois FIN
Créer votre compilateur
Compile("P1",SAI_Saisie) ExécuteTraitement("P1",trtProcédure)
Windows 8, désactiver la proposition de passage à Windows 10
Démarrer le planificateur de tâches
clic gauche sur bibliothèque du planificateur de tâches
clic gauche sur Microsoft
clic gauche sur Windows
descendre jusqu’à Setup
clic gauche sur Setup
double clic gauche sur Gwx
une fois Gwx ouvert
– clic droit sur launchtrayprocess et sélectionner désactiver
– clic droit sur refreshgwxconfig et sélectionner désactiver
Pour une solution plus radicale, supprimer la mise à jour KB3035583 : http://www.pcastuces.com
Convertir un numérique en chaîne
NumériqueVersChaîne(123,"05d") // Renvoie "00123"
NumériqueVersChaîne(123) // Renvoie "123"
NumériqueVersChaîne(1.23) // Renvoie "1.23"
NumériqueVersChaîne(12345.5, "+10.2f") // Renvoie " +12345.50"
NumériqueVersChaîne(12345.5, "-+10.2f") // Renvoie "+12345.50"
NumériqueVersChaîne(12345.5, "+010.2f") // Renvoie "+012345.50"
NumériqueVersChaîne(12345.5, "010.2f") // Renvoie "0012345.50"
NumériqueVersChaîne(12345.5, "10.2fS") // Renvoie " 12 345.50"
NumériqueVersChaîne(12345.5, "10,2fS") // Renvoie " 12 345,50"
Envoyer un code d’ouverture d’une caisse via un port série
ppor est un entier = 1 // numéro du port série TANTQUE PAS sOuvre(ppor,1000,1000) SI Confirmer("Impossible d'ouvrir le port série"+" "+ ppor,"Souhaitez-vous faire un nouvel essai ?") <> Oui ALORS RETOUR FIN sEcrit(ppor,pcod) // Ecriture directe dans le port série sFerme(ppor)