Discussion :

[Henri1830]

Bonjour à tous,

Curiosité...

Point de départ:
Deux petites macros. Une de formatage d'un rapport XLS extrait d'une comptabilité, l'autre qui met ce même rapport en page en vue d'une impression.
Je place ces macros dans un fichier XLSM.
J'affecte chaque macro à une icône de la barre d'outils, no souci.

L'utilisateur me demande de pouvoir choisir le fichier à formater depuis la macro. J'ajoute:

Code :

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

1
2
    nom = Application.GetOpenFilename("Nom fichier,*.XLS")
    Workbooks.Open nom

Je teste au départ de macro => exécuter, tout fonctionne.

Je me dis qu'il serait mieux de placer ces macros dans un fichier XLTM.

Lorsque je lance le fichier XLTM, il le transforme en XLSM, comme d'habitude, mais il ne trouve plus mes macros. Voir message ci-dessous.


Cerise sur la curiosité:
Lorsque je tente d'y affecter des raccourcis clavier ça fonctionne à moitié:
La macro "formatage" se lance, elle affiche le fichier choisit mais ne va pas plus loin.
La macro "impression" fonctionne sans problème.

Merci d'avance pour toutes vos excellentes idées.

Henri

[parmi]

Bonjour,

J'opterais pour des macros complémentaires (.xlam) que tu fournis aux utilisateurs.
Ceux-ci n'ont qu'à les activer une fois qu'ils les ont copiées sur leurs ordis.

[Henri1830]

Cher Parmi,

Merci beaucoup pour le tuyau, ça fonctionne très bien.
Une autre question, si ce n'est pas abuser.

Comment puis-je placer automatiquement l'ouverture de l'explorateur dans le répertoire qui m'intéresse. Exemple c:\data

Code :

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

1
2
nom = Application.GetOpenFilename("Nom fichier,*.XLS")
    Workbooks.Open nom

[parmi]

À mettre avant l'appel à GetOpenFilename()

ChDrive "C"
ChDir "c:\data"

[Henri1830]

Encore merci à vous et bonne journée !

Henri