à partir de exel appeler une macro propre à une data base - VB/VBA/VBS - Programmation
Marsh Posté le 29-04-2004 à 14:05:57
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 
Marsh Posté le 29-04-2004 à 15:42:58
 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 
 
 
 
Marsh Posté le 30-04-2004 à 13:49:42
 
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
Marsh Posté le 29-04-2004 à 12:40:19
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