copier un ficher a un endroit précis, l'ouvrir depuis access

copier un ficher a un endroit précis, l'ouvrir depuis access - VB/VBA/VBS - Programmation

Marsh Posté le 12-07-2007 à 16:16:10    

ONZERAUDEUGAINE!!!
 
boujour à tous, c'est le retour du programmateur du dimanche version pro.
 
d'abord, merci a tous ceux qui tentent de me comprendre depuis un mois...
 
ensuite, et c'est surtout pour cela que je solicite votre attention, voici mon problème:
 
dans ma base de donnée, j'encode un certain nombre d'informations, dans un formulaire lié a une table.
cette table me sert à deux choses:  
 
programmer une date de maintenance sur un appareil, (et fabriquer des alertes automatiques jusqu'a cette date, mais je vous en reparlerai plus tard)
et "lier" un rapport (de maintenance) dans ma base de données
 
l'opération "Lier" un rapport devrai se dérouler en plusieurs étapes:  
on appuie sur un bouton,  
on ouvre une fenetre windows du type "enregistrer sous"
on retrouve le rapport sur le pc,
on clique sur OK,  
et lors de l'appui sur OK, je copie le fichier choisi a un endroit X,
et j'enregistre le le chemin d'accès de telle sorte qu'on puisse ensuite accéder au rapport en cliquant sur un autre bouton prévu a cet effet.  
 
voila voila, moi je sais faire un bouton.  :)  
 

Reply

Marsh Posté le 12-07-2007 à 16:16:10   

Reply

Marsh Posté le 12-07-2007 à 17:14:10    

dans ton évènement clic de bouton

Code :
  1. Dim temp As Variant
  2. Dim objExcel As New Excel.Application
  3.     temp = objExcel.GetOpenFilename
  4.     If temp <> False Then
  5.         msgbox temp
  6.     End If
  7.     Set objExcel = Nothing


 
ajoute la librairie excel dans tes références...

Reply

Marsh Posté le 13-07-2007 à 10:07:59    

appel réalisé dans quelle partie? le general de mon formulaire j'imagine...
c'est comme en C++?
#include <machinio.h>?

Reply

Marsh Posté le 13-07-2007 à 10:15:13    

Outils / Reference et tu selectionnes la librairie qui convient
(Vérifier en cas d'importation du fichier sur un autre poste que la librairie existe bien)
Donc non, pas comme en C++ ^^

Reply

Marsh Posté le 13-07-2007 à 10:17:56    

tu lis jamais tout mon texte toi  :pt1cable:  
dans ton évènement clic de bouton j'ai mis...

Reply

Marsh Posté le 13-07-2007 à 12:07:35    

[:antoine33] pardon... je referai plus..

Reply

Marsh Posté le 13-07-2007 à 13:56:38    

finalement, changement de programme, suite a une réunion et pour éviter que ma base ne prenne trop de place, je n'ai pas la possibilité de copier mon fichier a un autre endroit que la ou il est déjà mis...  
du coup je pase par un lien OLE classique
 
voila ou j'en suis:
 
j'ai déclaré dans mon tableau un champ de type Lien OLE.
la procédure de liaison m'oblige a passer par le menu principal de access , inserer--> objet  pour que le lien soit actif.
 
je vais donc essayer, via un bouton, de créer ce lien directement, sans passer par le menu général d'access  
 
je vous redit des que je bloque...  
merci beaucoup...

Reply

Marsh Posté le 13-07-2007 à 15:00:46    

un petit soucis sur les commandes....
 
j'aimerai réactualiser certains champs automatiquement, (exemple: pas besoin d'attendre qu'un enregistrement complet soit passé pour que le champ concerné soit rempli... )
 
le bouton actualiser me donne une certaine commande, mais lorsque je passe cette commande derrière l'une de mes zones de texte, elle ne fonctionne pas... comment puis-je faire?
 
merci d'avance...  
 
P.S.: ce coup ci, c'est promis je lit tout... ;)

Reply

Marsh Posté le 13-07-2007 à 16:33:20    

tu peux expliciter ton "une certaine commande" stp ?  :heink:

Reply

Marsh Posté le 13-07-2007 à 16:41:06    

heu...  
 
la commande est réalisé avec l'assistant. voici le code:
 
Private Sub Commande4_Click()
On Error GoTo Err_Commande4_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
 
Exit_Commande4_Click:
    Exit Sub
 
Err_Commande4_Click:
    MsgBox Err.Description
    Resume Exit_Commande4_Click
     
End Sub
 
de mon coté j'ai copié la commande "DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70" derrière ma zone de texte, sur l'evenement afterupdate

Reply

Marsh Posté le 13-07-2007 à 16:41:06   

Reply

Marsh Posté le 13-07-2007 à 16:42:52    

mais sais-tu seulement a quoi sert cette ligne de code ? :p

Reply

Marsh Posté le 13-07-2007 à 16:44:01    

j'ai aussi mis le doigt sur un autre problème, lorsque je rentre une nouvelle donnée et que je navigue jusqu'a mon 3eme formulaire lié, il "perd" parfois les données enregistrées dans mon premier formulaire.
 
le problème se résoud en fermant mon premier formulaire et en le rouvrant...

Reply

Marsh Posté le 13-07-2007 à 16:44:42    

non je sais pas...  
mais c'est surement pas ce que je crois

Reply

Marsh Posté le 13-07-2007 à 16:45:05    

c'est quoi?

Reply

Marsh Posté le 13-07-2007 à 17:07:58    

j'ai trouvé des topics sur d'autre sites (en mettant l'instruction dans GooGLE) ou les gens ont toutes sortes de problèmes de rafraichissement, mais le problème semble recurent: c'est apparement la bonne commande... je décortique...

Reply

Marsh Posté le 13-07-2007 à 17:27:08    

ca lance les fonctions des menus... pas ce qu'il y a de plus pratique, surtout si les menus sont différent pour une raison à la noix...

Reply

Marsh Posté le 13-07-2007 à 17:38:39    

:heink: kest ce que ca fout là...
 
pas grave. trouvé d'autres commandes bizarres... des Me.Refresh, Form.Refresh, Forms("SousFormulaireService" ).requery...
 
selon les dire des gens, ce serait cette dernière commande qui marcherait.  
 
mais depuis le premier topic que j'avais laissé j'entend parler de ce fameux .requery, a quoi sert il? dans mon cas il ne se rapporte a aucune requete non?
 
 
merci encore pour toute l'aide que vous m'apportez...

Reply

Marsh Posté le 13-07-2007 à 17:43:53    

lorsqu'un élément a une source, lorsque tu lui met un requery, ben ca remet a jour... :)

Reply

Marsh Posté le 13-07-2007 à 17:47:06    

OUaOUUUU!  
 
ca tue pas mal cette commande en fait...
 
donc, je place ca derrière les bons champs, evenement after update ou activate ou un truc du style, et j'ai plus de problème ni avec ca ni avec mes liens 3formulaires plus loin...
 
merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed