OVH Cloud OVH Cloud

enregistrement avec creation de dossier

18 réponses
Avatar
tinou
Bonjour à vous,

j'ai des bouts de code, mais j'aimerais aller plus loin... !

Imaginons que j'ai 2 dossiers :
L:/debut
L:/fin

Dans le premier dossier, j'ai 1 dossier Toto, avec 1 fichier Excel :
L:\debut\Toto\fichier1.xls
L:\fin

Le but de la macro, c'est que quand je l'execute à partir du fichier1.xls,
le fichier s'enregistre en texte separer par des tabulations dans le dossier
Toto du dossier fin...!
L:\fin\Toto\fichier1.txt
Donc la macro aura créee un nouveau dossier Toto.
En resumer,
L:\debut\Toto\fichier1.xls devient L:\fin\Toto\fichier1.txt
donc pour generaliser,
un fichier ouvert ayant comme adresse : L:\debut\*\§\£\#.xls
sera enregistrter dans L:\fin\*\§\£\#.txt (separateur tabs)

Voila, je vous remercie d'avance pour votre aide

Max

8 réponses

1 2
Avatar
FxM
Salut FxM,
Bonsoir tinou,


c'est encore moi...
est-ce que c'est possible de rajouter
l'ouverture du nouveau dossier (chemfut)
reduit dans l'explorer ?????

En gros, une fois que TA macro (ci dessous)
a sauvegardé en txt, le nouveau dossier s'ouvre
dans la barre des taches...


Juste après la sauvegarde et avant le 'end sub', insère ce qui suit.
Le comportement reste à confirmer.

chemin = StrReverse(nomfut)
chemin = Right(chemin, Len(chemin) - InStr(1, chemin, "") + 1)
chemin = StrReverse(chemin)
Shell "explorer.exe /n,/e, " & chemin, vbMinimizedFocus
End Sub


Merci encore.

Tinou
Z'en prie, de rien et @+

FxM


PS : bientot je vais mettre plein de nouveaux posts...
j'espere que tu seras là.
Que je sois là ? Je veux bien faire Paris-Grenoble si c'est une propo

honnête :o) ... voire plus si aff(chut) ;o))

Avatar
tinou
mais c'est toi le createur d'Excel ???
on pose une question, et la reponse est claire, precise et surtout correct
du premier coup.
le rajout de code est parfait...
Merci merci merci

Encore une question est-il possible, apres l'ouverture du dossier dans
l'explorer,
qu'il prechauffe mon four thermostat 7 (210°) pendant 10 min ?

Merci d'avance :-)

Tinou
Avatar
tinou
Cher FxM, je sais pas si tu me liras ?
mais tes derniers mots ont ete :
"De rien, tu passes nous voir quand tu veux :o)"
alors je passe, je suis la pour te poser une question (encore)

j'ai mis un post mais personne ne me repond !!

Shell "explorer.exe /n,/e, " & chemin, vbMinimizedFocus

et j'aimerais que si le dossier est deja ouvert avec l'explorer,
il ne s'ouvre pas une seconde fois ??

Car si j'ai 3 fichiers excel et que je les enregistrent
en text, j'aurai 3 fenetre explorer dans la barre des taches...!
Donc en gros faudrait un code qui mette une CONDITION !
Si mon 2eme fichier texte a le meme chemin que la fenetre
exporer ouverte, l'explorer ne s'ouvre pas !!!

Est-ce possible ??

Merci d'avance pour ton aide !

Tinou
Avatar
FxM
Bonsoir Tinou,

Cher FxM, je sais pas si tu me liras ?
mais tes derniers mots ont ete :
Mes derniers mots ? Arghhh !

Chers amis, Ci-gît FxM ...

"De rien, tu passes nous voir quand tu veux :o)"
alors je passe, je suis la pour te poser une question (encore)
Chouette !


j'ai mis un post mais personne ne me répond !!
Non ? Ils ont osé ne pas te répondre ? Oh les vilains :o)

