à 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