Recupere la lettre du cd rom au demarrage du fichier

[christ-94]

Bonjour

Récupère la lettre du cd rom au démarrage du fichier
Voila , j'aimerais récupère le lettre du lecteur de cd, au lancement du fichier
Explication , j'ai fait un classeur qui lance des plans et j'aimerais le mettre sur cd , problème sur le chemin de fichier en fonction des micros
Donc il faut que je récupère la lettre ou se trouve le cd au lancement de fichier


Merci d'avance

 

[JYLL]

Re : Recupere la lettre du cd rom au demarrage du fichier

Bonjour Christ-94 et le Forum,

Je pense qu'avec cette macro tu devrais t"en sortir.


Sub Recherche_CD()
Dim fs, d, i
Set fs = CreateObject("Scripting.FileSystemObject")
i = 67
Set d = fs.GetDrive(Chr(i))

While d.DriveType <> 4
i = i + 1
Set d = fs.GetDrive(Chr(i))
Wend
MsgBox ("Le CD a pour lettre : " & Chr$(i))
End Sub

Bon test

 

[christ-94]

Re : Recupere la lettre du cd rom au demarrage du fichier

Merci pour la macro

J'ai fait un fichier test et je l'ai grave
La macro a un problème sur cette ligne

Set d = fs.GetDrive(Chr(i))

erreur d'exécution '68'
le périphérique non disponible

ne peux t'on récupère la syntaxe sous forme en A1 par exemple

d:\repertoire\non du fichier
Car après je peux récupère le mon du disque, ainsi que le répertoire

 

[JYLL]

Re : Recupere la lettre du cd rom au demarrage du fichier

Re bonsoir,

Je te mets mon fichier qui fonctionne ici. As-tu des trous dans les lettres de tes pépériph ex:

C,D,E,G,M s'ils ne sont pas continu il y a une erreur. Il faudra revoir le code. Je pars dépanner mon épouse qui est en rade à 20km de la maison.

A plus.

 

[michel_m]

Re : Recupere la lettre du cd rom au demarrage du fichier

bonjour Christ, Jean-Yves

Une version proche de la solution de Jean-Yves:

Sub lettreduCD()
Dim fso As Object, lecteur As Object
Set fso = CreateObject("Scripting.fileSystemObject")
For Each lecteur In fso.Drives
If lecteur.driveType = 4 Then
MsgBox "la lettre du lecteur de CD est " & lecteur.driveLetter
end if
Next
End Sub

Bonne soirée

 

[christ-94]

Re : Recupere la lettre du cd rom au demarrage du fichier

re-bonjour

Bon courage pour le dépannage

j'ai change le problème et ces devenu plus simple
je mets le fichier sur le cd et je test pour recouperais le chemin

   Chemin = ThisWorkbook.Path
    Columns("H:H").Select
    Application.CutCopyMode = False
    ActiveCell.Replace What:="c:\", Replacement:=Chemin, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Find(What:="c:\", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate

Merci encore pour l'aide

pour info j'ai teste le fichier la macro ne fonctionne pas chez moi