Mais si, mais si, regarde : Daniel t'a recommandé d'enlever le /e à 11h
et Argyronet a fourni une réponse qui semblerait adaptée (OK, c'est
après ton message).
Quant à moi, je fais comme beaucoup de parisiens, à savoir rentrer tard
du boulot :o( et je compte les points ;o)

(snip)
Est-ce possible ??
... il "suffirait de" mettre les doigts dans les API (hum ... c'est loin

d'être ma tasse de thé).
Tu nous diras si le code d'Argyronet (18h18) résout ton problème ?

Merci d'avance pour ton aide !

Tinou


De rien et @+
FxM

PS : au fait, il faudra que je te parle de mon ours ...

Avatar
tinou
CherS amiS

mon probleme n'est toujours pas resolut...
j'ai bien tenté de comprendre les api
mais bon... il me manque la base vba...

enfin bref, je pensai pas que ma tite question
serai aussi compliqué a repondre...

j'croyai qu'un rajout de IF THEN suffirai...
"AH ouai, ben tu crois mal, l'âne !" Shrek

Merci pour ton soutien
Repose toi
Biz a ton ours ??

Tinou


Bonsoir Tinou,

Cher FxM, je sais pas si tu me liras ?
mais tes derniers mots ont ete :
Mes derniers mots ? Arghhh !

Chers amis, Ci-gît FxM ...

"De rien, tu passes nous voir quand tu veux :o)"
alors je passe, je suis la pour te poser une question (encore)
Chouette !


j'ai mis un post mais personne ne me répond !!
Non ? Ils ont osé ne pas te répondre ? Oh les vilains :o)

Mais si, mais si, regarde : Daniel t'a recommandé d'enlever le /e à 11h
et Argyronet a fourni une réponse qui semblerait adaptée (OK, c'est
après ton message).
Quant à moi, je fais comme beaucoup de parisiens, à savoir rentrer tard
du boulot :o( et je compte les points ;o)

(snip)
Est-ce possible ??
.... il "suffirait de" mettre les doigts dans les API (hum ... c'est loin

d'être ma tasse de thé).
Tu nous diras si le code d'Argyronet (18h18) résout ton problème ?

Merci d'avance pour ton aide !

Tinou


De rien et @+
FxM

PS : au fait, il faudra que je te parle de mon ours ...




Avatar
FxM
Bonjour,

L'explorateur ne fait pas partie d'Excel, il faut demander gentiment à
Ouindows si le processus existe ou pas. Ca ne se fait malheureusement
pas par un simple if ... then.

Lien vers un fichier (non testé) explicitant le code VBA et y incluant
les API d'Zrgyronet : http://cjoint.com/?fnrADEnpOC

Repasses s'il y a un blème.

@+
FxM





CherS amiS

mon probleme n'est toujours pas resolut...
j'ai bien tenté de comprendre les api
mais bon... il me manque la base vba...

enfin bref, je pensai pas que ma tite question
serai aussi compliqué a repondre...

j'croyai qu'un rajout de IF THEN suffirai...
"AH ouai, ben tu crois mal, l'âne !" Shrek

Merci pour ton soutien
Repose toi
Biz a ton ours ??

Tinou


Bonsoir Tinou,

Cher FxM, je sais pas si tu me liras ?
mais tes derniers mots ont ete :
Mes derniers mots ? Arghhh !

Chers amis, Ci-gît FxM ...

"De rien, tu passes nous voir quand tu veux :o)"
alors je passe, je suis la pour te poser une question (encore)
Chouette !


j'ai mis un post mais personne ne me répond !!
Non ? Ils ont osé ne pas te répondre ? Oh les vilains :o)

Mais si, mais si, regarde : Daniel t'a recommandé d'enlever le /e à 11h
et Argyronet a fourni une réponse qui semblerait adaptée (OK, c'est
après ton message).
Quant à moi, je fais comme beaucoup de parisiens, à savoir rentrer tard
du boulot :o( et je compte les points ;o)

