Shooting in Paris

Au pays du Soleil Levant

2010-08-21T16:20:00.002+02:00

parc de Hibiya

Light donut

2010-08-18T00:36:00.002+02:00

Nikon D90 vs Canon EOS 550D : le MATCH

2010-08-07T13:20:00.008+02:00

Je ne vais pas faire durer le suspens très longtemps : j'ai choisi le D90. Et pourtant la lutte a été rude, la lecture de comparatifs longue et attentive, et jusqu'à la dernière seconde j'ai hésité.

Chaque appareil a ses avantages, et devinez quoi... ses inconvénients aussi. Mais bon, ce qui compte c'est de prendre une décision sur ce qui compte vraiment pour soit et - et là je cite les plus grand :

"Je ne sais pas si j'ai fait le bon choix, mais ce qui compte c'est de faire un choix."

Ce qui m'a intéressé sur le D90, c'est sa sensibilité en basse lumière, apparemment bien meilleure que le Canon. Le mode vidéo est nul, mais bon, vaut mieux réussir ses photos que ses films quand on achète un réflexe, non ?

La Poste de la Rue des Lavandières-Sainte-Opportune

2010-08-07T13:16:00.002+02:00

Saint Eustache

2010-08-07T12:50:00.007+02:00

De l'art ou du cochon

2010-08-07T12:50:00.006+02:00

Un peu d'Oracle

2008-09-12T09:56:00.001+02:00

select object_name, length(procsi_4000) from propdb_000293f_s;
select * from v$version;
select * from nls_database_parameters ;

Expression régulière

2008-07-17T11:00:00.000+02:00

([0-9]{2}\_)

iPhone sous firmware v2.0

2008-07-11T14:56:00.002+02:00

Pour faire une capture d'écran sur un iPhone sous firmware v2.0, il suffit d'appuyer sur le bouton central et le bouton du haut.

Trier le contenu d'une cellule

2008-07-11T14:45:00.002+02:00

Voilà une macro super utile, fortement inspirée de ce forum.

Sub TriCellule()
Dim I As Integer
Dim J As Integer, K As Byte
Dim Cible As String, val As String
Dim Tableau() As String

Dim aRng As Range
Dim aCell As Range

Set aRng = Selection

Dim resultat As String

For Each aCell In aRng

I = 0
J = 0
K = 0
Cible = aCell.Value & Chr(10)
val = ""
ReDim Preserve Tableau(0)

resultat = ""

For I = 1 To Len(Cible) 'extraire donnees
J = InStr(I, Cible, Chr(10))

K = K + 1
ReDim Preserve Tableau(K - 1)
Tableau(K - 1) = LTrim(Mid(Cible, I, J - I))
I = I + Len(Mid(Cible, I, J - I))
Next

For I = LBound(Tableau) To UBound(Tableau) 'trier
J = I
For K = J + 1 To UBound(Tableau)
If Tableau(K) <= Tableau(J) Then J = K Next K If I <> J Then
val = Tableau(J): Tableau(J) = Tableau(I): Tableau(I) = val
End If
Next I

For I = 1 To UBound(Tableau) + 1
resultat = resultat & Tableau(I - 1) & Chr(10)
Next

resultat = Left(resultat, Len(resultat) - 1)

'MsgBox resultat, , "Resultat du tri alphabetique "
aCell.Value = resultat

Next aCell

End Sub

Utiliser la fonction VLOOKUP (RECHERCHEV) dans une macro

2008-07-04T17:53:00.002+02:00

Application.WorksheetFunction.VLookup(d(I - 1), Range("TABLE_POP"), 2, False)

Attention : la 1ère colonne de TABLE_POP doit être Texte

Séparer une chaîne de caractère en fonction d'un séparateur en VB

2008-07-04T17:09:00.006+02:00

Function Split(machaine As String, sep As String) As String()
Dim I As Integer
Dim J As Integer, K As Byte
Dim chaineTemp As String
Dim Tableau() As String

I = 0
J = 0
K = 0
chaineTemp = machaine & sep

ReDim Preserve Tableau(0)

For I = 1 To Len(chaineTemp)
J = InStr(I, chaineTemp, sep)

K = K + 1
ReDim Preserve Tableau(K - 1)
Tableau(K - 1) = LTrim(Mid(chaineTemp, I, J - I))
I = I + Len(Mid(chaineTemp, I, J - I))
Next

Split = Tableau

End Function

FullSync

2007-11-14T10:44:00.000+01:00

