Problème d'ouverture

Le
Jc
Bonjour,
Un fichier de .xlsm avec un ruban.
Lorsque je l'ouvre il se referme dans le mouvement.
Par contre, si je l'ouvre alors qu'un autre fichier (nouveau ou non)
est ouvert, il reste ouvert et je peux l'utiliser sans problèmes aucun.
Quelqu'un a-t-il déjà eu un problème identique et dans ce cas comment
cela a-t-il été résolu,?
Peut-être des pistes ?

Il y a un Workbook_Open mais rien ne change en le vidant.
Je suis déjà reparti d'un fichier neuf dans lequel j'ai tout tranférer
(feuilles, modules, userform).

En vous remerciant d'avance de votre lecture et de vos éventuelles
méninges en surchauffe.

--

______________________________________________
Jc
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jc
Le #26497943
Petit oubli, quand j'ai ouvert un fichier neuf et mon fichier à
problème et que je ferme le neuf, tout fonctionne.
Je voulais dire en entrée de message "Un fichier de Type .xlms"
J'ai transféré un "r" de trop ...
Le 21/11/2018, Jc a supposé :
Bonjour,
Un fichier de .xlsm avec un ruban.
Lorsque je l'ouvre il se referme dans le mouvement.
Par contre, si je l'ouvre alors qu'un autre fichier (nouveau ou non) est
ouvert, il reste ouvert et je peux l'utiliser sans problèmes aucun.
Quelqu'un a-t-il déjà eu un problème identique et dans ce cas comment cela
a-t-il été résolu,?
Peut-être des pistes ?
Il y a un Workbook_Open mais rien ne change en le vidant.
Je suis déjà reparti d'un fichier neuf dans lequel j'ai tout tranférer
(feuilles, modules, userform).
En vous remerciant d'avance de votre lecture et de vos éventuelles méninges
en surchauffe.

--
______________________________________________
Jc
Michd
Le #26497948
Bonjour,
Est-ce que c'est le seul fichier qui a ce problème?
Est-ce simplement le fichier qui se referme ou le fichier et l'application Excel?
Fais une recherche dans l'interface VBA en utilisant à tour de rôle les expressions "Close" et
"Quit". Est-ce qu'une de ces expressions est utilisée? Si oui, dans une procédure événementielle
d'Excel, laquelle?
MichD
Jc
Le #26497949
Est-ce que c'est le seul fichier qui a ce problème?

a priori oui, j'en ai ouvert quelques uns au hasard pas de problème
Est-ce simplement le fichier qui se referme ou le fichier et l'application
Excel?

L'application de referme
Fais une recherche dans l'interface VBA en utilisant à tour de rôle les
expressions "Close" et "Quit". Est-ce qu'une de ces expressions est utilisée?
Si oui, dans une procédure événementielle d'Excel, laquelle?

Les "Close" et "Quit" sont dans des sub ou userform.
Un autre essai que j'ai effectué.
Mettre dans le open à l'ouverture la création d'un fichier.
Excel s'arrête quand même.
Avec un fichier neuf, le open fonctionne bien vu que je me retrouve
avec un second fichier neuf créé, lui, par le open.
Merci
--
______________________________________________
Jc
Michd
Le #26497957
| Les "Close" et "Quit" sont dans des sub ou userform
Si tu veux faire un test, dans la procédure Workbook_Open ajoute comme première ligne de commande
ceci : STOP
La procédure va s'arrêter et à l'aide de la touche F8, tu pourras exécuter chacune des lignes de
code et découvrir ce qui ne va pas à la séquence d'ouverture du fichier.
Une autre possibilité, publie ton classeur (tu peux supprimer toutes les données dans les feuilles
de calcul) en utilisant l'adresse Cjoint.com Tu nous retournes ici l'adresse que tu obtiendras.
Sans voir ton code, je ne peux pas grand-chose!
MichD
Jc
Le #26497959
Michd a pensé très fort :
| Les "Close" et "Quit" sont dans des sub ou userform
Si tu veux faire un test, dans la procédure Workbook_Open ajoute comme
première ligne de commande ceci : STOP
La procédure va s'arrêter et à l'aide de la touche F8, tu pourras exécuter
chacune des lignes de code et découvrir ce qui ne va pas à la séquence
d'ouverture du fichier.

En intégrant "Stop" dans le open, j'obtiens le même résultat.
Le fichier s'ouvre le temps de le voir et Excel s'arrête.
En l'ouvrant après avoir créé un nouveau fichier, j'obtiens le message
suivan :
Impossible d'exécuter le code en mode Arrêt
Il me faut alors cliquer plusieurs fois sur "Ok" pour rentrer dans le
pas à pas.
Tous les lignes passent sans problème.
Interrogation :
J'ai un ruban créé avec "Assistant ruban pour Office" développé par
Arkham46, trouvé sur "Developpez.com".
Extrêmement pratique, est-ce que le blocage pourrait venir au moment où
Excel "lit" à l'ouverture du fichier le ruban ? Mais pourquoi cela
passe-il alors si un autre fichier est ouvert ?
Une autre possibilité, publie ton classeur (tu peux supprimer toutes les
données dans les feuilles de calcul) en utilisant l'adresse Cjoint.com Tu
nous retournes ici l'adresse que tu obtiendras.

Ca serait une première pour moi, mais il y a une bonne quinzaine de
Userform la même chose de modules.
Sans voir ton code, je ne peux pas grand-chose!

