Usb sur vba
Résolu
rah-mani
Messages postés
55
Statut
Membre
-
tompols Messages postés 1325 Statut Contributeur -
tompols Messages postés 1325 Statut Contributeur -
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
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
- Hp usb disk storage format tool - Télécharger - Stockage
- Usb show - Télécharger - Sauvegarde
- Formater clé usb - Guide
- Clé usb - Accueil - Stockage
5 réponses
re,
Alors ton code donnerait ceci :
Remplacer "lenomdetaclé" par "USB DANE" ou le nom qui apparait ds l'explorateur windows...
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...
Bonjour
Tu peux utiliser WMI pour ça :
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question