Ouvrir un fichier excel à partir d'un autre fichie

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 31 Mars 2005

• #2

Bonjour cybher

l'instruction thisworkbook.path te donnera le chemin du classeur contenant la macro exécutée, ce qui donne pour ton fichier à ouvrir

thisworkbook.path & '\\esclave\\fichier à ouvrir.xls'

Cordialement, A+

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 31 Mars 2005

• #3

Bonjour cybher, Yeahou,

Ci-joint un exemple.
Le traitement sert uniquement à ouvrir par défaut un fichier sur le disque. Si ce fichier n'est pas présent, la boite de dialogue 'Fchier/Ouvrir' est ouverte.
Puis, après l'ouverture du fichier, un enregistrement automatique est proposé.


Dis nous si cela te convient.

Abel.

Edition :
Et personne rigole, SVP .... [file name=OuvertureEnregistrement.zip size=42639]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/OuvertureEnregistrement.zip[/file]

Message édité par: Abel, à: 31/03/2005 10:44

 

Pièces jointes

• OuvertureEnregistrement.zip

  41.6 KB · Affichages: 140
• OuvertureEnregistrement.zip

  41.6 KB · Affichages: 133
• OuvertureEnregistrement.zip

  41.6 KB · Affichages: 136

Vote positif 0 Vote négatif

C

Cybher

XLDnaute Nouveau

• 31 Mars 2005

• #4

Merci à Vous,

mais en fait la commande Thisworkbook.path, me renvoie que le fichier est inexistant :

Ma Commande est :

Workbooks.OpenText Filename:= Thisworkbook.path & '\\Temp\\fichieràouvrir.XLS'

avec comme hypothèse un fichier à la racine, et le dossier temp, un dossier de la racine, et il me met que le fichier est introuvable et pourtant il existe.

Merci d'avance

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 31 Mars 2005

• #5

Re,

Euh ....
Je me rend compte que ce que je viens de faire n'est pas forcément évident.

Cybher, je viens d'éditer mon message précédent pour ajouter la pièce jointe qui manquait.
Arf !

Abel.

 

Vote positif 0 Vote négatif

C

Cybher

XLDnaute Nouveau

• 31 Mars 2005

• #6

Merci beaucoup Abel,

mais çà n'est pas tout à fait çà qu'il me faudrait.

En fait les 2 fichiers je veux les mettre n'importe où, sur le bureau, dans un répertoire quelconque...

Exemple :

C:\\procédure\\procédure.xls (Maître)
C:\\procédure\\fichiers\\fichiersàouvrir.xls (Esclave)

Et le répertoire procédure peut être modifier par n'importe quel autre, et moi je ne veux pas changer le répertoire de recherche à chaque fois.

Comment Faire

Encore Merci

Cybher

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 31 Mars 2005

• #7

Re,

L'exemple suivant te permet d'aller ouvrir un fichier à partir du répertoire courant. C'est à dire à partir du répertoire utilisé pour stocker le fichier contenant la macro.

Ce chemin peut être modifié à loisir dans le code ou en allant récupérer une information dans une cellule, par exemple.


Abel. [file name=ExempleCybher.zip size=32966]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleCybher.zip[/file]

 

Pièces jointes

• ExempleCybher.zip

  32.2 KB · Affichages: 146

Vote positif 0 Vote négatif

C

Cybher

XLDnaute Nouveau

• 31 Mars 2005

• #8

Merci Abel,

c'est bon, j'ai trouvé ce que je cherchais dans ton code.
En fait je l'avais déjà fait mais je pense que j'avais fait une faute de frappe dans le fichier à chercher... Etrange...

Encore Merci Beaucoup !!!!

Cybher

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 31 Mars 2005

• #9

Re bonjour Abel, Cybher, le forum

En précision:
il vaut mieux utiliser thisworkbook.path qu'activeworkbook.path.
Thisworkbook renvoie au classeur contenant la macro exécutée alors qu'activeworkbook renvoie au classeur actif.
La nuance est de taille.
Pour que cette instruction renvoie une valeur, il faut bien sur que le classeur ait été enregistré.

msgbox thisworkbook.path
te montrera la syntaxe renvoyée, tu verras alors qu'il n'y a pas d'antislashe en fin (la, j'ai un gros doute sur l'orthographe :S ) et qu'il faut donc l'ajouter pour enrichir le chemin

Cordialement, A+

 

Vote positif 0 Vote négatif

C

Cybher

XLDnaute Nouveau

• 31 Mars 2005

• #10

Salut Yeahou,

je confirme çà fonctionne très bien avec cette instruction :

open... thisworkbook & '\\temp\\fichieràouvrir.xls'

Merci encore

Cybher

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 31 Mars 2005

• #11

Re,

Tu as raison de préciser Yeahou.
Avec mes oeillères, je n'y avait pas songé.

Abel.

 

Vote positif 0 Vote négatif