activ macro

[DENIS34]

bonjour, a tous
je suis allé sur wiki mais je n ai pas tout compri...
peut activé une macro a l ouverture d'un fichier?
merci

 

[PascalXLD]

Re : activ macro

Bonjour

fais une recherche sur le forum avec selfcert comme mot clé et tu trouveras ton bonheur

 

[DENIS34]

Re : activ macro

Bonjour

fais une recherche sur le forum avec selfcert comme mot clé et tu trouveras ton bonheur

j ai la comande ci-dessous qui doit correspondre a mes besoins
je la copie dans outil/macro/vbe mais elle ne s'effectue pas

Private Sub Workbook_Open()
macro1
End Sub

 

[nat54]

Re : activ macro

Bonjour,

Euh là il n'y aucun code..

A la place de macro 1, tu dois copier le code dont Pascal parle

 

[PascalXLD]

Re : activ macro

Re

Oups j'ai lu trop vite ta demande

Ce que je t'ai dit correspond au fait d'activer une macro directement sans avoir la question voulez-vous activer ?

Sinon si tu as bien une macro nommé macro1 ton code devrait fonctionner

il faut néanmoins que le niveau de sécurité soit à moyen et non à haut

 

[DENIS34]

Re : activ macro

Re

Oups j'ai lu trop vite ta demande

Ce que je t'ai dit correspond au fait d'activer une macro directement sans avoir la question voulez-vous activer ?

Sinon si tu as bien une macro nommé macro1 ton code devrait fonctionner

il faut néanmoins que le niveau de sécurité soit à moyen et non à haut

j ai joint la macro -ne me demande pas ce qu elle veux dire... le l ai faite en enregistrement mouvement,
en deux mots j'ai selectioné un tableau qu j'ai supprimé et remi a jour

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 20/09/2006 par moi meme
'
Selection.MoveDown Unit:=wdLine, Count:=5
Selection.Tables(1).Select
Selection.Cut
Selection.Range.InsertDatabase Format:=12, Style:=191, LinkToSource:=False _
, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\dmenard\Mes documents\ANNUAIRE.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB😀atabase " _
, SQLStatement:= _
"SELECT `F2`, `F3`, `F4`, `F5`, `F6` FROM `CONTACT$` WHERE ((`F1` = '48')) ORDER BY `F4`" _
& "", PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument _
:="", WritePasswordTemplate:="", DataSource:= _
"C:\Documents and Settings\dmenard\Mes documents\ANNUAIRE.xls", From:=-1, _
To:=-1, IncludeFields:=True
End

si il y plus simple je suis ok
merci

 

[PascalXLD]

Re : activ macro

Re

Bah oui mais regarde ta macro elle commence par selection....

même si tu mets

Private Sub Workbook_Open()
macro2
End Sub
a l'ouverture tu n'auras pas de selection. donc ta macro ne fera rien

Il faut donc qu'en début de macro tu lui indiques la feuille à selectioner ainsi que la plage

Bon courage