Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
632 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  à partir de exel appeler une macro propre à une data base

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

à partir de exel appeler une macro propre à une data base

n°711679
zeustp2001
Posté le 29-04-2004 à 12:40:19  profilanswer
 


 Le probleme ici c'est que je doit pour remplir ma feuille exel à partir d'une base de donnée access .
  Avant il faut mettre à jours ma base de donnée.
 
   Cela est realisé par une macro propre à ma base de donnée qui s'appel
"load_files"
 
  Comment faire pour l'appeler à partir de n'importe quel classeur.
 
 
NB. Je travaille av objet DAO 3.6
 
   

mood
Publicité
Posté le 29-04-2004 à 12:40:19  profilanswer
 

n°711779
k1200
Posté le 29-04-2004 à 14:05:57  profilanswer
 

Tu la met dans un xla (fichier sauver sous) et tu la met dans le rep xlstart de Office ;)
 
Elle sera dispo tout le temps ;)

n°711922
zeustp2001
Posté le 29-04-2004 à 15:42:58  profilanswer
 

Merci pour le conseille
 En faite j'ai fais ce que tu m'as dit mais j'ai roncontrer 2 probléme  
- apres l'avoir enregistere je ne peut toujours pas l'executer
- la macro que j'utilise necessite une librairy access
pour plus de detaille je te la met si jointe
 
Option Compare Database
Option Explicit
Const TableFileName As String = "Fichiers_Chemins"
 
Public Sub LOAD_FILES()
 
Const col_File = 0
Const col_Table = 1
Const col_Spec = 2
Const col_Path = 4
Dim strSql As String
Dim varReturn As Long
DoCmd.SetWarnings False
 
With CurrentDb.OpenRecordset(TableFileName)
 
    ' On efface toutes les tables avant le chargement
    varReturn = SysCmd(acSysCmdSetStatus, strDeleting)
    Do While Not .EOF
    If .Fields("Enable" ) = True Then
         DoCmd.RunSQL ("DELETE FROM " & .Fields(col_Table))
    End If
         .MoveNext
    Loop
     
    ' On charge les tables
    .MoveFirst
    DoCmd.SetWarnings True
     
    Do While Not .EOF
         If .Fields("Enable" ) = True Then
                 varReturn = SysCmd(acSysCmdSetStatus, "Loading: " & .Fields(col_Path) & .Fields(col_File))
                 If .Fields(col_Spec) <> strExcelSpecification Then
                    DoCmd.TransferText acImportFixed, .Fields(col_Spec), .Fields(col_Table), .Fields(col_Path) & .Fields(col_File), False
                 Else
                    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, .Fields(col_Table), .Fields(col_Path) & .Fields(col_File), True
                 End If
         End If
        .MoveNext
    Loop
     
End With
 
varReturn = SysCmd(acSysCmdSetStatus, strSuccessLoading)
 
DoCmd.SetWarnings True
End Sub
 
 
 

n°712764
zeustp2001
Posté le 30-04-2004 à 13:49:42  profilanswer
 


S'il vous plais si qcq peut repondre ca sera sympas  
 
J'ai bon chercher je ne vois pas comment je peu le faire
 
Merci d'avance de votre aide


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  à partir de exel appeler une macro propre à une data base

 

Sujets relatifs
[Java] Retrouver le code java a partir des .class ?VB6 Contrôle data
Créer une miniature à partir d'un BLOBinterpreter du code php contenu dans une base mysql
[RESOLU][HEADER] Solution ultime pour programmer propre ?Récupération de compte Windows dans une base SQL ?
ajout utilisateur sur base de donnéeMacro Word 2000
[Php] - Resultat de la base SQL sur une page .MFC appeler un "event" pour simuler 1 timer
Plus de sujets relatifs à : à partir de exel appeler une macro propre à une data base


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR