Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion rafspain77
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

R

rafspain77

Guest
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.
 

Pièces jointes

Dernière modification par un modérateur:
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.
 
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")
 
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:

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...!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…