Ouverture d'un classeur manuel ou par macro?

[Maxime]

BOnjour,

Je voudrais tester si le classeur a été ouvert par un utilisateur ou par une macro?
est ce possible?
Si oui, comment s'y prendre?
Merci!
Max
😉

 

[Temjeh]

Bonjour

Donné ici:

For n = 1 To Workbooks.Count
If wokbooks(n).Name = 'monfichier.xls' Then
MsgBox ('le fichier ' & wokbooks(n).Name & ' est ouvert')
Else
MsgBox ('le fichier monfichier.xls est fermé')
End If
Next n


Temjeh

 

[sousou]

Bonjour

Suivant ce que tu veux faire, ce petit programme vbs pourrait t'aider.

Set fso = CreateObject('Scripting.FileSystemObject')
Chemin= wscript.scriptfullname
chemin= left(chemin,len(chemin)-len(wscript.scriptname))
msgbox chemin
monfichier=Inputbox('Saisissez le chemin et le nom du fichier que vous voulez controler',chemin,chemin)


Set f = fso.GetFile(monfichier)

s = UCase(filespec) & chr(13)
s = s & 'Créé le: ' & f.DateCreated & chr(13)
s = s & 'Dernier accès le: ' & f.DateLastAccessed & chr(13)
s = s & 'Dernière modification le: ' & f.DateLastModified
msgbox s

 

[Bricofire]

Bonjour tout le monde, 🙂

Ca dépend de ta version d'excel, de la destination et de la portée de ton classeur.

Une astuce possible est d'utiliser une macro 'Aut😵pen' qui se met dans un module standard et qui a pour particularité de ne pas être activée si le classeur est ouvert par code, le reste coule de source..

Problème : Cette commande n'est plus supportée normalement par Microsoft, elle existe et tourne sans pb sous EX 2000, et je suis casi cecrtain jusqu'en 2003, mais il est normalement, déconseillé de l'utiliser car appellée à diparaître, il pourrait être interessant de la tester avec une Bêta 2007 😉

Bonne journée,

 

[Maxime]

Bonjour!

merci bcp pour votre adie, cependant, j'ai du mal formuler ma question car vous m'avez expliqué ( sauf erreur de ma part) ce qu'il fallait faire pour tester si un Classeur est ouvert.
Hors ma question est plus compliqué, comment détecter le fait que ce classeur a été ouvert de facon manuelle ou par macro.

Merci!
Maxime 😉

 

[Bricofire]

re à tous,

re-lit attentivement ma réponse maxime, je ne pense pas être à côté de la plaque... 😉

Bonne journée,

Message édité par: bricofire, à: 21/06/2006 16:51

 

[Maxime]

Merci bcp!
Ca marche en effet!
J'avais mal compris!
A+!
Max 😉