Discussion :

[sbernardini]

Bonjour,

Je suis un nouvel utilisateur d'ACCESS 2007 et je ne sais pas où mettre mopn post sur le forum. J'espère que c'est le bon endroit.

J'ai une table et j'ai créé un formulaire d'extraction des données vers un fichier XLS ou XML (au choix de l'utilisateur).

Mon problème :
J'aimerai bien automatiser l'export des données au format XLS sans l'intervention de l'utilisateur et sans que ACCESS soit ouvert mais la je sèche !!!

Commande windows ? outil spécifique ?

Merci de votre aide.

[nico84]

Bonjour,

Il existe plusieurs passerelles possibles entre access et excel, cependant il faut bien faire attention à ne pas dupliquer les informations sans garder en mémoire quelle est la "source"...

Depuis excel, il est en particulier possible de remonter des infos d'access (ou de n'importe quelle autre base d'ailleurs) :
- soit en VBA
- soit directement avec une requete sur "données externes" (voir le menu correspondant)

[sbernardini]

Bonjour,

Il existe plusieurs passerelles possibles entre access et excel, cependant il faut bien faire attention à ne pas dupliquer les informations sans garder en mémoire quelle est la "source"...

Depuis excel, il est en particulier possible de remonter des infos d'access (ou de n'importe quelle autre base d'ailleurs) :
- soit en VBA
- soit directement avec une requete sur "données externes" (voir le menu correspondant)

Bonjour,

J'ai un formulaire avec un bouton qui, lorsque j'appuie dessus m'exporte des données automatiquement dans un fichier Excel.
J'aimerai, depuis une ligne de commande, lancer cette option sans intervention manuelle.

Je n'y arrive pas.

J'ai trouvé ça http://jpcheck.developpez.com/tutori...ge-parametres/ mais je ne sais pas comment dire dans ma ligne de commande de lancer l'export de données pour Excel.

Tu aurais une idée ?

[nico84]

J'aimerai, depuis une ligne de commande, lancer cette option sans intervention manuelle.

Cliquer sur un raccourci c'est déjà une intervention manuelle
Comme expliqué dans le tuto, il est possible de terminer le raccourci par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 /cmd "toto"

Ensuite à l'ouverture du logiciel il faut un test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if command()="toto" then 
  call export 'execute le code du bouton
  quit
end if

[Pittouti]

essai de voir avec le planificateur de tache de windows.

personnellemnt je ne l'ai jamais essayé, mais dans plusieurs tutos on parle de cet outil

[sbernardini]

Cliquer sur un raccourci c'est déjà une intervention manuelle
Comme expliqué dans le tuto, il est possible de terminer le raccourci par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 /cmd "toto"

Ensuite à l'ouverture du logiciel il faut un test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if command()="toto" then 
  call export 'execute le code du bouton
  quit
end if

Merci pour ces informations mais étant vraiment débutant en la matière, que mets-tu dans :
CALL EXPORT 'execute le code du bouton ???

Voila le code du bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Commande0_Click()
OuiNon = MsgBox("Etes-vous certain de vouloir exporter la table REF_MAGASIN au format Excel ?", vbYesNo)
If OuiNon = vbYes Then
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "REF_MAGASIN", "C:\temp\Test_camaieu\test.xls", , "Feuil1"
Exit Sub
Else
Exit Sub
End If
End Sub

Voila le code de la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function StartUp()
Dim monparam As Variant  ' déclare une variable
monparam = Command()      ' affecte la valeur transmise à la variable
    If Not IsNull(monparam) Then    'si la variable est nulle
        If Len(monparam) > 0 Then   'on s'assure qu'un paramètre a été passé, sinon pas de comportement particulier
            DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "REF_MAGASIN", "C:\temp\Test_camaieu\test.xls", , "Feuil1"
        End If
    End If
End Function

Voila le code que je lance en mode commande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

start /WAIT msaccess.exe "C:\temp\Test_camaieu\test.accdb" /cmd "GO"