Voila le code de l'Open
Private Sub Workbook_Open()
Dim FichierSav As String
Stop
AjoutRef 'ca passe sans problème
OrdreArrivée.Select
OrdreArrivée.Cells(2, 1).Select
' OrdreArrivée.Cells(65535, 1).End(xlUp).Offset(1).Select
OrdreArrivée.Shapes("ZoneTexteEffacer").visible = False
OrdreArrivée.Shapes("ZoneTexteEffacerPartiel").visible = False
OrdreArrivée.Shapes("GroupeExplications").visible = True
If Left(ThisWorkbook.Name, Len("Cross d'établissement V")) = "Cross
d'établissement V" Then
Call MsgBox("Vous ouvrez le fichier original." _
& vbCrLf _
& vbCrLf & "Pour que le fichier soit pleinement
opérationnel, il faut" _
& vbCrLf & "l'initialiser par le truchement du bouton du
même nom," _
& vbCrLf & "qui se trouve au niveau du ruban d'Excel dans
le menu" _
& vbCrLf & vbCrLf _
& " CROSS ETABLISSEMENT/Préparation des
Courses" _
& vbCrLf _
& vbCrLf & "Cette initialisation permet de renseigner
divers paramètres, propres à l'établissement, à l'année scolaire..." _
& vbCrLf _
& vbCrLf _
& "Noter que les caractéristiques de plusieurs
établissements sont mémorisées et peuvent être restaurée à l'aide du
bouton" _
& vbCrLf & vbCrLf & """Restauration des Constantes""" _
& vbCrLf & " du menu" _
& vbCrLf & """CROSS ETABLISSEMENT/Outils"".", vbExclamation
Or vbDefaultButton1, "Mise à Jour")
End If
'Tester l'existence et éventuelement créer le classeur fermé servant
de base de données
' FichierSav = ThisWorkbook.path & "Cross Sauvegarde.xlsx"
' If Dir(FichierSav) = "" Then CréerNewClasseur
Application.Calculation = xlCalculationAutomatic
End Sub
--
______________________________________________
Jc
Michd
Le #26497962
| Il me faut alors cliquer plusieurs fois sur "Ok" pour rentrer dans le
pas à pas. Tous les lignes passent sans problème.
**** Tu veux dire que le fichier se ferme seulement après avoir exécuté complètement la procédure
Workbook_Open?
Tu utilises ce type de procédure dans un module standard " Sub Auto_open() ?
Sans voir ton classeur, je m'arrête ici. Je laisse à d'autres le soin de compléter l'échange au
besoin. Je ne suis pas intéressé à ce type de "Chatting".
MichD
Jc
Le #26497963
Michd a présenté l'énoncé suivant :
| Il me faut alors cliquer plusieurs fois sur "Ok" pour rentrer dans le
pas à pas. Tous les lignes passent sans problème.
**** Tu veux dire que le fichier se ferme seulement après avoir exécuté
complètement la procédure Workbook_Open?

Non, quand il y a un fichier "neutre" ouvert, l'ouverture du fichier à
problème s'arrête à stop.
Le message d'erreur apparaît, il faut faire "Ok" plusieurs fois et le
fichier s'ouvre normalement en pas à pas.
Par contre en ouvrant ce fichier directement, l'application se ferme
avant de passer par stop (j'immagine) vu que l'arrêt n'a pas lieu.
Tu utilises ce type de procédure dans un module standard " Sub Auto_open() ?
Sans voir ton classeur,

Le lien npour ci-joint
https://cjoint.com/c/HKvqGlaENEi
--
______________________________________________
Jc
Michd
Le #26497968
J'ai ouvert ton fichier à plusieurs reprises et il ne se referme plus.
https://www.cjoint.com/c/HKvrG03wlvi
Dans la procédure Workbook_Open() dans le bas de celle-ci j'ai modifié ceci :
Application.EnableEvents = False <<<<<<--------Ajout
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True <<<<<<--------Ajout.
Mais même sans ces ajouts, ton fichier a un comportement "normal".
Tester avec Excel 2016.
MichD
Jc
Le #26497971
Après mûre réflexion, Michd a écrit :
J'ai ouvert ton fichier à plusieurs reprises et il ne se referme plus.
https://www.cjoint.com/c/HKvrG03wlvi

En premier merci de t'occuper de mon problème.
J'ai la version Excel 2013.
Je n'ai pas pu ouvrir le fichier que tu as joins, le message d'erreur
indiquant que le format ou l'extension n'est pas valide.
Un problème d'Excel 2016 vers 2013 ?
Ps: s'est- il ouvert directement chez toi ?
--
______________________________________________
Jc
Michd
Le #26497981
Ce fichier est équivalent à l'original. Il s'ouvre sans se refermer. (Excel 2016)
https://www.cjoint.com/c/HKvthsz0jei
Ferme Excel et va dans ce répertoire :
C:UsersTon profileAppDataLocalTemp
Supprimer tous les fichiers et répertoires que tu peux, il en restera quelques-uns que tu ne pourras
pas détruire...
Dans ce répertoire, ne conserve que le répertoire "XlStart" et le fichier Excelxx.xlb (xx=numéro
de ta version)
C:Userston profileAppDataRoamingMicrosoftExcel
Maintenant, ouvre le fichier.
Quand tu essaies d'ouvrir le fichier pour la première fois, tu peux avoir une ligne au-dessus (en
haut) de la feuille de calcul demandant si tu veux activer le fichier. C'est simplement une question
de sécurité. Tu cliques sur le bouton activé et tu fermes le classeur. Cela devrait aller...
A priori, les fichiers ouverts par Excel 2016 ne devaient éprouver aucune difficulté à s'ouvrir sur
les versions 2007 et plus récentes.
MichD
Publicité
Poster une réponse
Anonyme