OVH Cloud OVH Cloud

Ouvrir un modèle Excel

2 réponses
Avatar
Gilbert
Bonjour,

J'utilise le code suivant pour ouvrir un modèle Word (.dot)

Public Word_App As New Word.Application

Dim NomFich As String
Word_App.Visible = True
Word_App.Documents.Open NomFich

Et ça fonctionne très bien, c'est le modèle qui s'ouvre.


J'en ai déduit que je pouvais faire la même chose avec un modèle Excel
(.xlt)

Public XL_App As New Excel.Application

Dim NomFich As String
XL_App.Visible = True
XL_App.Workbooks.Open NomFich

Et là ce n'est pas le modèle qui s'ouvre, mais un classeur basé sur le
modèle, et qui donc ne s'appelle pas MonFichier.xlt, mais MonFichier1.xls.

Y-a-t'il une astuce quelque part?

Merci d'avance.

Gilbert

2 réponses

Avatar
Pierre CFI [mvp]
bonjour
tu vas sur excel, et enregistre une macro qui fait çà
puis un copier coller bidouillé....

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Gilbert" a écrit dans le message de news:
Bonjour,

J'utilise le code suivant pour ouvrir un modèle Word (.dot)

Public Word_App As New Word.Application

Dim NomFich As String
Word_App.Visible = True
Word_App.Documents.Open NomFich

Et ça fonctionne très bien, c'est le modèle qui s'ouvre.


J'en ai déduit que je pouvais faire la même chose avec un modèle Excel
(.xlt)

Public XL_App As New Excel.Application

Dim NomFich As String
XL_App.Visible = True
XL_App.Workbooks.Open NomFich

Et là ce n'est pas le modèle qui s'ouvre, mais un classeur basé sur le
modèle, et qui donc ne s'appelle pas MonFichier.xlt, mais MonFichier1.xls.

Y-a-t'il une astuce quelque part?

Merci d'avance.

Gilbert




Avatar
Gilbert
Merci de l'idée Pierre

Il fallait utiliser
XL_App.Workbooks.Open NomFich, Editable:=True

C'était écrit en tout petit dans l'aide à la fin d'un paragraphe. Je n'étais
pas allé jusqu'au bout de la lecture

Gilbert


"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
tu vas sur excel, et enregistre une macro qui fait çà
puis un copier coller bidouillé....

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Gilbert" a écrit dans le message de news:


Bonjour,

J'utilise le code suivant pour ouvrir un modèle Word (.dot)

Public Word_App As New Word.Application

Dim NomFich As String
Word_App.Visible = True
Word_App.Documents.Open NomFich

Et ça fonctionne très bien, c'est le modèle qui s'ouvre.


J'en ai déduit que je pouvais faire la même chose avec un modèle Excel
(.xlt)

Public XL_App As New Excel.Application

Dim NomFich As String
XL_App.Visible = True
XL_App.Workbooks.Open NomFich

Et là ce n'est pas le modèle qui s'ouvre, mais un classeur basé sur le
modèle, et qui donc ne s'appelle pas MonFichier.xlt, mais
MonFichier1.xls.



Y-a-t'il une astuce quelque part?

Merci d'avance.

Gilbert