[Résolu] Ouverture d'un fichier grace à l'adresse de son dossier.

[rafspain77]

Bonsoir à toutes et tous,

Alors voila, dans mon projet, je souhaite ouvrir un fichier excel "graphique" depuis un autre fichier excel "traitement".
Ces deux fichiers seront dans le même dossier, donc dans un premier temps, j'ai réussi à trouver l'adresse du dossier. mais maintenant, je veux ouvrir mon fichier "graphique".

Mais je bloque totalement.

je vous joins le fichier traitement et le graphique, qui est pour l'instant vide.

Merci d'avance pour votre aide.


Ps: il faut impérativement enregistrer les fichiers sur votre pc pour que ça marche.

 

[Guest]

Re : Ouverture d'un fichier grace à l'adresse de son dossier.

Bonsoir,

Enlever les guillemets à "Chemin":

Workbooks.Open Filename:=chemin

A+

 

[rafspain77]

Re : Ouverture d'un fichier grace à l'adresse de son dossier.

Bonjour,

Merci Hasco de ta réponse mais malheureusement, ca ne fonctionne pas plus.

Je n'arrive pas à trouver comment faire.

Merci pour votre aide.

 

[JBOBO]

Re : Ouverture d'un fichier grace à l'adresse de son dossier.

Bonjour,

Si ton fichier graphique se trouve dans le meme dossier que ton fichier traitement, alors tu peux creer un lien hypertexte avec la formule suivante :

=LIEN_HYPERTEXTE(GAUCHE((CELLULE("nomfichier"));CHERCHE("[";(CELLULE("nomfichier")))-1)&"graphique.xls")

 

[rafspain77]

Re : Ouverture d'un fichier grace à l'adresse de son dossier.

re,

Au temps pour moi Hasco, ton truc marche très bien, c'était ma formule qui ne marchait pas.

pour ceux qui auront l'idée de faire comme moi, voici le code:

Sub afficherRepertoireParent()
    Dim chemin As String
        If ThisWorkbook.Path = "" Then  'vérifie que le classeur soit bien enregistré
        MsgBox "Est ce que votre classeur est sauvegardé?"
        Exit Sub
    End If
    Range("A6") = ActiveWorkbook.Path   'Trouve l'adresse
    
    chemin = Range("A3")
    Workbooks.Open Filename:=chemin
       
    
End Sub

Merci à vous pour votre aide, à bientot je pense...!