Pour définir la largeur des fenêtres dans la barre des tâches de Windows.
regedit
Ajouter/éditer la clef :
HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\MinWIdth
Positionner une valeur en pixels, par exemple 152.
Redémarrer l’ordinateur.
Installer un serveur SVN sous Windows
Posted by DiabloCorps on 28 novembre 2011
0 comments
Télécharger le serveur SNV.
Installer le serveur.
Positionner la variable d’environnement SVN_EDITOR avec Nodepad++, UltraEdit ou autre.
Créer un répertoire destiné à SVN sur un disque dur.
D:\mkdir svn_repos
Créer le repository dans SVN.
D:\svnadmin create "d:\svn_repos"
Editer les fichiers svnserve.conf et passwd du répertoire D:\svn_repos.
Dans le fichier svnserve.conf, décommenter les lignes [general] , anon-access = read, auth-access = write, et password-db = passwd.
Dans le fichier passwd, ajouter une ligne du type toto = blague.
Taper la commande :
svnserve --daemon --root "d:\svn_repos"
Ouvrir une seconde fenêtre de commande DOS, et taper :
svn mkdir svn://localhost/monprojet
L’éditeur de texte que vous avez paramétré en variable d’environnement s’ouvrira alors sur un fichier avec du texte déjà présent.
Taper un commentaire, par exemple « Création de mon projet » au début du fichier ( avant la ligne commençant par « – » ). Sauvegarder le fichier et fermer l’éditeur.
Dans la fenêtre de commande DOS de création, si votre login Subversion est le même que pour votre session Windows, alors taper votre mot de passe dans la fenêtre de commande ( celui que vous avez saisi dans le fichier passwd ), et taper la touche « Entrée ».
Si votre login Subversion est différent de votre login Windows, alors taper la touche « Entrée » à l’invite du password dans la fenêtre de commande, SUBVERSION vous demandera alors le login et le mot de passe que vous avez saisi dans le fichier passwd.
Subversion vous indiquera alors « Révision 1 propagée ».
Il est courant d’avoir des sous-répertoires /trunk , /branches, et /tags pour chaque projet.
Dans la fenêtre de commande DOS précédente taper svn mkdir svn://localhost/monprojet/trunk et comme précédemment saisir un commentaire dans le fichier ouvert, sauvegarder et fermer l’éditeur.
A noter qu’après avoir saisi votre commentaire, Subversion ne vous redemande pas le login/password.
Télécharger l’installation du service SVN.
Retourner dans la fenêtre de commande DOS qui exécute svnserve. Taper Ctrl+C pour l’arrêter et fermer la fenêtre.
Ouvrir l’archive SVNService.zip téléchargée précédemment.
Extraire SVNService.exe ( et les autres fichiers de l’archive ) dans le répertoire bin de Subversion ( Dans cet article : d:\Programmes\SVN\bin).
Il est important que le contenu de l’archive soit au même endroit que l’exécutable svnserve.exe du logiciel Subversion. Ouvrir une fenêtre de commande DOS, et taper :
svnservice -install --daemon --root "d:\svn_repos"
Ouvrir ensuite le « Panneau de configuration » > « Outils d’administration » > « Services », double-cliquer le service SVNService, et changer le type de démarrage de « Manuel » en « Automatique », appliquer et cliquer OK.
Maintenant Subversion se lancera à chaque démarrage de Windows.
Il faut cependant démarrer le service SVNService manuellement dans notre cas ( en le sélectionnant dans la liste des services, et en cliquant Démarrer via le menu contextuel )
Retourner à la fenêtre de commande DOS, et taper :
svn ls svn://localhost/
La liste de tous les fichiers de la racine du repository apparaît.
Si tout s’est bien passé auparavant et que votre serveur Subversion fonctionne, vous devriez voir apparaître: monprojet/
Télécharger le client Tortoise SVN.
Rerchercher des personnes dans le carnet d’adresses
Posted by DiabloCorps on 24 novembre 2011
0 comments
Pour rechercher des personnes dans le carnet d’adresse Outlook, lancer la commande :
"C:\Program Files\Outlook Express\wab.exe" /find
Connexion ODBC à une base Oracle en VBA
Posted by DiabloCorps on 16 novembre 2011
0 comments
Pour se connecter à une base de données Oracle depuis une feuille Excel en VBA et requêter.
Créer une source ODBC pointant vers l’instance Oracle voulue.
Dans le code VBA.
Dim instanceOracle As String
Dim nbCasMax As Integer
Dim nbTestsParCas As Integer
' Initialisation des variables
instanceOracle = ThisWorkbook.Sheets("Param").Range("B1").Value
nbCasMax = ThisWorkbook.Sheets("Param").Range("B2").Value
nbTestsParCas = ThisWorkbook.Sheets("Param").Range("B3").Value
' Connexion à l'instance Oracle
Set objSession = CreateObject("OracleInProcServer.XOraSession")
Set objDatabase = objSession.OpenDatabase(instanceOracle, "login/password", 0)
noLigne = 1
For i = 3 To nbCasMax + 3
cas = ActiveSheet.Range("A" & i).Value
If cas <> "" Then
requete = "select no_dossier, o.num_complet_dans_voie, c.libelle, v.libelle, substr(c.codec, 1, 2) from reflet.optimum o, reflet.commune c, reflet.voie v where " & ActiveSheet.Range("B" & i).Value & " and o.codec = c.codec and o.codec = v.codec and o.codev = v.codev and rownum <= " & nbTestsParCas
ThisWorkbook.Sheets("Param").Range("D1").Value = requete
Set oraDynaSet = objDatabase.DBCreateDynaset(requete, 0)
If oraDynaSet.RecordCount > 0 Then
oraDynaSet.MoveFirst
For x = 0 To oraDynaSet.RecordCount - 1
noLigne = noLigne + 1
ThisWorkbook.Sheets("Resultats").Range("C" & noLigne).Value = oraDynaSet.Fields(0).Value
ThisWorkbook.Sheets("Resultats").Range("H" & noLigne).Value = oraDynaSet.Fields(1).Value
oraDynaSet.MoveNext
Next
End If
End If
Next
Set objSession = Nothing
Set objDatabase = Nothing