Macro ouvrant une base de données acces .mdb

[fifounet]

Bonjour le forum
J'i une macro qu'Excel 2007 ne propose pas d' "Executer" (bouton grisé) dans l'onglet "macro"
je suis obligé de visualiser le code et lancer cette macro via vba
cette manip était inutile avec Excel 2003, j'ai bien sur cherché dans les sécurités des macros
mais rien n'y fait. Est ce tout simplement qu'excel n'ouvre plus directement un fichier .mdb
si quelqu'un peut m'aider
d'avance merci
voici le code:

ChDir "C:\toto\"
Workbooks.OpenDatabase Filename:="C:\toto\BD Toto.mdb", _
CommandText:=Array("essai"), CommandType:=xlCmdTable
etc...

 

[Compte Supprimé 979]

Re : Macro ouvrant une base de données acces .mdb

Bonjour Fifounet

Rassure moi, ta macro commence bien par : Sub NomMacro
et fini par : End Sub

A+

 

[fifounet]

Re : Macro ouvrant une base de données acces .mdb

oui bien sur !!!
j'ai volontairement supprimé l'inutile
a+

 

[Compte Supprimé 979]

Re : Macro ouvrant une base de données acces .mdb

Re,

Alors, si tu as l'option "exécuter" grisée, c'est qu'il te faut changer la politique de sécurité

Il faut aller dans le "Centre de gestion de la confidentialité"
-> Paramètres des macros
-> Désactiver toutes les macros avec notification

A+

 

[fifounet]

Re : Macro ouvrant une base de données acces .mdb

Merci Bruno
j'ai essayé ton truc mais ça ne change rien.
j'ai essayé en activant toutes les macros pareil.
là je sèche...

 

[Compte Supprimé 979]

Re : Macro ouvrant une base de données acces .mdb

Re,

Et bien tu n'as pas le choix Fantomas ... il faut nous joindre ton fichier 😉

A+

 

[fifounet]

Re : Macro ouvrant une base de données acces .mdb

Re
J'ai oublié de préciser que cette macro est dans PERSO.XLS
Je n'ouvre pas de fichier, je ne fais qu'ouvrir la table "essai" dans la base access "BD Toto.mdb"
et je l'enregistre en "essai.csv" apres 2 ou 3 modifs, je n'ai pas de fichier Excel proprement dit.
je viens d'essayer avec Excel 2003 sur mon portable et là
pas de pb je peux exécuter la macro.
je vous mets la macro complete;

Sub essai()

ChDir "C:\toto\"
Workbooks.OpenDatabase Filename:="C:\toto\BD Toto.mdb", _
CommandText:=Array("essai"), CommandType:=xlCmdTable

Range("S:S").Replace "", "-"
Range("H:H,I:I,J:J,M:M,P😛,Q:Q").Replace True, "Oui"
Range("H:H,I:I,J:J,M:M,P😛,Q:Q").Replace False, "Non"
Columns("A:T").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

ActiveWorkbook.SaveAs Filename:="C:\toto\essai.csv", _
FileFormat:=xlCSVWindows, local:=True, ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close

End Sub

 

[Compte Supprimé 979]

Re : Macro ouvrant une base de données acces .mdb

Re,

Désolé pour toi, moi j'ai fait un essai à la maison et sur Excel 2010
j'ai bien le bouton exécuté actif et je peu lancer la sub "Essai"

A+

 

[fifounet]

Re : Macro ouvrant une base de données acces .mdb

Merci quand meme Bruno
Je réessaierai demain, je ne vois
qu'un problème de sécurité ou de lecture seule du fichier .mdb
je te tiens au courant si je trouve
a+

 

[fifounet]

Re : Macro ouvrant une base de données acces .mdb

Re
Je viens de mettre un bouton d'exécution de la macro dans le ruban d'acces rapide d'Exel 2010 et ça fonctionne !!
par contre le bouton "Executer" est tjrs grisé dans l'onglet "macro"
Peu importe puisque ça marche.
Voilà A+