Usb sur vba

Résolu

rah-mani Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention - 13 janv. 2010 à 11:07

Bonjour,
j'ai u programmes de excel mes pour Enregistrer dans mon usb mes l’en blasement ça change toujours dans
E:\ APRIS F:\

COMMENT FAIRE POUR RECONNER USB DANE QUEL EMPLACEMENT

MON CODE
Private Sub CommandButton2_Click()
On Error Resume Next
Dim G As Long
clo = FreeFile

Open "E:\RAHMANI.TEXT" For Append Lock Write As #clo
Print #clo, Cells(1, 6), Cells(2, 4), CommandButton1.Caption
For G = 5 To 200
If Cells(G, 2).lien > 4 Then
Print #clo, Cells(G, 1), Cells(G, 2), Cells(G, 3), Cells(G, 4), Cells(G, 5), Cells(G, 6), Cells(G, 7), Cells(G, 8)

End If
Next G
Close #clo
End Sub

A voir également:

Vba usb
Clé usb non détectée - Guide
Usb show - Télécharger - Sauvegarde
Formater clé usb - Guide
Hp usb disk storage format tool - Télécharger - Stockage
Clé usb - Accueil - Stockage

5 réponses

Réponse 1 / 5

tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention 435

re,

Alors ton code donnerait ceci :

Private Sub CommandButton2_Click()
On Error Resume Next
Dim G As Long
clo = FreeFile

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk")

For Each objDisk in colDisks
if objDisk.VolumeName = "lenomdetaclé" then 
fichier = objDisk.caption & "\RAHMANI.TEXT"
end if
next

Open fichier For Append Lock Write As #clo
Print #clo, Cells(1, 6), Cells(2, 4), CommandButton1.Caption
For G = 5 To 200
If Cells(G, 2).lien > 4 Then
Print #clo, Cells(G, 1), Cells(G, 2), Cells(G, 3), Cells(G, 4), Cells(G, 5), Cells(G, 6), Cells(G, 7), Cells(G, 8)

End If
Next G
Close #clo
End Sub

Remplacer "lenomdetaclé" par "USB DANE" ou le nom qui apparait ds l'explorateur windows...

Réponse 2 / 5

tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention 435

Bonjour

Tu peux utiliser WMI pour ça :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk")

For Each objDisk in colDisks
if objDisk.VolumeName = lenomdetaclé then 
fichier = objDisk.caption & "\RAHMANI.TEXT"
ton code à mettre ici
end if
next

Voilà, là je l'ai fait en basant sur le nom de ta clé usb mais tu pourrais aussi utiliser le numéro de série de la clé etc....
https://docs.microsoft.com/en-us/windows/win32/cimwin32prov/win32-logicaldisk?redirectedfrom=MSDN

Réponse 3 / 5

rah-mani Messages postés 40 Date d'inscription Statut Membre Dernière intervention

explec moi svp au je mes le code

Réponse 4 / 5

rah-mani Messages postés 40 Date d'inscription Statut Membre Dernière intervention

mirc 100fois

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention 435

de rien ;), oublie pas de mettre en "résolu" si c'est le cas...
bonne journée

Discussions similaires

Que choisir pour boot sur clé usb ?

Adaptateur USB pour le WIFI 7 ...

Votre réponse

Discussions similaires