Discussion :

[pelerin98]

Bonjour à toutes et à tous,

j'ai un projet Excel VBA dans lequel j'ai intégré des messages sonores.
Tous ces messages sonores sont des fichiers .wma que j'ai placés dans un dossier lui même installé sur le Bureau.
Dans toutes mes procédures d'appel son j'ai donc le chemin suivant : C:\Users\Utilisateur\Desktop\Couleurs\Y-MontreJaune.wav
A mon niveau, dans mon ordinateur tout se passe très bien.
Mais si je veux exporter mon projet sur un autre ordinateur, il faut :
1) que j'exporte mon projet
2) que j'exporte le dossier contenant tous mes fichiers son
3) que je transforme dans toutes les procédures son

Pour remédier à cela, y a t-il possibilité de placer mon dossier contenant tous les fichiers son dans le projet Excel VBA ?

Merci

[Marc-L]

Bonjour,

une solution simple est de placer les fichiers dans le dossier du classeur contenant le code,

ainsi il est aisé de le récupérer via ThisWorkbook.Path …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Menhir]

Quand on veut pouvoir transmettre un programme, c'est une très mauvaise idée de mettre des fichiers dans un des répertoires comme "Users" ou "Documents ans Setting" (du style "Mes Images").
A moins d'être un développeur chevronné et de pouvoir intégrer à son code la détermination de tels chemin en fonction de l'utilisateur.

Il est préférable de se faire un petit répertoire spécial sur C: (ou sur un disque réseau commun si le réseau est bien géré et que tous les utilisateurs accèdent aux mêmes disques avec les mêmes lettres), dans lequel on peut mettre tous ses documents rangés à la même place pour tout le monde.

3) que je transforme dans toutes les procédures son

Pour limiter la casse, tu peux mettre ce chemin dans une variable Public qui est renseigné dans un Sub appelé par tes différente macros. Ainsi, tu n'aurais à faire la modification qu'à un seul endroit.

Mais il est préférable, quand on le peu, de placer ses fichiers dans un endroit défini avec un chemin fixe.

[pelerin98]

Bonjour Menhir et merci,

je suis désolé d'étaler mon inculture, mais actuellement j'y accède avec . . .
PlaySound "C:\Users\Utilisateur\Desktop\Couleurs\X-Entree.wav", ByVal SND_SYNC, SND_FILENAME Or SND_ASYNC (fichier qui est sur mon bureau)

Mais je ne sais pas utiliser la fonction "ThisWorkbook.Path" sachant que désormais mon projet pourrait se trouver :
dans un dossier "EPEAM" contenant


Merci de votre patience

[Marc-L]

PlaySound ThisWorkbook.Path & "\X-Entree.wav" …

[SfJ5Rpw8]

PlaySound ThisWorkbook.Path & "\X-Entree.wav" …

je dirais même mieux :


PlaySound ThisWorkbook.Path & "\Couleurs\X-Entree.wav" …

[pelerin98]

Bonjour Marc-L et bbil,

comme d'habitude, vous êtes d'une aide plus que précieuse.
Bien entendu, ça règle mon problème.

Mille fois merci.

Pelerin98