Recupere la lettre du cd rom au demarrage du fichier

JYLL

Nous a quitté

Repose en paix

• 13 Décembre 2006

• #2

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

 

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 13 Décembre 2006

• #3

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

Code:

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

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

JYLL

Nous a quitté

Repose en paix

• 13 Décembre 2006

• #4

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.

 

Pièces jointes

• Recherche_CD.xls

  21.5 KB · Affichages: 34

Vote positif 0 Vote négatif

M

michel_m

XLDnaute Accro

• 13 Décembre 2006

• #5

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

Cliquez pour agrandir...

Bonne soirée

 

Dernière édition: 13 Décembre 2006

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 13 Décembre 2006

• #6

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

Code:

   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

 

Vote positif 0 Vote négatif