Lancer macro excel vers une présentation qui se trouve dans une clé USB

Version imprimable

06/12/2017, 07h24
vince6153

Lancer macro excel vers une présentation qui se trouve dans une clé USB

bonjour

je souhaiterais une petite aide :
j'ai un classeur excel qui fait appel à une présentation powerpoint via une macro mais cette présentation se trouve sur une clé USB.
comment lancer le powerpoint qui se trouve donc sur la clé usb depuis mon classeur Excel sans à chaque fois changer la lettre du lecteur dans ma macro excel?
merci pour votre aide
06/12/2017, 08h08
unparia

Bonjour
Excel n'étant pas devin, il va bien falloir que tu le lui indiques avec précision, ce chemin complet !
Autre possibilité (mais alors lourd) : parcourir tous les lecteurs jusqu'à trouver le bon. S'il contient par exemple à sa racine un fichier parfaitement identifiable par utilisation de la fonction Dir.

Si tout cela te parait compliqué, tu peux toujours éviter d'intervenir sur le "dur" de ton code. Comment ? --->> en invitant l'utilisateur (une simple inputbox) à désigner la lettre du lecteur.

Voilà
06/12/2017, 10h24
kiki29

Salut, voir ici ? sinon une recherche
06/12/2017, 12h14
Marc-L

Citation:

Envoyé par vince6153

comment lancer le powerpoint qui se trouve donc sur la clé usb […] ?

Comment ? Avec un peu de jugeote ‼
Que différencie donc un disque d'un autre en dehors de sa lettre d'unité ?
Son nom de volume ou encore son numéro de série ! (en 3/4 lignes de code)
A partir de là il n'est vraiment pas difficile pour un demandeur de présenter au moins une logique tenant la route …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour,
j'ai donné un nom à ma clé usb!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub DrivesInfo()    
Dim fso As Object, aDrive As Object
     Set fso = CreateObject("Scripting.FileSystemObject")
     'Set aDrive = fso.GetDrive("C:\")
 
    On Error Resume Next
    For Each aDrive In fso.Drives
        With aDrive
            Debug.Print "Drive Type: " & .DriveType
            Debug.Print "Drive Letter: " & .DriveLetter
            Debug.Print "Share Name" & .ShareName
            Debug.Print "Volume Name: " & .VolumeName
            Debug.Print "Free Space: " & Format(.FreeSpace / 1000000000#, "#0.00") & "GB"
            Debug.Print "Total Size: " & Format(.TotalSize / 1000000000#, "#0.00") & "GB"
            Debug.Print "Ready: " & .IsReady
            Debug.Print vbCrLf
        End With
    Next aDrive
 
    Set fso = Nothing
    Set aDrive = Nothing
End Sub

Code:

1
2
3
4
5
6
7
Drive Type:1
Drive Letter: F
Share Name
Volume Name: MYKAYUSB
Free Space: 1,96GB
Total Size: 1,96GB
Ready: Vrai

06/12/2017, 14h11
Marc-L

Salut Robert !

En attendant la présentation de la logique du demandeur (…), sans FSO
3 / 4 lignes de codes suffisent pour trouver un disque par son nom ou via son numéro de série …

___________________________________________________________________________________________________________
Question bien formulée, solution assurée ! (Robert Durupt)
06/12/2017, 14h24
Invité

Bonjour Marc,

oui tu a raison mois c'est du tout fait pas de question à me poser!