Discussion :

[vince6153]

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

[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à

[kiki29]

Salut, voir ici ? sinon une recherche

[Marc-L]

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, …

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 Fenêtre d’exécution :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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)

[Invité]

Bonjour Marc,

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