Fullsync permet de synchroniser deux répertoires.

Le paramètre d'exclusion :

(.*~.*|.+\.(tmp))

permet d'ignorer tous les fichiers commençant par ~ ou finissant par .tmp, en gros, tous les fichiers temporaires Office.

Pour en savoir + sur les expressions régulières : http://fr.wikipedia.org/wiki/Expressions_rationnelles

Les CARaFes : nouvelle troupe d'improvisation théâtrale !

2005-08-14T14:07:00.000+02:00

Une troupe d'improvisation théâtrale vient de naître à Paris : Les CARaFes !

Visiter le site des CARaFes
Contacter les CARaFes par mail

Première représentation le 19 AOût 2005, au Libertalia (+ d'infos sur leur site).

Canon IXUS 400 (ou autre APN) comme Webcam

2004-08-13T23:33:00.000+02:00

J'ai le IXUS 400. C'est un très bon appareil, mais malheureusement il n'a pas de fonction Webcam. Pourtant il peut fournir un flux vidéo en USB, comme le montre le programme Remote Shooting, fourni par CANON. Donc techniquement, ça doit être possible.

Je me suis donc mis à googler à tout va... J'ai trouvé de tout :
Des forums (français) qui disent que ce n'est pas possible, des forums (allemands) qui donnent comme solution d'utiliser une carte d'acquisition, et un forum (hollandais) qui fourni un "workaround" tout à fait sympatique que je me permets de reprendre ici.

Marche à suivre

Télécharger softcam de Luminositi et l'installer.
Connecter le IXUS à votre ordinateur par le port USB, l'allumer en postion "je veux voir mes photos".
Lancer Remote Shooting(*) et afficher la vidéo (en cliquant sur l'icone "Ouvrir l'écran de visée" : ).
Lancer softcam avec la configuration suivante : Dans 'Options', sélectionner 'SoftCam Screen Capture' comme 'Default Live Video Source' Puis dans la fenetre de Softcam, passer en 'Live'. Placer le cadre marron de softcam sur la vidéo de Remote Shooting.

Vous devriez arriver à ça :

Et voilà, le tour est joué. Maintenant, il ne reste plus qu'à lancer votre logiciel de visio !

Petite Explication

Softcam "filme" la zone de l'écran où est affichée la vidéo de votre IXUS. Il se comporte comme une caméra virtuelle que vous pourrez alors utiliser dans votre logiciel de visio préféré !

Bien sûr, softcam peut bien sûr servir à faire tout un tas de choses (enregistrer des vidéos de votre bureau pour faire des présentations, partager votre bureau en visio, ...), mais je vous les laisse découvrir tout seul!

Pour conclure, je dirai que cette solution n'est pas techniquement très satisfaisante... elle tient plus du bricolage que d'autre chose. Mais elle a le mérite de fonctionner, et de m'avoir fait découvrir un logiciel très pratique !

(*) Pour lancer Remote Shooting :
Dans ZoomBrowser EX (sur le CD fourni avec le IXUS 400), "Appareil & Carte Mémoire", puis "Remote Shooting...".

La montée qui descend

2004-08-11T18:20:00.000+02:00

Vu à la TELE

Pour mon 1er post, je vais parler d'une curiosité locale : La montée qui descend.

C'est une route, pas loin de Savigny-lès-Beaune. Quand on s'y arrête en voiture, on a l'impression d'être dans une montée. Mais au point mort, la voiture avance... Sensation garantie !!!

Voici une photo, mais ça ne rend pas grand chose. Le mieux, c'est de s'y rendre :

Depuis Beaune, aller à Savigny. Une fois rentré dans le village, suivre la direction de la déchetterie. Sortir du village, passer 2 grands virages (le 1er à gauche, le second à droite), puis avant le tunnel qui passe sous l'autoroute, prendre la 1ere à droite. C'est sur ce chemin qui longe l'autoroute que ce trouve notre curiosité. Mais on est alors dans le mauvais sens. Il faut donc faire environ 200m pour trouver un endroit ou faire demi tour (à hauteur des panneaux d'autoroute qui indiquent Auxerre...). La "montée qui descend" se trouve juste après la grande descente du chemin. Pour se repérer, aidez vous de la photo !
Vous n'avez plus qu'à vous arrêter, frein à main serré. En regardant la route, on se dit que ça monte. Pourtant, en désserrant le frein à main, la voiture avance !

N'hésitez pas à demander aux autochtones en cas de besoin, ils sauront sûrement vous indiquer le chemin !

Emmanuel