Discussion :

[Ganeshiva]

Bonjour le forum

Petite question pour vous :

Je voudrais savoir si c'est possible à partir d'une macro de copier un fichier complet (type de fichier un dgn qui est un fichier de dessin) en mémoire comme Ctrl+C dans l'explorer mais sans destination.
Ma destination est une VMWare ou je veux faire juste un Ctrl+V par la suite.
Je n'ai rien trouvé de probant sur internet pour le moment (FileCopy m'impose une destination...)

Merci

[patricktoulon]

re
bonjour
les fichier ".dgn" sont utilisé par diverses application (dragon2,Micro station,Arcview,etc....) et ne sont pas de même format selon l'application qui la créé
certain sont du texte ,d'autre texte et image, d'autre texte et graphique et modelé 3d,etc....

il est donc difficile de te répondre

[Ganeshiva]

Merci de ta réponse @patricktoulon, c'est un fichier microstation. En gros je voudrais faire comme un Ctrl+C comme si j'étais sur l'explorateur. Est ce possible ?

[patricktoulon]

re
automatiser l'ouverture de ton fichier fair un ctrl+c
ca doit être possible avec sheel et wscript.shell pour les sendkeys mais c'est pas très fiable
surtout que d'après ce que je comprends tu veux coller ensuite dans une tierce application

je me demande si tu pourrais pas ouvrir directement ce .dgn avec la tierce application

[Ganeshiva]

Justement je veux pas l'ouvrir, j'arrive à le faire avec un shell

Code :

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

1
2
 
Call Shell("""" & Microstation & """ """ & ArgumentMicrostation & """ """ & PathFichierCoord & """", vbNormalFocus)

, mais pour un souci de mise à jour des fichiers je dois me connecter via une VMWare chez mon client et faire un copier(en local) coller de mon fichier (chez mon client via VMWare).
Je veux essayer d'automatiser le bousin car c'est un peu lourd.

[patricktoulon]

re
aurais tu essayé ceci juste après ton Shell

Code :

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

1
2
3
with createobject("wscript.shell")
.sendkeys "^c"
end with

[Ganeshiva]

Je tente un truc comme cela :

Code :

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

1
2
3
4
5
6
7
 
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
 
Target = "P:\xxx\xx\xxx\xxx\Test.txt"
WshShell.SendKeys "^C"
WshShell.SendKeys Target

Mais comment faire pour qu'il prenne le lien ?

[patricktoulon]

???????????????????
qu'est ce que c'est ca ??????

moi je te parle d'un shell ouvrant ton dgn dans microstation et copiant tout

[Ganeshiva]

Lol on s'est mal compris, je veux pas l'ouvrir dans microstation, je veux le sélectionner dans l'explorateur et faire un Ctrl+C

[patricktoulon]

a ok une sorte drap and drop
alors non trop compliqué

[Ganeshiva]

Pas vraiment un drag and drop

A partir d'un lien de fichier, ouvrir l'explorateur, selectionner le fichier et faire un ctrl + C dessus, c'est pas possible de faire cela ? mais au moins faire un ctrl C en automatique
Pour le reste c'est pas grave le ctrl V je le ferais manuellement.

[patricktoulon]

re
et non ca n'est pas possible même avec shell sur l'explorateur et les sendkeys (bas et haut) car tu ne peux pas tester le nom de l'item sélectionné pour t'arrêter sur le bon

quand au boite de dialogue elles sont bloquantes alors c'est réglé(niet de niet)

donc non !

[Ganeshiva]

Ok merci quand même de m'avoir accorder du temps

[Arkham46]

Bonjour,

Soyons sérieux 5 min.
Il est évident que si on joue avec des envois de touches ce n'est pas possible de faire bien.

Mais avec des API il est tout à fait possible de mettre ce qu'on veut dans le presse-papier.

En cherchant CF_HDROP on peut trouver des codes, par exemple :
https://www.developpez.net/forums/d1...e/#post7784646

Ce n'est pas forcément facile et on ne trouve pas (ou très peu) de code pour 64Bits mais ça fonctionne très bien.

Pour le collage sur le client ça sera sûrement plus difficile à automatiser...

[patricktoulon]

merci arkham
je voulais pas entrer dans ce tords boyau des api clip et memory
et surtout adapter en 64

j'ai testé aussi et ca je l'avais zapé le shell "explore.exe/select" + gestion d'attente--> wscript.shell.sendkeys fonctionnent aussi sur W7 64

[Arkham46]

Les api on peut les maîtriser, c'est carré mais complexe à aborder.
Les shell et sendkeys c'est accessible en apparence mais c'est trop aléatoire suivant les configs.

Mon avis est qu'il vaut mieux passer du temps à travailler avec les api plutôt que de bricoler un truc bancal qui sera tout autant chronophage, voir plus.

En tout cas dans l'absolu c'est possible..

[clementmarcotte]

Bonjour,

Lol on s'est mal compris, je veux pas l'ouvrir dans microstation, je veux le sélectionner dans l'explorateur et faire un Ctrl+C

Passer trois éternités à programmer et déboguer cette patente-là c'est jeter l'argent par les fenêtres. Tu peux faire des Ctrl-C jusqu'à ta retraite et cela te reviendra encore moins cher.

[Arkham46]

Bonjour,



Passer trois éternités à programmer et déboguer cette patente-là c'est jeter l'argent par les fenêtres. Tu peux faire des Ctrl-C jusqu'à ta retraite et cela te reviendra encore moins cher.

Bonjour,

Je n'ai rien compris.
Que cherche tu à expliquer ?

[clementmarcotte]

Bonjour,

C'est le réflexe du gestionnaire qui sommeille et qui compare le coût de développement de son programme, avec le coût de s'en tenir au Ctrl-C. À moins d'être un génie de la programmation, le coût de programmer cela fait que l'avantage escompté comparé au coût que cela implique est nul, pour ne pas dire négatif. D'un strict point de vue financier, c'est du gaspillage. À moins qu'une quantité faramineuse de personnes doive faire l'opération très souvent.

Mais bon, s'il le fait bénévolement, durant ses loisirs…

[Arkham46]

Mouais pour faire simple il faut que ça en vaille la peine.