OVH Cloud OVH Cloud

Auto Open

4 réponses
Avatar
Jacquouille
Bonsoir
Dans un bête fichier, ce code :
sub auto_open()
[a2]="essais non concluant"
end sub
------------
le but était de faire démarrer cette macro dès l'ouverture de mon fichier,
mais j'ai dû omettre quelque chose car cela ne donne rien.
Pouvez-vous rafraîchir mon neurone, svp
un grand merci
Jacques

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.
j.thiernesseNOSPAM@skynet.be

4 réponses

Avatar
michdenis
Bonsoir Jacquouille,

Si tu places ton bout de code dans un MODULE STANDARD, tu n'auras pas de problèmes. Si tu insères ce code dans le
ThisWorkbook de ton classeur, rien ne se passera. Attention, il ne faut pas mêler Workbook_Open et la Procédure
Auto_Open,.


Salutations!




"Jacquouille" a écrit dans le message de news:
Bonsoir
Dans un bête fichier, ce code :
sub auto_open()
[a2]="essais non concluant"
end sub
------------
le but était de faire démarrer cette macro dès l'ouverture de mon fichier,
mais j'ai dû omettre quelque chose car cela ne donne rien.
Pouvez-vous rafraîchir mon neurone, svp
un grand merci
Jacques

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

Avatar
Modeste
;-)))
Bonsour Jacquouille !!!
whaooo!!!
quelle évolution...
je pensais que tu en étais encore à:

Proc Auto_Ouvrir()
Avec FeuilleActive
[A2]="essais non concluant"
Fin Avec
Fin Proc

trefle de faisanderie !!!
pour ecrire dans une cellule, il faut dire dans quelle
feuille, ou bien que la feuille concernée soit précisée,
activée ou sélectionnée...
cela étant dit : Auto_Open, n'étant pas classé parmi les
évenenements, devra etre placée dans un module standard

sinon utiliser un évenement correspondant dans le module
ThisWorkBook

Private Sub Workbook_Activate()
With Sheets("Feuil1")
[A2] = "Activation " & Now()
End With
End Sub

Private Sub Workbook_Open()
With Sheets("Feuil1")
[A3] = "Essai non concluant " & Now()
End With
End Sub


-----Message d'origine-----
Bonsoir
Dans un bête fichier, ce code :
sub auto_open()
[a2]="essais non concluant"
end sub
------------
le but était de faire démarrer cette macro dès
l'ouverture de mon fichier,

mais j'ai dû omettre quelque chose car cela ne donne
rien.

Pouvez-vous rafraîchir mon neurone, svp
un grand merci
Jacques

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.



.



Avatar
Modeste
Ouppssssss...
saleté de ?¿%#$* de CDO.....

je m'escuse Mich...el ;o)))
je viens de marcher sur tes brisées ....
;o)))

-----Message d'origine-----
Bonsoir Jacquouille,

Si tu places ton bout de code dans un MODULE STANDARD,
tu n'auras pas de problèmes. Si tu insères ce code dans le

ThisWorkbook de ton classeur, rien ne se passera.
Attention, il ne faut pas mêler Workbook_Open et la

Procédure
Auto_Open,.


Salutations!




"Jacquouille" a écrit
dans le message de

news:
Bonsoir
Dans un bête fichier, ce code :
sub auto_open()
[a2]="essais non concluant"
end sub
------------
le but était de faire démarrer cette macro dès
l'ouverture de mon fichier,

mais j'ai dû omettre quelque chose car cela ne donne
rien.

Pouvez-vous rafraîchir mon neurone, svp
un grand merci
Jacques

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.




.



Avatar
michdenis
Bonjour Modeste,

Aucun problème !


Salutations!





"Modeste" a écrit dans le message de news:06db01c49c8e$c9afb080$
;-)))
Bonsour Jacquouille !!!
whaooo!!!
quelle évolution...
je pensais que tu en étais encore à:

Proc Auto_Ouvrir()
Avec FeuilleActive
[A2]="essais non concluant"
Fin Avec
Fin Proc

trefle de faisanderie !!!
pour ecrire dans une cellule, il faut dire dans quelle
feuille, ou bien que la feuille concernée soit précisée,
activée ou sélectionnée...
cela étant dit : Auto_Open, n'étant pas classé parmi les
évenenements, devra etre placée dans un module standard

sinon utiliser un évenement correspondant dans le module
ThisWorkBook

Private Sub Workbook_Activate()
With Sheets("Feuil1")
[A2] = "Activation " & Now()
End With
End Sub

Private Sub Workbook_Open()
With Sheets("Feuil1")
[A3] = "Essai non concluant " & Now()
End With
End Sub


-----Message d'origine-----
Bonsoir
Dans un bête fichier, ce code :
sub auto_open()
[a2]="essais non concluant"
end sub
------------
le but était de faire démarrer cette macro dès
l'ouverture de mon fichier,

mais j'ai dû omettre quelque chose car cela ne donne
rien.

Pouvez-vous rafraîchir mon neurone, svp
un grand merci
Jacques

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.



.