Discussion :

[joe_mannix]

Bonjour,

Je cherche à créer dans une macro VBA un classeur "spécial". Je m'explique :

Quand on lance Excel seul (sans cliquer sur un fichier), il crée un classeur nommé "Classeur1" avec 3 feuilles vides. Ce classeur est un peu spécial car si depuis excel on ouvre ensuite un fichier, Excel ne rajoute pas de classeur mais écrase (ou utilise) le "Classeur1" qui est alors remplacé par le fichier qu'on vient d'ouvrir

J'ai 2 questions :

- Quelqu'un sait-il comment on peut créer en VBA un classeur ayant ces propriétés ?

- En supposant qu'on viennent juste de lancer Excel et que ce "Classeur1" soit actif, est-il possible en VBA d'ouvrir un fichier qui ajouterait un nouveau classeur sans utiliser "Classeur1"

Merci de votre aide

[alsimbad]

tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Add

ça cré un nouveau classeur et si classeur 1 existe déja, il l'appellera classeur2
je vois pas trop l'utilité de ce que tu demande. quand excel appelle le premier classeur classeur1, si tu ouvre un autre fichier, il ne s'en sert pas et ne le fait pas apparraitre, mais des que tu t'en sert, il ne l'effacera plus. explique nous

[joe_mannix]

J'ai une macro complémentaire (xla) qui, entre autre, charge des données à partir d'une autre feuille et la referme ensuite au lancement d'excel.
Je souhaiterais que cette opération soit transparente pour les utilisateurs et obtenir un fonctionnement identique à celui d'excel en standard.
Le pb est que le chargement de cette autre feuille fait diapraitre Classeur1 et que si j'ajoute un nouveau classeur avec workbooks.add , le classeur ajouté ne se comporte pas comme le Classeur1 initial

Merci de votre aide

[ouskel'n'or]

Tu lances ta macro complémentaire comment ?
Peut-être une solution :
Tu écris une macro qui lance ta macro complémentaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub LaMacroQuiCacheTout()
    Application.screenupdating = false
    Call TaMacroComplémentaire
    Application.screenupdating = True
End sub

Ça pourrait marcher si ta n'a pas un Application.screenupdating = True en début de code
Tu dis