(snip)
Est-ce possible ??
.... il "suffirait de" mettre les doigts dans les API (hum ... c'est loin

d'être ma tasse de thé).
Tu nous diras si le code d'Argyronet (18h18) résout ton problème ?

Merci d'avance pour ton aide !

Tinou
De rien et @+

FxM

PS : au fait, il faudra que je te parle de mon ours ...






Avatar
tinou
Salut toi...

deja merci pour le fichier compilé...!
au moins avec celui la, il y a pas des message d'erreurs,
quand je l'execute...
mais le but rechercher n'est pas atteint !

le findwindows me renvoit toujours la valeur 0 ??
(donc l'exporer est fermé !? ce qui est faux !)
j'ai mis un MsgBox lngHWnd pour voir quelle etait la valeur...
je sais pas si c'est comme ca que faut faire, mais
en tout cas findwindow m'indique toujours 0.
Donc il ouvre a chaque fois une nouvelle fenetre exporer...

je pense aussi qu'il y aura une petite correction
au niveau du SW_SHOWMAXIMIZED
parce que si j'ai bien compris, ca correspond a
vbMaximizedFocus (3) et donc la fenetre s'agrandira
et prendra le focus...
Alors que ce que j'aimerais avoir, c'est
si le processus explorer existe, la fenetre reste inactive dans la
barre des tache...donc = 6 vbMinimizedNoFocus
et si il existe pas, l'explorer se lance au chemin precisé
et en minimisé sans focus donc toujours = 6 vbMinimizedNoFocus.

Bref je n'arrive pas a comprendre le 0 du findwindow...
a moins que le probleme soit ailleurs...

Merci encore pour ton aide....
c'est tres gentille...

Tinou
**l.fr


Bonjour,

L'explorateur ne fait pas partie d'Excel, il faut demander gentiment à
Ouindows si le processus existe ou pas. Ca ne se fait malheureusement
pas par un simple if ... then.

Lien vers un fichier (non testé) explicitant le code VBA et y incluant
les API d'Zrgyronet : http://cjoint.com/?fnrADEnpOC

Repasses s'il y a un blème.

@+
FxM


Avatar
FxM
Bonsoir,

le findwindows me renvoit toujours la valeur 0 ??
Après avoir tourné en rond durant quelques temps, j'arrive à la même

conclusion. lngHWnd reste désespérément à 0 pour une raison que je ne
connais pas.

Désolé

@+
FxM



Salut toi...

deja merci pour le fichier compilé...!
au moins avec celui la, il y a pas des message d'erreurs,
quand je l'execute...
mais le but rechercher n'est pas atteint !

le findwindows me renvoit toujours la valeur 0 ??
(donc l'exporer est fermé !? ce qui est faux !)
j'ai mis un MsgBox lngHWnd pour voir quelle etait la valeur...
je sais pas si c'est comme ca que faut faire, mais
en tout cas findwindow m'indique toujours 0.
Donc il ouvre a chaque fois une nouvelle fenetre exporer...

je pense aussi qu'il y aura une petite correction
au niveau du SW_SHOWMAXIMIZED
parce que si j'ai bien compris, ca correspond a
vbMaximizedFocus (3) et donc la fenetre s'agrandira
et prendra le focus...
Alors que ce que j'aimerais avoir, c'est
si le processus explorer existe, la fenetre reste inactive dans la
barre des tache...donc = 6 vbMinimizedNoFocus
et si il existe pas, l'explorer se lance au chemin precisé
et en minimisé sans focus donc toujours = 6 vbMinimizedNoFocus.

Bref je n'arrive pas a comprendre le 0 du findwindow...
a moins que le probleme soit ailleurs...

Merci encore pour ton aide....
c'est tres gentille...

Tinou
**l.fr


Bonjour,

L'explorateur ne fait pas partie d'Excel, il faut demander gentiment à
Ouindows si le processus existe ou pas. Ca ne se fait malheureusement
pas par un simple if ... then.

Lien vers un fichier (non testé) explicitant le code VBA et y incluant
les API d'Zrgyronet : http://cjoint.com/?fnrADEnpOC

Repasses s'il y a un blème.

@+
FxM




1 2