Import CommonDialog + Export daté Access (Help)

Import CommonDialog + Export daté Access (Help) - VB/VBA/VBS - Programmation

Marsh Posté le 14-04-2010 à 09:31:47    

Bonjour,  
 
1) Je suis débutant dans Access et je souhaite importer dans une table access un fichier Excel enregistré sur mon ordinateur.  
 
J'utilise alors :  
 
DoCmd.TransferSpreadsheet acImport, 8, "PRC EXPRESS B" (nom de ma table), "le chemin", True  
 
Cependant, je souhaiterais ouvrir la boite de dialogue pour savoir ou aller chercher le fichier Excel adéquat car il me demande toujours un chemin bien spécifique !  
 
J'ai essayé avec common dialog mais je ne sais pas trop où plcaer le code.  
 
Voici mon code complet :  
 
Private Sub Commande1_Click()  
 
DoCmd.TransferSpreadsheet acImport, 8, "PRC EXPRESS B", "le chemin", True  
 
End Sub  
 
2) autre souçi, j'utilise aussi pour l'export (qui là ouvre la boite de dialogue), un code tel quel :  
 
Private Sub LIA_01_Click()  
On Error GoTo Err_LIA_01_Click  
 
Dim stDocName As String  
 
stDocName = "* LIA01 INTERLOC > 23 J"  
DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, , True  
 
Exit_LIA_01_Click:  
Exit Sub  
 
Err_LIA_01_Click:  
MsgBox Err.Description  
Resume Exit_LIA_01_Click  
 
 
End Sub  
 
 
J'aimerais juste avoir sur mon export ou sur mon résultat de requête la date du jour (sur la première ligne, en pied de page, n'importe où mais sur le résultat).  
 
Pourriez vous m'aider SVP ? Je tente mais n'arrive à rien !  
 
Merci d'avance de votre aide  
 
Cordialement  
 
Edy360  

Reply

Marsh Posté le 14-04-2010 à 09:31:47   

Reply

Marsh Posté le 15-04-2010 à 23:21:20    

Voici 3 liens pour faire fonctionner cette foutue boite sous Access !
 
http://access.developpez.com/faq/? [...] ChemFicDlg
 
http://access.developpez.com/faq/? [...] BoitDialog
 
http://access.developpez.com/faq/? [...] oitEnregSs


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 20-04-2010 à 11:52:31    

Entretemps, j'ai réussi avec la fonction Launch CD récupéré sur un forum.
 
Le premier lien est très, je le garde !
 
Merci de ton aide OtObOx
 
A plus

Reply

Sujets relatifs:

Leave a Replay

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