Ouverture d'un fichier par macro

[Kersijus]

Bonjour à tous,

Je souhaite ouvrir un fichier lors de l'ouverture d'un autre fichier mais il y a un souci. Voici le code qui pose problème*:

Private Sub Workbook_Open()
Dim Wbk As Workbook
Const Fichier As String = "Test.xlsb"

Set Wbk = Application.Workbooks.Open(ThisWorkbook.Path & "\" & Fichier)

End Sub

ThisWorkbook.Path ne renvoie pas le chemin du fichier mais renvoie à un dossier temporaire (C:\~\temp) donc il ne trouve pas le fichier. Y a-t-il une solution à cela*?

Cordialement.

K<L<M

 

[Kersijus]

Re : Ouverture d'un fichier par macro

Bonjour,

Je suppose qu'il crée un fichier temporaire lors de la conversion et comme la macro se lance pile à l'ouverture il renvoie cette adresse alors qu'une macro dans un module renvoie l'adresse correcte. En tout cas, bravo pour la solution.

Cordialement.