macro et acces

Question

Bonjour à tous,

J'ai 2 questions concernant les macros et acces :
-	La première est : est-il possible de lancer une macro située dans un fichier acces depuis VB ?
-	La seconde est : dans une macro acces j'utilise la macro TransférerFeuilleCalcul, et je voudrait enregistrer mon fichier dans le dossier où est le fichier acces. Dans la propriété de la macro « Nom fichier » j'ai essayé pour se faire de mettre la fonction app.Path & "monfichier.xls" mais cela ne fonctionne pas. Y-a-t?il une fonction  qui peut le faire ?

Merci d'avance et bonne prog à tous.

@+++

valtrase · Answer

Salut,
Pour la première Hum faut voir .......
Pour la deuxieme dans la macro utilises
Application.Path  et non App.Path petite différence entre VB et VBA .....
_______________________________________

Jean-Paul

Le Savoir n'a de valeur que s'il est partagé

marcod59 · Answer

Salut,

Merci pour ta réponse. J'ai donc essayé avec application mais cela me met une erreur "Mise à jour impossible.La base de données ou l'objet est en lecture seule."
Par contre si à la place je met un simple c:\monfichier.xls il n'y a pas de problème. Faut-il faire queqhe chose de plus pour pouvoir utiliser la fonction Application.Path ?

Merci   @+++

valtrase · Answer

Tu peux mettre la source de ta macro sur ce post ?

_______________________________________

Jean-Paul

Le Savoir n'a de valeur que s'il est partagé

marcod59 · Answer

Voilà comment la macro lorsque je la convertie :

Function Macro1()
On Error GoTo Macro1_Err

    ' transfert les données dans excel
    DoCmd.TransferSpreadsheet acExport, 8, "suivi", "Application.Path &""suivi.xls""", False, ""
    ' ouvre la table
    DoCmd.OpenTable "suivi", acViewNormal, acEdit
    ' sans avertissement
    DoCmd.SetWarnings False
    ' sélectionne les enregistrements
    DoCmd.RunCommand acCmdSelectAllRecords
    ' et les suppriment
    DoCmd.RunCommand acCmdDeleteRecord
    ' arrêt macro pour retrouver les avertissements
    Exit Function

Macro1_Exit:
    Exit Function

Macro1_Err:
    MsgBox Error$
    Resume Macro1_Exit

End Function

valtrase · Answer

Essayes ça pour voir

Function Macro1()

On Error GoTo Macro1_Err

dim strChemin as String
strChemin = application.path
If Right(strchemin, 1) <> "" Then strChemin = strChemin & ""

' transfert les données dans excel
DoCmd.TransferSpreadsheet acExport, 8, "suivi", strChemin & "suivi.xls", False, ""
' ouvre la table
DoCmd.OpenTable "suivi", acViewNormal, acEdit
' sans avertissement
DoCmd.SetWarnings False
' sélectionne les enregistrements
DoCmd.RunCommand acCmdSelectAllRecords
' et les suppriment
DoCmd.RunCommand acCmdDeleteRecord
' arrêt macro pour retrouver les avertissements
Exit Function

Macro1_Exit:
Exit Function

Macro1_Err:
MsgBox Error$
Resume Macro1_Exit

End Function

_______________________________________

Jean-Paul

Le Savoir n'a de valeur que s'il est partagé

marcod59 · Answer

Lorsque je lance la macro il me met :
Erreur de compilation:
Membre de méthode ou de données introuvable

Il bloc sur .Path

valtrase · Answer

Bon Alors c'est ça

strChemin = Application.CurrentDb.Name

_______________________________________

Jean-Paul

Le Savoir n'a de valeur que s'il est partagé

marcod59 · Answer

maintenant j'ai le défaut :
c:\mondossier\monfichier.mdb\monfichier.xls  n'est pas un chemin d'accès valide.

valtrase · Answer

oups j'ai besoin de repos .......

strchemin = Application.CurrentProject.Path
_______________________________________

Jean-Paul

Le Savoir n'a de valeur que s'il est partagé

marcod59 · Answer

Plus de problème, juste ce qu'il faut. Tu peux te reposer avec la satisfaction du travail bien accompli.
Je te remercie te souhaite une bonne nuit et une bonne fin d'année.

@+++

Macro et acces

10 réponses

Discussions similaires