Ouverture d'un classeur manuel ou par macro?

Temjeh

XLDnaute Accro

• 21 Juin 2006

• #2

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Juin 2006

• #3

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

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 21 Juin 2006

• #4

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,

 

Vote positif 0 Vote négatif

M

Maxime

Guest

• 21 Juin 2006

• #5

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 😉

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 21 Juin 2006

• #6

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

 

Vote positif 0 Vote négatif

M

Maxime

Guest

• 22 Juin 2006

• #7

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

 

Vote positif 0 Vote négatif