Le Defi du jour ...

[Creepy]

Bonsoir à Toutes et Tous,

Allez histoire de se detendre et de se creuser un peu la tête.

Défi du jour :

Comment en une, et seulement une, ligne de code trouver le chemin d'accès du repertoire temporaire.

Cette astuce fonctionne sous windows XP, je ne sais pas pour les autres systèmes.

Le Lot : Notre reconnaissance eternelle pour cette astuce :P

Allez à plus tard pour la réponse.

Creepy

[Hellboy]

Bonjour Creepy

Je tente ma chance avec ça:

If MsgBox('Est-ce que le chemin temp est:' & vbLf & vbLf & Space(10) & 'c:\Temps', vbQuestion + vbOKOnly) Then TempPath = 'c:\Temps'

[MichelXld]

bonjour Creepy

MsgBox Environ(22)

bonne soirée
MichelXld

Edition :
bonsoir cher Philippe

Message édité par: michelxld, à: 22/11/2005 17:22

[PascalXLD]

Bonjour

Tu es sûr michel que c'est le 22 et pas le 24 ou le 25 pour environ ??

Message édité par: Pascal76, à: 22/11/2005 17:49

[Hervé]

bonjour tout le monde

sinon : msgbox environ('tmp')

salut

Message édité par: hervé, à: 22/11/2005 17:47

[MichelXld]

rebonsoir Pascal , bonsoir Hervé

Pascal, chez moi (Excel2002 & WinXP), l'index 24 renvoie le UserDomain et 25 renvoie le UserName

...mais Hervé va tous nous mettre d'accord ...;o)


bonne journée
MichelXld

Message édité par: michelxld, à: 22/11/2005 18:02

[PascalXLD]

Re

Chez moi en excel 2000 avec Win Xp 24 c'est temp et 25 tmp et le 22 SystemDrive

Comme quoi .... le truc d'hervé doit marcher sur toute version

A titre informatif chez moi les 2 marchent

MsgBox Environ('tmp')
MsgBox Environ('temp')

Bonne soirée

Message édité par: Pascal76, à: 22/11/2005 18:12

[jmps]

Bonsoir à tous,

Je ne pense pas que les versions de Windows soient importantes. L'ordre des variables d'environnement est tout simplement celui dans lequel les charge l'OS.
Cela dépend donc des configurations de chacun et si l'installation de logiciels a ajouté ou modifié des variables.

Pour s'en convaincre tapez set dans une boîte CMD ou boîte DOS et comptez les variables. Attention ça défile. Tapez set | more pour faire une pause à chaque page.

Bonne soirée.

[Creepy]

RE All,

Bravo à tous c'est la bonne réponse !

pour resumer : Msgbox environ$('TEMP')

Il y a d'autre possibilité mais bon faut bien en retenir une !

Je vais essayer de trouver un autre défi pour demain soir ;-)

Et la gagnant est ... José qui pour son retour fait fort !!!! Il nous donne une bonne explication et je vais me servir de c'est commande souvent croyez moi !!

Allez à demain pour un nouveau défi !!

@+

Creepy

PS : Si vous avez des idées de défis, faites moi signe !

[Hervé]

re tout le monde

bravo josé

un petit code pour lister ces variables :

Sub Bouton1_QuandClic()
Dim toto As Object
Dim enviro, item
On ErrorResumeNext
ligne = 1
Set toto = CreateObject('WScript.Shell')
Set enviro = toto.environment('process')
For Each item In enviro
        Cells(ligne, 1) = item
        ligne = ligne + 1
Next item
MsgBox Environ('OS') 'pour exemple
End Sub

adapté d'un code VB trouvé sur le net.

salut

[MichelXld]

bonsoir à tous

mon cher ami Hervé , ci joint une autre version ...;o)

Dim i As Byte
For i = 1 To 50
Cells(i, 1) = Environ(i)
Next i


bonne soiree
MichelXld

[Jam]

Salut à tous,

et comment lister tout cela en 1 ligne de code dans 1 fichier (XL de préférence)...tada...
ok, je triche un peu, il faut d'abord lancer la boîte DOS (Exécuter > cmd et {enter}) comme José l'a si bien dit et après:

set | more > c:\\test.xls

Reste plus qu'à voir cela dans le p'tit fichier nouvellement créé à la racine du disk. L'astuce est-là, en fait il s'agit d'un fichier text :whistle:
Le signe supérieur > sert à diriger le résultat d'une commande DOS vers un fichier texte

Aaaah, ce bon vieux DOS et sa ligne de commande (on croirait entendre parler un linuxien :lol: )
Pour info (bis): taper set /? pour tout savoir sur la commande set

Bonne soirée à tous

[Hervé]

bonsoir tout le monde

salut michel

Pour l'anecdote, j'ai simplifié un code vb, et je me disais en bossant : 'qu'est ce qu'il c'est fait c...r avec son code celui-là, y'en a dix fois trop. ah je te jure, ces informaticiens pensent pas à nous'.

La prochaine fois, hervé, balaye devant ta porte.

Merci michel

salut

Message édité par: hervé, à: 23/11/2005 18:43

[jmps]

Bonsoir les participants,

Heu.... Jam... Si je puis me permettre une remarque :

set | more > c:test.xls

Si tu gardes le | more (prononcez 'pipe more') dans une commande de redirection, les non-habitués à la ligne de commande vont se demander ce qu'attend la boîboîte... La redirection n'affiche pas le résultat à l'écran, donc on ne voit pas le 'Appuyez sur une touche pour continuer...' si le résultat dépasse une page.

Et puis aussi, le fait de mettre une extension .xls à un fichier ne le transforme pas en vrai fichier Excel bien que ce dernier le lise quand même en tant que fichier texte.

Oki, ça fait deux remarques, mais j'ai toujours peur que les gens que ça intéresse laissent tomber à cause d'une incompréhension.

Mille pardons pour cette intervention amigo.

Bonne soirée.

[Jam]

Salut José,

Ok sur ta première remarque...pour la seconde j'ai bien parlé d'astuce

Bonne soirée