Ouverture automatique d'un fichier
Benjamin Larue
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu chauve."
- Bernard Blier -
Frédéric Sigonneau
Une solution parmi d'autres sans doute : lancer par OnTime une demande
d'ouverture d'un classeur basé sur ton modèle une seconde après sa fermeture.
Pour ça, dans le module ThisWorkbook du modèle, copie cette procédure ou place
l'instruction If...End If à la fin du code existant si tu utilises déjà
l'événement Workbook_BeforeClose :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If UCase(Right(ThisWorkbook.FullName, 3)) = "XLT" Then
Application.OnTime Now + TimeValue("00:00:01"), "Relance"
End If
End Sub
et dans un module standard :
Sub Relance()
Workbooks.Open ThisWorkbook.FullName
End Sub
FS
--
Frédéric Sigonneau [né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
> Benjamin Larue a écrit :
Benjamin Larue
J'ai essayé sur un nouveau classeur, enregistré en modèle, donc tout petit.
Ok, no problémo, tout est nickel.
Par contre, mon modèle pèse 2,7 Mo. Lourd et long à enregistrer avant
fermeture (procédure automatique). Environ 30 s sur ma machine.
Et avec ta modification de la macro de fermeture, effectivement, il essaie
de rouvrir un document, mais j'ai droit au message :
2001-090.XLT est déjà ouvert. Si vous l'ouvrez à nouveau, toutes vos
modifications seront perdues.Voulez-vous rouvrir 2001-090.XLT. (Bouton Oui /
Non).
Et ce malgré que j'ai joué avec le temps "on time", en essayant 30 s, puis
45 s et même 1 minute.
Et même au bout d'1 minute, j'ai Excel qui est "vide" pendant... Donc le
document est bien fermé.
Si je clique sur NON, il me rouvre le modèle (donc le .xlt), avec mes macros
d'ouverture opérationnelles (ComboBox et tout qui va bien). Ok pour le
fonctionnement. PAS OK car je suis à nouveau sur mon modèle.
Si je clique sur OUI, il m'ouvre bien un document basé sur mon modèle, mais
les macros d'ouvertures semblent dévalidées, alors qu'elles s'activent
automatiquement (signature de projet et tout et tout). Donc PAS OK.
Doublement pas OK, car il ne faut pas que l'utilisateur final ait à répondre
à une question. TOUT doit être automatique. Tu sais, j'ai des blaireaux
comme utilisateurs... {;o)~
Donc merci de ton aide, mais un p'tit complément s'rait l'bienv'nu !
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu
chauve."
- Bernard Blier -
"Frédéric Sigonneau" <frederic....@wanadoo.fr> wrote in message
news:3B93E511...@wanadoo.fr...
Benjamin Larue
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu chauve."
- Bernard Blier -
"Benjamin Larue" <blarue.aix...@mageos.com> wrote in message news:O633hxINBHA.1956@tkmsftngp05...
popi
ne convient pas , le connaissant il doit être en train de te proposer autre
chose ou un complément de réponse !
Et puis sur certains points il est difficile de "passer" après Frédéric !!
;-))
--
@+ popi
" Quadra ressoudeur "
http://perso.infonie.fr/popi/
(N'oubliez pas Bonjour, au revoir, Merci d'avance, contre Malpolitus !)
Benjamin Larue
Attila, en plus sympa.
Non, je ne suis pas impatient, je suis désespéré ! Bouhouhou...
Non, faut dire que j'ai envoyé à ma direction un fichier bogué et j'essaie
de me rattraper...
Promis, je mettrai le nom de l'heureux contributeur qui m'aura aidé !
{!o)~
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu
chauve."
- Bernard Blier -
"popi" <po...@infonie.fr> wrote in message
news:uiTQFoXNBHA.1956@tkmsftngp05...
Match
où ça ?
Sur le chèque de paye ? ;-))
Trop gêné pour signé
Benjamin Larue
bien tout seul, non ?
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu
chauve."
- Bernard Blier -
"Match" <ma...@videotron.ca> wrote in message
news:#2B4UTYNBHA.576@tkmsftngp05...
Frédéric Sigonneau
2.7 Mo j'ai pas ça en stock sur mon disque dur pour faire des tests...
Sous toute réserve donc, une modif à tester :
'====module ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If UCase(Right(ThisWorkbook.FullName, 3)) = "XLT" Then
DateSaved = FileDateTime(ThisWorkbook.FullName)
Application.OnTime Now + TimeValue("00:00:01"), "Relance"
End If
End Sub
'=======================
'======module standard
Public DateSaved
Sub Relance()
Do
Loop Until DateSaved <> FileDateTime(ThisWorkbook.FullName)
Workbooks.Open ThisWorkbook.FullName
End Sub
'=====================
L'idée est de stocker dans une variable la date de dernière modification du
modèle juste avant de lancer OnTime et de boucler dans la procédure Relance
jusqu'à ce que la date de dernière modification ait été mise à jour par Excel
(donc en principe après enregistrement et fermeture). L'avantage étant d'éviter
de coder en dur le délai avant l'ouverture d'un fichier basé sur le modèle (le
temps d'enregistrement d'un gros fichier pouvant être très variable suivant les
configurations).
Ça fonctionne chez moi et, au passage, j'ai remarqué, après avoir cliqué sur
fermer puis enregistrer les modifications (dans le modèle xlt), que le modèle se
ferme puis réapparait puis enfin cède la place à un nouveau fichier basé sur
lui.
Avec ton "gros" fichier j'imagine que cela peut donner l'impression que quelque
chose ne marche pas correctement mais, apparemment, cela semble être normal
(?)...
A+
Benjamin Larue
Je suis comme toi, devant mon micro, en train de m'arracher les cheveux par
poignées... Heureusement, j'ai le crâne bien fourni.
J'ai toujours le même souci que précédemment : il me dit que mon modèle (en
occurrence 2001-090.xlt) est déjà ouvert et que si je le rouvre, je perdrai
les dernières modifications... patati patata.
Or, pour Excel (je suis avec Office XP, au fait), mon modèle est bien fermé.
Euh... Bin pas tout à fait pour être précis : dans VBA, mon modèle originel
est toujours ouvert. Je l'avais déjà remarqué tout à l'heure...
Si je réponds "oui", les macros d'ouverture (workbook_open) ne marchent pas.
Je ne sais plus quoi faire...
En tout cas, merci de ton soutien.
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu
chauve."
- Bernard Blier -
"Frédéric Sigonneau" <frederic....@wanadoo.fr> wrote in message
news:3B955968...@wanadoo.fr...
Frédéric Sigonneau
Je vais essayer une autre approche. Pour l'instant dodo
FS
Benjamin Larue a écrit :
Benjamin Larue
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu
chauve."
- Bernard Blier -
"Benjamin Larue" <blarue.aix...@mageos.com> wrote in message
news:O3zdC7YNBHA.1672@tkmsftngp03...
Frédéric Sigonneau
Eh bien, il faut toujours écouter Excel :-)
S'il te dit que ton modèle est toujours ouvert c'est que, malgré les apparences
(surface de travail gris foncé = en principe aucun classeur ouvert), ton modèle
est toujours ouvert pour lui, et je pense que ça vient du fait que la procédure
Relance est dans un module du modèle.
On peut éviter le message d'alerte et le choix entre Oui et Non en utilisant
Application.DisplayAlerts=False mais je ne pense pas que cela te convienne.
La seule solution que j'ai trouvée est de déplacer la procédure Relance dans un
autre classeur. Une macro complémentaire pourrait sans doute faire l'affaire
mais, pour faire au plus simple, je te propose d'utiliser le Perso.xls.
Inconvénients : tu dois trouver le moyen d'inclure un module dans tous les
perso.xls concernés et le nom et le chemin du modèle doit être codé en dur dans
la procédure Relance (ici j'ai supposé que le modèle était enregistré dans le
dossier par défaut des modèles Excel).
L'avantage est que ça me semble fonctionner comme tu le souhaitais, sans que
l'utilisateur ait à intervenir.
Modifications à effectuer :
'=====dans le module ThisWorkbook de ton modèle
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then
Application.OnTime Now + TimeValue("00:00:01"), "perso.xls!Relance"
End If
End Sub
'==============================================
'=====dans un module standard du Perso.xls
Sub Relance()
LeModele = Application.TemplatesPath & "GrosModele.xlt"
Workbooks.Add LeModele
End Sub
'=========================================
A+
FS
Benjamin Larue a écrit :
>
Benjamin Larue
Tu as raison, comme je le disais précédemment, j'ai bien constaté la
présence de mon modèle, cachée dans VBA...
Donc, l'empêcheur de tourner en rond avait encore frappé.
Quant à DisplayAlerts, j'y ai pensé, mais ça ne fonctionne pas, on n'est
plus dans le document d'origine (enfin, il me semble).
Ton idée d'utiliser le perso.xls est intéressante. MAIS, car il y a toujours
un "mais", tu le sais que trop bien, c'est que je n'ai pas accès au
perso.xls des autres utilisateurs et que je ne peux pas écraser violemment
leur exemplaire, s'il existe. Je ne maîtrise malheureusement pas tout dans
l'environnement des utilisateurs. Concaténer ? Je ne sais pas faire et quid
de ceusses qui ont déjà tout ? Euh... Abandonnons.
Je viens de penser à quelque chose, en te lisant : pourquoi ne pas appeler
un classeur intermédiaire par macro depuis mon modèle.
A l'ouverture de ce classeur, il me ferme le modèle (toujours le même nom au
même emplacement) et m'ouvre un classeur basé sur ce modèle, puis se ferme
automatiquement...
Je ne sais pas ce que tu en penses ? Un avis ?
Si tu vois un inconvénient, n'hésite pas à m'en faire part, je ne testerai
pas ce soir, trop de boulot et trop crevé pour penser efficacement...
En tout cas, c'est sympa de te sortir les tripes pour moi.
Bonne nuit si tu ne reviens pas ce soir, sinon à toute, je suis là encore
une heure, mais pas plus...
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu
chauve."
- Bernard Blier -
"Frédéric Sigonneau" <frederic....@wanadoo.fr> wrote in message
news:3B96756D...@wanadoo.fr...
Frédéric Sigonneau
Oui c'est jouable. J'avais pensé à une macro complémentaire mais pourquoi pas un
classeur !
A mon avis, tu n'as pas besoin de l'ouvrir. Juste mettre une référence à ce
classeur (qui contiendrait simplement un module avec les 4 lignes de la
procédure Relance) dans ton modèle.
Et modifie la procédure lancée par le OnTime du ThisWorkbook du modèle :
"monClasseur.xls!Relance" au lieu de "perso.xls!Relance".
Benjamin Larue
(on est le lendemain, on peut dire bonjour, maintenant).
Un p'tit mot avant de partir au charbon (du charbon, à Marseille ???) : je
teste et je te tiens au courant.
Merci.
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu
chauve."
- Bernard Blier -
"Frédéric Sigonneau" <frederic....@wanadoo.fr> wrote in message
news:3B96B319...@wanadoo.fr...
Benjamin Larue
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then
"C:\PHARMAgest inter@ctive\Modèles\Développements\Transition.xls"
End If
End Sub
Application.OnTime Now + TimeValue("00:00:15"), "Relance"
ThisWorkbook.Close
End Sub
Workbooks.Add Template:= _
"C:\PHARMAgest inter@ctive\Modèles\Développements\Essai de fermeture.xlt"
End Sub
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu chauve."
- Bernard Blier -
Frédéric Sigonneau
Qu'est-ce que ça donne si tu remplaces
Application.OnTime Now + TimeValue("00:00:15"), "Relance"
par
Application.OnTime Now + TimeValue("00:00:15"), "Relance", , False
FS
--
Frédéric Sigonneau [né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
> Benjamin Larue a écrit :
Benjamin Larue
Encore moi, et oui...
Là, je ne comprends pas, j'ai bien placé le code avec ",,false", mais :
Erreur d'exécution '1004':
La méthode 'OnTime' de l'objet '_Application' a échoué
J'ai regardé l'aide, tout correspond, j'ai feuilleté le forum, et je n'ai
rien trouvé...
J'y perd mon latin.
Si tu as une astuce ?
Merci et bonsoir...
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu
chauve."
- Bernard Blier -
"Frédéric Sigonneau" <frederic....@wanadoo.fr> wrote in message
news:3B9A06DC...@wanadoo.fr...
Frédéric Sigonneau
On pourrait peut-être continuer en bal perso..
Envoie moi le nécessaire (zippé si possible :-)
A+
Benjamin Larue
Merci beaucoup Frédéric (non ! pas "que" comme ma femme, juste "c")
;-)
J'avais 2 OnTime qui se concurrençaient. Et ne pas mettre de commande Close
dans un module Private sub workgroup...
--
Benjamin (Un de la Canebière)
"L'expérience est un peigne que la vie vous offre lorsque vous êtes devenu
chauve."
- Bernard Blier -
"Frédéric Sigonneau" <frederic....@wanadoo.fr> wrote in message
news:3B9A984B...@wanadoo.fr...