[chemin relatif dans une macro]

Ajouter un message à la discussion

Magnan

Posté le 04/01/2015 @ 10:44

Bonjour,

Dans une macro j'ai la ligne suivante :

Application.ExecuteExcel4Macro "SOUND.PLAY(,""C:\users\alain\desktop\pacman.WAV"")"

Pb : si je change le répertoire, il est évident que cela ne fonctionne plus car le chemin n'est plus valide.

Comment modifier le chemin pour qu'il fasse référence au chemin dans lequel se trouve le fichier XL (Ma réference).

Merci d'avance.

A+

gilbert_rgi

Posté le 04/01/2015 à 12:03

Bonjour

moi je regarderai plutôt du coté du path du fichier si le fichier est enregistré évidement

ex:

Sub test()
mavar = ThisWorkbook.Path
MsgBox mavar
End Sub

Modifié par gilbert_rgi le 04/01/2015 12:04

ferrand

Posté le 04/01/2015 à 12:31

Rien compris à ton problème !

L'emplacement du fichier Excel est indifférent pour l'exécution de cette ligne de code !

La seule chose qui importe c'est que le chemin du fichier pacman.wav soit le bon !

Magnan

Posté le 05/01/2015 à 12:42

Bonjour,

Ferrrand : Mon pb est simple.

Je prévois de mettre mes fichiers XL et Wav dans un répertoire précis. Jusque la tout va bien, tout fonctionne

Si l'utilisateur déplace le bloc {XL+Wav} dans un autre répertoire cela ne peut plus fonctionner.

D'où la recherche de paramétrage du chemin. XL devrait trouver le chemin d'installation du fichier Excel ce qui permettrait d'indiquer le chemin du fichier son.

J'ignore le déplacement du seul fichier Wav.

Merci pour vos conseils.

gilbert_rgi

Posté le 05/01/2015 à 13:53

c'est ce que je t'ai indiqué dans un post au dessus

trouver le path du fichier

mavar = ThisWorkbook.Path

Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & mavar & "\pacman.wav"")"

Attention aux""

Modifié par gilbert_rgi le 05/01/2015 15:30

ferrand

Posté le 05/01/2015 à 15:08

Si ton fichier wav suit le classeur, Gilbert t'avait donné la solution !

Magnan

Posté le 06/01/2015 à 09:27

Bonjour,

Merci pour ce complément.

Je vais tester et vous tiens informés.

A+

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

18,90 €

Microsoft Office 2019 Professional Plus à 18,90 €
Valable jusqu'au 05 Juin

Le vendeur sérieux Digital FR propose sur Amazon la clé d'activation légale pour Microsoft Office Professionnel 2019 Plus en français à 18,90 €. Cette clé livrée par email vous permettra d'activer Microsoft Office Professionnel 2019 Plus légalement et vous permettra ainsi d'utiliser autant de temps que vous voulez (il s'agit de la version complète et pas d'un abonnement) Word,Excel, PowerPoint, OneNote, Outlook, Publisher et Access 2019 sur un PC. La clé sera à activer sur Office.com où vous pourrez ensuite télécharger toute la suite bureautique. Pour mémoire, Microsoft Office Professionnel 2019 nécessite Windows 10. Sous Windows 7 ou 8, vous devrez vous tourner vers la version 2016. Pour plus d'info sur la procédure, n'hésitez pas à jeter un oeil à notre dossier pratique Acheter une clé OEM d'Office 2019 et l'installer.

> Voir l'offre

89,99 €

Enceinte sans fil bluetooth rechargeable JBL Flip 5 à 89,99 €
Valable jusqu'au 03 Juin

Amazon fait une promotion sur l'enceinte sans fil bluetooth rechargeable JBL Flip 5 qui passe à 89,99 € livrée gratuitement au lieu de 129 €. Connectez sans fil votre ordinateur, votre tablette ou votre smartphone et écoutez votre musique en stéréo avec le son JBL ample et riche avec des graves puissantes. Son micro intégré vous permettra également de répondre aux appels téléphoniques. L'autonomie est de 12h et l'enceinte est résistante et est étanche (IPX7).

> Voir l'offre

159,99 €

Tablette 10.1 pouces HUAWEI MediaPad T5 32 Go + écouteurs bluetooth AM61 à 159,99 €
Valable jusqu'au 04 Juin

Pour les French Days, RueDuCommerce fait une promotion sur la tablette tactile 10,1 pouces HUAWEI MediaPad T5 10 qui passe à 159,99 € avec le code FD-HUAWEI-35 alors qu'on la trouve ailleurs à partir de 190 €. En plus, des écouteurs bluetooth AM61 résistants à l'eau et à la sueur vous sont également offerts. Cette tablette a un écran de 10,1 pouces FullHD, 3 Go de RAM, un processeur octo-core Kirin 659, 32 Go d'espace de stockage (extensible via microSD) et tourne sous Android 8.0.

> Voir l'offre