URGENT : copies de fichiersRésolu

Question

Bonjour &#224; tous,

Je souhaite effectuer une op&#233;ration sous Access en VBA.

Je veux que lorsque je clique sur un bouton d'un formulaire Acess, une fenetre de selection de fichier s'ouvre, ensuite on peut selectionner le fichier que l'on veut et lorsqu'on selectionne le bon qu'il se copie automatiquement dans un repertoire pr&#233;d&#233;fini.

Comment faire ?

En VB je saurai faire mais en VBA sans controle Visual Basic je ne vois pas, aidez moi SVP c'est urgent !

mjpmjp · Accepted Answer

salut c encor mi
dabord c'est SendKeys

une autre soluce:
shell("@copy""" & MonPath & MonFichierSelected & """)

comme &#231;&#224; ta plus besoin de la boite de dialogue Enregistrer

bon ben je vai m'coucher...

Bidouille ... D&#233;brouille ... Euuh !?... m' Embrouille .!!!  @+ JP

loic38760 · Answer

j'en ait besoin assez vite c'est pour une entreprise donnez moi des indications svp ou peut etre que ce n'est pas faisable ?!

mjpmjp · Answer

Salut c JP,
en vrac...
1&#176; ajouter dans la boite &#224; outil le composant :
Microsoft Common Dialog Control 6.0
2&#176; le mettre sur le form (ou tu veux , il est invisible)
3&#176; tu donnes un nom au controle (ex: MyControlOpen)

ShowOpen affiche une boite de dialogue Ouvrir
ShowSave    ... Enregistrer

pour utiliser une des boites de dialogue :
MyControlOpen.ShowOpen  ...(pour s&#233;lectionner un fichier)

MAIS AVANT IL FAUT INITIALISER avec :
MyControlOpen.Flags = cdlOFNExplorer 

MyControlOpen.Filter = "Documents Word (*.doc)|*.doc|Documents Excel (*.xls)|*.xls"
pour afficher que les fichiers Word et Excel

MyControlOpen.ShowOpen  

en retour on &#224; le nom du fichier s&#233;lectionn&#233;
MonFichierSelected = MyControlOpen.FileName

Voila pour la selection----------------

pour l'enregistrement-----------------
tu positionnes un autre Common Dialog sur le form
que tu nommes par ex: MyControlSave
MyControlSave.Flags = cdlOFNLongNames + cdlOFNOverwritePrompt 

jusque l&#224; j'ai d&#233;crypt&#233; les explications de mon book !!!

maintenant soit tu affiche la boite de dialogue Enregistrer
avec : MyControlSave.ShowSave

ou tu essayes MyControlSave.FileName = MonFichierSelected
et l&#224; il faudrait simuler l'appuit sur le bouton enregistrer
peut &#234;tre MyControlSave.vbOk = true ?

c'est tout ce que je peut te dire ;&#176;)

PS  et aussi
ShowColor  ... Couleur
ShowFont   ... Police
ShowPrinter  ...Imprimer
ShowHelp   ... Aide Windows

Bidouille ... D&#233;brouille ... Euuh !?... m' Embrouille .!!!  @+ JP

mjpmjp · Answer

RE...
Pour le bouton Enregistrer :
voir SendKey("~") ?

Bidouille ... D&#233;brouille ... Euuh !?... m' Embrouille .!!!  @+ JP

loic38760 · Answer

ok merci beaucoup je vais essay&#233; tout ca aujourdui !

mjpmjp · Answer

oups...
tu as peut &#234;tre rectifi&#233;
en fait il manque la cible dans copy
shell("@copy """ & MonFichierSelected & """ """ & MonPathCible & """)

je ne sais pas si MonFichierSelected c'est que le nom 
ou alors s'il y a le path avec

s'il ny a pas le path
MyControlOpen.FilePath   ?

dans tous les cas tu doit arriver &#224; un truc du genre:
@Copy c:\CheminSource\MonFichierSelected c:\CheminCible

Bidouille ... D&#233;brouille ... Euuh !?... m' Embrouille .!!!  @+ JP