Si je le lance, j'ai ACCESS qui me dit :
L'expression entrée comporte un nom de fonction que Microsoft Access ne peut trouver.

Je ne comprends pas le message d'erreur !

[nico84]

il faut simplement remplacer "export" par "Commande0_Click"

ou encore plus simplement pour éviter de poser la question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if command()="GO" then 
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "REF_MAGASIN", "C:\temp\Test_camaieu\test.xls", , "Feuil1"
  quit
end if

Je n'utilise pas de fonction startup. Chez moi tout ça se trouve dans le form_open du formulaire d'accueil.

Enfin dans mon raccourci j'ai plutot un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"  "\\titan\serveur2\Planet\planet.mde" /cmd "GO"

[sbernardini]

il faut simplement remplacer "export" par "Commande0_Click"

ou encore plus simplement pour éviter de poser la question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if command()="GO" then 
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "REF_MAGASIN", "C:\temp\Test_camaieu\test.xls", , "Feuil1"
  quit
end if

Je n'utilise pas de fonction startup. Chez moi tout ça se trouve dans le form_open du formulaire d'accueil.

Enfin dans mon raccourci j'ai plutot un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"  "\\titan\serveur2\Planet\planet.mde" /cmd "GO"

Tu vas me prendre pour un gros null....tu auras raison mais comment je trouve form_open du formulaire d'acceuil ?

[nico84]

C'est celui qui s'ouvre tout seul au lancement de l'application. Il est déclaré dans les propriétés de démarrage.

Ensuite il faut lui attacher une procédure évènementielle "sur ouverture"

[sbernardini]

C'est celui qui s'ouvre tout seul au lancement de l'application. Il est déclaré dans les propriétés de démarrage.

Ensuite il faut lui attacher une procédure évènementielle "sur ouverture"

Bon, voila le résultat.

Dans le formulaire d'ouverture, sur l'évènement "ouverture", j'ai mis Procédure évenementielle.
Voila le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
Dim monparam As Variant  ' déclare une variable
monparam = Command()
  MsgBox monparam
End Sub

Lorsque je lance ma ligne de commande suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

start /WAIT msaccess.exe "C:\temp\Test_camaieu\test.accdb" /cmd "GO"

ACCESS s'ouvre mais rien de plus.
Dans la procédure il y a un message à afficher à l'écran mais pas de message !!!
J'ai pas l'impression que le code soit exécuté à l'ouverture du formulaire !

[Jean-Philippe André]

salut,

les étapes côté VBA sont bien expliquées en principe

1/ macro AutoExec, avec le code qui est appelé
2/ Code qui décompose la ligne de commande avec Command()
3/ Manipulation en conséquence

Par contre en quoi le "GO" est pris en considération ici ?

[nico84]

ACCESS s'ouvre mais rien de plus.

Il doit aussi y avoir le formulaire d'ouverture qui s'ouvre, sinon ce n'est pas le formulaire d'ouverture...

[sbernardini]

Lors de l'ouverture d'ACCESS j'ai toujours le message d'alerte ACCESS suivant :
Avertissement de sécurité Du contenu de la base de données a été désactivée.

Je pense que le problème vient de la...

Mais je ne trouve pas le moyen de ne plus avoir ce message (d'indiquer que le contenu provient d'une source fiable)...

Quelqu'un sait comment faire ????

[sbernardini]

Lors de l'ouverture d'ACCESS j'ai toujours le message d'alerte ACCESS suivant :
Avertissement de sécurité Du contenu de la base de données a été désactivée.

Je pense que le problème vient de la...

Mais je ne trouve pas le moyen de ne plus avoir ce message (d'indiquer que le contenu provient d'une source fiable)...

Quelqu'un sait comment faire ????

C'est bon, j'ai trouvé...

DANS MS ACCESS, il faut ajouter le répertoire où est située la BD dans les emplacements approuvés...

Et cela fonctionne bien !

Merci les gars...quelle galère !!!!