Discussion :

[chapeau_melon]

Hello à tous,

J'aimerais pousser le bouchon un peu plus loin...

Peut-on faire ceci :

Au lieu d'utiliser un nom fixe dans le script, un nom variable.
Ce nom variable venant de la mémoire 'copy/paste' de l'ordi ?

stFichierSource = "avant_test_144503.log.txt"
stFichierDest = "apres.txt"

Je précise:

En Filemaker je peux facilement copier, via un mini script, le contenue d'une cellule. Par exemple : le contenue serai : 123456 que je copie.
La deuxième ligne dans ce script serai le code que je viens gracieusement de revoir dans mon post précédant. (outre passer excel...)

La ligne stFichierSource deviendrais genre = "paste".log.txt et stFichierDest= "paste".txt

donc 123456.log.txt et 123456.txt

Une fois de plus un grand merci à vous cervaux géniaux

[ced600]

Je n'ai pas bien compris ce que tu veux : Nommer tes fichiers en fonction de la valeur d'une cellule, ou les nommer en fonction des données qui se trouve dans la mémoire temporaire utilisé pour les copier/coller (je ne me souviens plus de son nom) ?

[chapeau_melon]

Les deux sont en principe bon, je pense/

le nom du fichier .txt à ouvrir et à sauvegarder devrait venir du contenu de la cellule qui elle est dans Filemaker

exemple: Contenu de la cellule (nom=test) dans FM = 123456
le fichier deviendrait délors = 123456.txt

A vous de voir : chercher le contenu directement dans le programme ou bien restituer à partir de la mémoire temporaire utilisé pour les copier/coller

Bien à toi

[ced600]

Bon bah le mieux c'est de récupérer le contenu de la cellule dans filemaker.
Je ne connais pas ce programme, je ne sais pas s'il peut être utilisé comme excel en VB.

En Filemaker je peux facilement copier, via un mini script, le contenue d'une cellule. Par exemple : le contenue serai : 123456 que je copie.

Tu copies le contenue d'une cellule qui vient d'où vers où ?
Peut tu poster le fichier qui contient l'info "123456" ?

[SfJ5Rpw8]

bon on déborde un peu du forum, mais en filemaker (que je connais pas) comment fais tu pour lancer un script externe... ? ne peu-tu pas rajouter des arguments (paramétres..) au script appellé..?

[chapeau_melon]

exactement bbil, s'il y a moyen de modifier ou rajouter cette solution ou script que tu m'a fait hier.

Donc l'intégrer dans le script. Parter de l'idée que j'ai déjà le contenue de la cellule dans la mémoire copie/paste (ceci ne devrait pas être votre souci ).

Le souci est de le 'paster' dans le code bbil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
stFichierSource = "avant_test_144503.log.txt"
stFichierDest = "apres.txt"
 
stFichierSource deviendrait genre = "paste".log.txt et stFichierDest= "paste".txt

[chapeau_melon]

How do you run a VBscript within or via Filemaker?

Use SendMessage:
"c:\temp\my stuff\runexcel.vbs"
- quotes required for paths with spaces in.

[ced600]

Si je ne me trompe pas, dans ce sous forum, il y a des post où l'on a traité des arguments passés en ligne de commande avec le script. Fait une recherche avec argument, tu devrais trouvé comment les passer et les traiter.

[SfJ5Rpw8]

tiens voila un exemple pour arguments .. crée un script Arg.vbs ..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
FicSource = wscript.arguments(0)
FicDest = wscript.arguments(1)
 
msgbox "Transforme " & FicSource & " en " & FicDest

puis essai de l'appel depuis filemarker pro du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendMessage "c:\temp\my stuff\arg.vbs Fichier1 fichier2"

[chapeau_melon]

Désolé, vous parler légèrement chinois ?

Désolé

Est-ce que ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
FicSource = wscript.arguments(0)
FicDest = wscript.arguments(1)

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
stFichierSource = "avant_test_144503.log.txt"
stFichierDest = "apres.txt"

Est-ce qu'il lit ainsi la mémoire de l'ordi ?

[chapeau_melon]

Bon,

j'ai à moitié résolu l'affaire :

App pour copier le contenue du presse papier dans un VBscript il faut aller par un détour : ce qui nous fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
stFichierSource = CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text")
stFichierDest = CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text")

Avec se bout de code mon script ouvre le fichier correspondant avec le contenue du presse papier (et le sauvegarde avec le même nom)

Ceci est vrais uniquement dans le cas ou, par exemple le contenue du clipboard = nomdufichier.txt


Le seul bemol que j'ai est que, via Filemaker, le contenue du clipboard sera par exemple = nomdufichier

Donc sans l'extention .txt


Comment faire dans mes deux ligne de code si dessus pour qu'il rajoute aussi automatiquement l'extention .txt

Le code n'est pas exact mais pour expliquer =
stFichierSource = CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text") + .TXT

[AlainTech]

Théoriquement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

stFichierSource = CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text") & ".TXT"

Pas testé.
Donc, à toi de voir.

[ced600]

Mouais mais copier à partir du clipboard ce n'est pas terrible. Un contrôle C d'un texte sous word et hop le nom de ton fichier risque de changer.

Désolé, vous parler légèrement chinois ?

Désolé

Est-ce que ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Code :
FicSource = wscript.arguments(0)
FicDest = wscript.arguments(1)

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Code :
stFichierSource = "avant_test_144503.log.txt"
stFichierDest = "apres.txt"

Est-ce qu'il lit ainsi la mémoire de l'ordi ?

Oui si tu appelles ton programme de la sorte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SendMessage "C:\Repertoire\Sous repertoire\VBscript.vbs avant_test_144503.log.txt apres.txt"

[chapeau_melon]

C'est résolu : la réponse de Alaintech fonction parfaitement

encore une fois un grand merci à vous tous !!!!