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

 

[Pierrot93]

Re : Ouverture d'un fichier par macro

Bonjour,

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*?

bah... sans doute que le fichier en question n'est pas enregistré sur le disque dur... il faut le faire au préalable...

bon après midi
@+

 

[Kersijus]

Re : Ouverture d'un fichier par macro

Bonjour,

Le fichier est bien enregistré. Le fichier que je cherche à ouvrir se trouve d'ailleurs dans le même dossier. De plus j'ai effectué un test en lançant la macro suivante dans un module*:

Sub Test()
MsgBox ThisWorkbook.Path

End Sub

Et cela me renvoie le bon chemin d'accès.

Cordialement.

K<L<M

 

[Pierrot93]

Re : Ouverture d'un fichier par macro

Re,

bah..; perso pas de souci avec ton code.... enfin, pour ouvrir un xls pas un xlsb, ce sous 2003

 

[Pierrot93]

Re : Ouverture d'un fichier par macro

Re,

pas de souci non plus pour ouvrir un xlsb, toujours sous 2003..... pas d'autre idée, moi....

 

[Kersijus]

Re : Ouverture d'un fichier par macro

Rebonjour,

En effet il semblerait que la compression soit à l'origine de cette étrangeté. Si le fichier d'origine est en xls pas de problème. Si c'est un xlsb, tout capote. Je joins un petit zip si vous voulez tester cela. Savez-vous s'il est possible de contourner cela*?

Cordialement.

K<L<M

 

[Pierrot93]

Re : Ouverture d'un fichier par macro

Re,

tu as vu mon post #5... pas de souci non plus avec un xlsb...

 

[Kersijus]

Re : Ouverture d'un fichier par macro

Bonjour,

Je n'avais pas vu le post antérieur. Je ne comprends pas du tout ce qui ne fonctionne pas. J'ai repris les fichiers envoyés sur le zip (en corrigeant l'erreur de la macro qui appelle un .xls au lieu d'un .xlsb) mais cela n'y change rien. Si le fichier portant la macro est en .xls il ouvre bien le fichier appelé. Si c'est un .xlsm ou un .xlsb il me dit qu'il ne trouve pas le fichier dans C:\Mondossier\temp\ (il m'affirme cela même si le fichier ne se trouve pas dans le disque dur C🙂.

 

[Pierrot93]

Re : Ouverture d'un fichier par macro

Bonjour,

bah là en l'état, perso, pas d'autre idée pour le moment pour ton problème....

bonne journée
@+

 

[Kersijus]

Re : Ouverture d'un fichier par macro

Bonjour,

Merci beaucoup pour les réponses rapides. Si je ne trouve pas je travaillerais avec un fichier non compressé mais c'est un peu dommage.

Merci beaucoup pour l'aide apportée.

Si d'autres idées vous viennent à l'esprit n'hésitez pas.

Cordialement.

K<L<M

 

[Pierrot93]

Re : Ouverture d'un fichier par macro

Re,

Si je ne trouve pas je travaillerais avec un fichier non compressé mais c'est un peu dommage.

c'est une nouvelle info, ca.... ou bien elle m'avait échappée... cela vient peut être de là, en effet....

 

[Kersijus]

Re : Ouverture d'un fichier par macro

Rebonjour (vous êtes très rapide*!),

Au cas où, je renvoie un petit dossier compressé avec les 3 types de fichier. Dans mon cas seul le fichier «*Test1.xls*» fonctionne, les deux autres (.xlsm et .xlsb) renvoient une erreur.

Cordialement.

K<L<M

 

[Pierrot93]

Re : Ouverture d'un fichier par macro

Re,

même punition chez moi avec le fichier xlsm..... A priori j'ai pu le faire fonctionner en modifiant la procédure comme suit :

Private Sub Workbook_Open()
Dim Wbk As Workbook
Const Fichier As String = "Test2.xlsb"
Set Wbk = Workbooks.Open(Mid(Me.FullName, 1, InStrRev(Me.FullName, "\")) & Fichier)
End Sub

A voir....

 

[Kersijus]

Re : Ouverture d'un fichier par macro

Effectivement, cela fonctionne parfaitement, même sur le fichier .xls. Merci beaucoup*! Je n'aurais jamais trouvé.

Si jamais vous avez le temps, pourrez-vous m'expliquer le code que vous utilisez*?

 

[Pierrot93]

Re : Ouverture d'un fichier par macro

Re,

Effectivement, cela fonctionne parfaitement, même sur le fichier .xls. Merci beaucoup*! Je n'aurais jamais trouvé.
Si jamais vous avez le temps, pourrez-vous m'expliquer le code que vous utilisez*?

maintenant savoir pourquoi il renvoie un "path" temporaire.... peut être un bogue du convertisseur 2007 10 => 2003....