Pb d'ouverture d'un autre fichier

Suite,

Ce n'est pas obligé de garder le Message Box, donc la ligne ci-dessous peut disparaître. Ainsi que le Stop

Rep = MsgBox("Fichier ouvert", vbInformation, "INFO")

Ainsi le fichier s'ouvrira si il est présent, sinon le message d'avertissement Fichier non trouvé s'affichera.

Enfin,

En tout début de code ces lignes

For Each wkb In Workbooks
If wkb.Name = "pharmacologie.xlsm" Then Exit sub
Next 

puis le reste du code présenté dans le précédent message.

Ainsi si le fichier est déjà ouvert la procédure sera quittée

Sinon elle suivra son cours pour rechercher le fichier et l'ouvrir si trouvé.

Bonne continuation.

X Cellus,

Cela fonctionne parfaitement. Donc je suppose que si maintenant je veux revenir à mon fichier "Pharmacologie", il suffit de remplacer Pharmacologie.xlsm par Cours Anatomie.xlsm?

Bonne journée

Bonjour Djodjo,

Attention, le chemin de tes deux fichiers est différent, du moins pour la partie finale.

Puisque ton fichier Anatomie.xlsm est dans le dossier Anatomie alors que l'autre ne l'est pas puisque placé au dossier supérieur.

Donc il partage un même chemin jusqu'à un certain point. Il faut en tenir compte lors de tes manips d'accès au fichier. Maintenant comme tu ouvres toujours le 1ier (normalement) avant le 2ième, pas de souci. Vu que le 1ier contient ton bouton de commande.

N'oublie pas de clore le sujet Ouverture fichier afin qu'il ne reste pas dans les "Cold Case"

A+

X Cellus,

Je te remercie pour tous tes bons conseils

Bonne journée