le probleme de cette méthode c'est que ça ne marche pas se l'on nomme le lecteur de disquette c et le dique dure A
-----Message d'origine----- salut !
lecteur = left(ActiveWorkbook.Path,2)
voila !
orel
"Emcy" a écrit dans le message news: 098101c36c8f$7b26f660$
salut,
y a-t-il un moyen de savoir sur quel type de support
disquette, CD-rom, disque dure )est le classeur actuellemnt ouvert ?
.
popi
In news:0c2a01c36c92$a3eb7cd0$, Emcy s'écria:
y a-t-il un moyen de savoir sur quel type de support disquette, CD-rom, disque dure )est le classeur actuellemnt ouvert ?
Salut Emcy, en supposant que le classeur actif a été enregistré au moins une fois ;-)
Sub AfficheTypeLecteur() 'tiré de l'aide Dim fs, d, s, t Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(Left(ActiveWorkbook.Path, 2)) Select Case d.DriveType Case 0: t = "Inconnu" Case 1: t = "Amovible" Case 2: t = "Fixe" Case 3: t = "Réseau" Case 4: t = "CD-ROM" Case 5: t = "Disque RAM" End Select s = "Lecteur " & d.DriveLetter & ": - " & t MsgBox s End Sub
@+ popi
In news:0c2a01c36c92$a3eb7cd0$a301280a@phx.gbl,
Emcy <emcy@voila.com> s'écria:
y a-t-il un moyen de savoir sur quel type de support
disquette, CD-rom, disque dure )est le classeur
actuellemnt ouvert ?
Salut Emcy, en supposant que le classeur actif a été enregistré au moins une
fois ;-)
Sub AfficheTypeLecteur() 'tiré de l'aide
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(Left(ActiveWorkbook.Path, 2))
Select Case d.DriveType
Case 0: t = "Inconnu"
Case 1: t = "Amovible"
Case 2: t = "Fixe"
Case 3: t = "Réseau"
Case 4: t = "CD-ROM"
Case 5: t = "Disque RAM"
End Select
s = "Lecteur " & d.DriveLetter & ": - " & t
MsgBox s
End Sub
y a-t-il un moyen de savoir sur quel type de support disquette, CD-rom, disque dure )est le classeur actuellemnt ouvert ?
Salut Emcy, en supposant que le classeur actif a été enregistré au moins une fois ;-)
Sub AfficheTypeLecteur() 'tiré de l'aide Dim fs, d, s, t Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(Left(ActiveWorkbook.Path, 2)) Select Case d.DriveType Case 0: t = "Inconnu" Case 1: t = "Amovible" Case 2: t = "Fixe" Case 3: t = "Réseau" Case 4: t = "CD-ROM" Case 5: t = "Disque RAM" End Select s = "Lecteur " & d.DriveLetter & ": - " & t MsgBox s End Sub
@+ popi
FxM
Emcy wrote:
le probleme de cette méthode c'est que ça ne marche pas se l'on nomme le lecteur de disquette c et le dique dure A
Impossible ! A: est le premier lecteur de disquette B: est un second lecteur ou reprend le 1er lecteur en cas d'absence d'un second lecteur, C: est la première partition du premier disque dur. Les lettres suivantes peuvent désigner n'importe quoi (autre partition sur le même disque ou un autre, lecteur CD, graveur, lecteur réseau, ZIP, appareil photo, ....)
AMHA, si tu as des choses à cacher dans tes macros ou tu veux ABSOLUMENT contrôler, oublie Excel et VBA !
@+ FxM
Emcy wrote:
le probleme de cette méthode c'est que ça ne marche pas
se l'on nomme le lecteur de disquette c et le dique dure A
Impossible !
A: est le premier lecteur de disquette
B: est un second lecteur ou reprend le 1er lecteur en cas d'absence
d'un second lecteur,
C: est la première partition du premier disque dur.
Les lettres suivantes peuvent désigner n'importe quoi (autre partition
sur le même disque ou un autre, lecteur CD, graveur, lecteur réseau,
ZIP, appareil photo, ....)
AMHA, si tu as des choses à cacher dans tes macros ou tu veux
ABSOLUMENT contrôler, oublie Excel et VBA !
le probleme de cette méthode c'est que ça ne marche pas se l'on nomme le lecteur de disquette c et le dique dure A
Impossible ! A: est le premier lecteur de disquette B: est un second lecteur ou reprend le 1er lecteur en cas d'absence d'un second lecteur, C: est la première partition du premier disque dur. Les lettres suivantes peuvent désigner n'importe quoi (autre partition sur le même disque ou un autre, lecteur CD, graveur, lecteur réseau, ZIP, appareil photo, ....)
AMHA, si tu as des choses à cacher dans tes macros ou tu veux ABSOLUMENT contrôler, oublie Excel et VBA !