Discussion :

[androginius]

Bonjour le forum.

J'ai un fichier modèle (toto.XLT). J'aimerai quand je dble-clic sur ce modèle et donc génère un nouveau fichier (toto1.XLS) qu'un autre fichier (popol.xls) qui se trouve dans le mème répertoire que le modèle s'ouvre.
Dans workbooks open du fichier modèle j'ai écrit:

Code :

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

Workbooks.Open (ThisWorkbook.Path & "\popol.xls")

Ceci marche au poil si j'ouvre le fichier XLT, mais si je génère un fichier basé sur l'xlt j'obtiens une erreur, logique par ailleurs, car le fichier toto1.xls n'est pas encore sauvegardé et donc n'a pas de path.

Sachant que:
- Je ne veux pas sauvegarder le fichier toto1.xls.
- le répertoire où se trouvent toto.xlt et popol.xlt m'est inconnu (modèle destiné à être utilisé sur plusieurs pc)
Comment connaître le path de popol.xls???

En fait ca revient a demander s'il existe un moyen de connaître le path du fichier modèle qui génère un fichier sans le sauvegarder.

Merci d'avance.

[Didier Gonard]

bonjour,

le répertoire où se trouvent toto.xlt et popol.xlt m'est inconnu

J'ai un fichier modèle (toto.XLT). J'aimerai quand je dble-clic sur ce modèle ...

comment fais-tu pour double-cliquer dessus si tu ne sais pas où il est

cordailement,

Didier

[androginius]

Bonjour Ormoth, le forum.

Merci pour ton intérêt. Et désolé, car je me rend compte que mon post n'était pas très clair...
Je me suis mal expliqué:
Evidemment, je connais le répertoire de mon modèle actuellement, mais ce modèle est destiné à être utilisé par d'autres, sur d'autres PC et donc le répertoire peut avoir un path différent de celui qu'il a maintenant pendant que j'écris le code.
Donc je reformule:
- Le fichier toto1.xls ne doit pas être sauvergardé avant que l'utilisateur ne le veuille.
- Lors de l'écriture de mon code, je ne sais pas où va se trouver le modèle quand un utilisateur va double cliquer dessus.
J'espère que c'est plus clair maintenant et que quelqu'un va pouvoir m'aider.
A bientôt!

[Didier Gonard]

Bonjour,

Excel ne renseigne pas (contrairement à Word par exemple), la propriété de document : template qui ressort donc vide.

Une piste possible est de la renseigner par macro dans tes modèles. Genre :

Code :

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

1
2
3
Sub EcritInfo()
ThisWorkbook.BuiltinDocumentProperties(6) = ThisWorkbook.Path
End Sub

Elle ressortira dans les classeurs issus du dit modèle, et sera lisible facilement en vba, cf ce code dans fenêtre exécution d’un classeur concerné :

? activeworkbook.BuiltinDocumentProperties(6)


Ou directement bien sûr, sur la feuille menu Fichier – Propiétés – onglet Résumé.


C’est une pirouette, vu que l’écriture n’est pas dynamique, donc à adapter selon ton contexte, sachant que si le modèle est déplacé, l’info devient fausse….donc préférer du genre (l’@ te servant à traiter facile ton string pour ressortir le chemin seul…) :

Code :

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

1
2
3
Sub EcritInfo2()
ThisWorkbook.BuiltinDocumentProperties(6) = " non dynamique, écritue perso @" & ThisWorkbook.Path
End Sub

Tu peux sinon écrire cette info en dur dans ton modèle dans une case « passage » qui servira à l’ouverture de tes .xls et que tu écrases par macro lors de ton traitement etc…

Sachant que le modèle sera installé ici : ???, tu pourrais mettre l'écriture de l'info (case ou properties) dans la macro open de ton modèle, la filtrer pour qu'elle ne fonctionne que sur un .xlt justement, et dans les directives d'installation signaler aux gens qu'il faut ouvrir le modèle lui-même une fois etc....

OK 2003 & 2007

cordialement,

Didier

[androginius]

Bonjour Didier,

Ta réponse m'apprend (et j'adore aprendre!!!) que mon problème n'est pas si trivial qu'il en a l'air.
Par ailleurs mille merci pour les astuces, je pense que ca sera suffisant pour me sortir de l'impasse.

A bientôt!