Lettre de lecteur de CD variable

[Laurent]

Bonjour à tout le forum et en particulier à Michel, Thierry et Christophe qui m'ont aidé à réaliser ma macro d'ouverture de fichier.
C'est super, ça fonctionne avec des fichiers cible sur mon disque dur mais que dois-je mettre comme chemin si je mets l'ensemble sur CD, sachant que la lettre du lecteur peut-être différente suivant le micro.
Je vous remercie par avance pour votre réponse.
Bonne fin de journée à tous.

 

[michel]

Bonsoir Laurent

je ne sais pas si cela peut fonctionner, mais la procédure ci dessous permet déja de recuperer le nom d'un lecteur de CD
cette procedure est issue du site de Daniel.J

Option Explicit
Private Declare Function GetDriveTypeA Lib "Kernel32" _
(ByVal nDrive As String) As Long
Sub TestCD()
Dim I As Integer
For I = 65 To 91
If GetDriveTypeA(Chr$(I) & ":\") = 5 Then Exit For
Next I
If I = 92 Then MsgBox "Aucun lecteur de CD-ROM détecté." _
Else MsgBox "Lecteur détecté sur " & Chr$(I) & ":"
End Sub


tu trouveras pleins d'autres choses interessantes sur son site
http://dj.joss.free.fr/index.htm

j'espère que cela pourra t'aider
bonne soirée
Michel

 

[Laurent]

Salut à tous,
Merci Michel, je vais essayer de me débrouiller mais çà va être dur...
Bon week-end au forum.

Laurent