ouvrir un ficher par le biais d'une macro

tototiti2008

XLDnaute Barbatruc

• 8 Avril 2010

• #16

Re : ouvrir un ficher par le biais d'une macro

Bonjour,

si le fichier avec la macro n'est pas sur la clef, tu peux le placer où tu veux, ça n'a pas d'impact...

Je vais voir si je peux lire les noms de volumes

 

Vote positif 0 Vote négatif

L

link93

XLDnaute Occasionnel

• 8 Avril 2010

• #17

Re : ouvrir un ficher par le biais d'une macro

d'accord tiens moi au courant ^^

a plus

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Avril 2010

• #18

Re : ouvrir un ficher par le biais d'une macro

Re,

Voilà :

Code:

Sub LettreUSB()
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    For Each d In fs.drives
        If d.VolumeName = "GDOC" Then
            MsgBox "Clé USB Lecteur " & d.Driveletter
            Exit For
        End If
    Next d
    Set d = Nothing
    Set fs = Nothing
End Sub

 

Vote positif 0 Vote négatif

L

link93

XLDnaute Occasionnel

• 9 Avril 2010

• #19

Re : ouvrir un ficher par le biais d'une macro

BOnjour ça va ?

J'ai essayer d'utiliser ta macro mais il m'affiche "erreur d'éxectution 71" disque non prêt.

Sais tu d'ou cela peut venir ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Avril 2010

• #20

Re : ouvrir un ficher par le biais d'une macro

Bonjour link,

Oups, en effet, pour les volumes lecteurs de disquettes et de CD/DVD, si tu n'as pas de disquette ou CD/DVD dans le lecteur il n'arrive pas à lire le nom de volume, logique.

peut-être comme ça ? :

Code:

Sub LettreUSB()
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    For Each d In fs.drives
        If d.VolumeName = "GDOC" Then
            MsgBox "Clé USB Lecteur " & d.Driveletter
            Exit For
        End If
    Next d
    On Error GoTo 0
    Set d = Nothing
    Set fs = Nothing
End Sub

 

Vote positif 0 Vote négatif

L

link93

XLDnaute Occasionnel

• 9 Avril 2010

• #21

Re : ouvrir un ficher par le biais d'une macro

Re,

J'ai bien tn msg texte mais pas à la bonne lettre.

Ton code est sencé faire quoi ? M'indiquer quelle est la la lettre de ma clé ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Avril 2010

• #22

Re : ouvrir un ficher par le biais d'une macro

Re,

Oui, indiquer la lettre de la clef...

et comme ça ? (je n'ai ni CD, ni disquette)

Code:

Sub LettreUSB()
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    On Error GoTo Err1
    For Each d In fs.drives
        If d.VolumeName = "GDOC" Then
            MsgBox "Clé USB Lecteur " & d.Driveletter
            Exit For
        End If
Suivant:
    Next d
    On Error GoTo 0
    Set d = Nothing
    Set fs = Nothing
    Exit Sub
Err1:
    Resume Suivant
End Sub

 

Dernière édition: 9 Avril 2010

Vote positif 0 Vote négatif

L

link93

XLDnaute Occasionnel

• 9 Avril 2010

• #23

Re : ouvrir un ficher par le biais d'une macro

Re,

La macro ne mets met pas de msg d'erreur mais aucun msg non plus.

Est ce parcque j'ai un lecteur cd sur l'ordinateur ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Avril 2010

• #24

Re : ouvrir un ficher par le biais d'une macro

Re,

là il devrait te donner le nom de chaque volume qu'il arrive à lire.
quel nom il donne pour ta clé ?

Code:

Sub LettreUSB()
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    On Error GoTo Err1
    For Each d In fs.drives
msgbox "Lecteur " & d.driveletter & " : " & d.volumename
        If d.VolumeName = "GDOC" Then
            MsgBox "Clé USB Lecteur " & d.Driveletter
            Exit For
        End If
Suivant:
    Next d
    On Error GoTo 0
    Set d = Nothing
    Set fs = Nothing
    Exit Sub
Err1:
    Resume Suivant
End Sub

 

Vote positif 0 Vote négatif

L

link93

XLDnaute Occasionnel

• 9 Avril 2010

• #25

Re : ouvrir un ficher par le biais d'une macro

Re,

Oui en effet il me donne le nom de tous les volumes ma clé est à l'emplacement G est il lui donne le nom qui est ecrit dans parametre "nom du volume".


Tu peux m'expliquer ce que tu cherche à faire en faissant ça ?

Merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Avril 2010

• #26

Re : ouvrir un ficher par le biais d'une macro

Re,

j'essayais de répondre à ça :

La clé s'appelle GDOC

Cliquez pour agrandir...

je supposais donc que le nom de volume était GDOC...

 

Vote positif 0 Vote négatif

L

link93

XLDnaute Occasionnel

• 9 Avril 2010

• #27

Re : ouvrir un ficher par le biais d'une macro

AH je crois qu'on c'est mal compris surment de ma faute j'ai peut être mal exprimé mon besoin.

Je voulais pour ouvrir un fichier qui se trouve sur une clé qui s'appelle GDOC ( par exemple) via une macro sur un classeur qui lui n'est pas sur la clé.

Dsl

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Avril 2010

• #28

Re : ouvrir un ficher par le biais d'une macro

Re,

Oui, donc le nom de volume de ta clé est GDOC 😕

 

Vote positif 0 Vote négatif

L

link93

XLDnaute Occasionnel

• 9 Avril 2010

• #29

Re : ouvrir un ficher par le biais d'une macro

NOn mais ça peux l'être suffit que je change le nom dans les proprietés nn ?

T'a macro mais bien donné le nom de volume de ma clé.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Avril 2010

• #30

Re : ouvrir un ficher par le biais d'une macro

Re,

donc au choix, soit tu renommes le nom de volume actuel de ta clé, soit tu modifie la ligne de code suivante avec son nom actuel :

Code:

If d.VolumeName = "GDOC" Then

et le code du message 22 devrait te donner la lettre correspondante...

 

Vote positif 0 Vote négatif