Connaitre les unités de stockage du PC

Le
dyj Orange
Mon application arrive à la fin du développement mais il me manque une
fonction que je ne sais pas traiter. A partir des UserForm, je crée des
enregistrements dans la feuille active en fonction des informations
rempliées par l'opérateur dans des textbox et Listbox de plusieurs UserForm.
En phase de test, la sauvegarde des infos ne se pose pas, mais dès que je
mettrai en production ma feuille, il faudra de temps en temps que
l'opérateur fasse une sauvegarde sur une clé, pour prévenir tout incident.
D'où mes questions:
Comment savoir si une clé USB est disponible sur le PC.
Comment sauver ma feuille active sur cette clé.
Y a t il d'autres concepts ?
Merci pour vos propositions
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #22566101
bonjour dyj,

pour reconnaitre la cle usb,

Sub ListeLecteursAmovible()
Dim FSO As Object
Dim Drv As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
x = 1
For Each Drv In FSO.Drives
On Error GoTo suite
If Drv.DriveType = 1 Then
y = Drv.volumename
If y <> 0 Then
lecteur = Drv.driveletter
x = x + 1
End If
End If
suite:
If Err = 71 Then y = 0: Resume Next
Next
End Sub

et pour sauvegarder le fichier tu pourrais utiliser la méthode SaveCopyAs pour la sauvegarde sur la clé

ActiveWorkbook.SaveCopyAs lecteur & ":yyyyxxxx.XLS"

cette méthode enregistre une copie du classeur dans un fichier sans modifier le classeur ouvert en mémoire.

isabelle


Le 2010-09-13 11:19, dyj Orange a écrit :

Mon application arrive à la fin du développement ... mais il me manque
une fonction que je ne sais pas traiter. A partir des UserForm, je crée
des enregistrements dans la feuille active en fonction des informations
rempliées par l'opérateur dans des textbox et Listbox de plusieurs
UserForm.
En phase de test, la sauvegarde des infos ne se pose pas, mais dès que
je mettrai en production ma feuille, il faudra de temps en temps que
l'opérateur fasse une sauvegarde sur une clé, pour prévenir tout incident.
D'où mes questions:
Comment savoir si une clé USB est disponible sur le PC.
Comment sauver ma feuille active sur cette clé.
Y a t il d'autres concepts ?
Merci pour vos propositions
dyj Orange
Le #22567841
Merci beaucoup. Pour comprendre, j'ai fait un module dans lequel j'ai mis ta
Sub et je l'appelle par un bouton. Peux tu me dire à quoi sert l'instruction
"x=x+1" et la nature de l'erreur code 71 ?

"isabelle" i6lhl6$ftu$
bonjour dyj,

pour reconnaitre la cle usb,

Sub ListeLecteursAmovible()
Dim FSO As Object
Dim Drv As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
x = 1
For Each Drv In FSO.Drives
On Error GoTo suite
If Drv.DriveType = 1 Then
y = Drv.volumename
If y <> 0 Then
lecteur = Drv.driveletter
x = x + 1
End If
End If
suite:
If Err = 71 Then y = 0: Resume Next
Next
End Sub

et pour sauvegarder le fichier tu pourrais utiliser la méthode SaveCopyAs
pour la sauvegarde sur la clé

ActiveWorkbook.SaveCopyAs lecteur & ":yyyyxxxx.XLS"

cette méthode enregistre une copie du classeur dans un fichier sans
modifier le classeur ouvert en mémoire.

isabelle


Le 2010-09-13 11:19, dyj Orange a écrit :

Mon application arrive à la fin du développement ... mais il me manque
une fonction que je ne sais pas traiter. A partir des UserForm, je crée
des enregistrements dans la feuille active en fonction des informations
rempliées par l'opérateur dans des textbox et Listbox de plusieurs
UserForm.
En phase de test, la sauvegarde des infos ne se pose pas, mais dès que
je mettrai en production ma feuille, il faudra de temps en temps que
l'opérateur fasse une sauvegarde sur une clé, pour prévenir tout
incident.
D'où mes questions:
Comment savoir si une clé USB est disponible sur le PC.
Comment sauver ma feuille active sur cette clé.
Y a t il d'autres concepts ?
Merci pour vos propositions
isabelle
Le #22569161
bonjour dyj,

la variable x m'as servi de test tu peut viré les deux lignes la concernant et
l' erreur 71 :Disque non prêt
les causes de cette erreur sont :
Il n'y a aucun disque dans le lecteur spécifié.
Le clapet du lecteur spécifié est ouvert.

isabelle


Le 2010-09-14 03:05, dyj Orange a écrit :
Merci beaucoup. Pour comprendre, j'ai fait un module dans lequel j'ai
mis ta Sub et je l'appelle par un bouton. Peux tu me dire à quoi sert
l'instruction "x=x+1" et la nature de l'erreur code 71 ?

"isabelle" i6lhl6$ftu$
bonjour dyj,

pour reconnaitre la cle usb,

Sub ListeLecteursAmovible()
Dim FSO As Object
Dim Drv As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
x = 1
For Each Drv In FSO.Drives
On Error GoTo suite
If Drv.DriveType = 1 Then
y = Drv.volumename
If y <> 0 Then
lecteur = Drv.driveletter
x = x + 1
End If
End If
suite:
If Err = 71 Then y = 0: Resume Next
Next
End Sub

et pour sauvegarder le fichier tu pourrais utiliser la méthode
SaveCopyAs pour la sauvegarde sur la clé

ActiveWorkbook.SaveCopyAs lecteur & ":yyyyxxxx.XLS"

cette méthode enregistre une copie du classeur dans un fichier sans
modifier le classeur ouvert en mémoire.

isabelle


Le 2010-09-13 11:19, dyj Orange a écrit :

Mon application arrive à la fin du développement ... mais il me manque
une fonction que je ne sais pas traiter. A partir des UserForm, je crée
des enregistrements dans la feuille active en fonction des informations
rempliées par l'opérateur dans des textbox et Listbox de plusieurs
UserForm.
En phase de test, la sauvegarde des infos ne se pose pas, mais dès que
je mettrai en production ma feuille, il faudra de temps en temps que
l'opérateur fasse une sauvegarde sur une clé, pour prévenir tout
incident.
D'où mes questions:
Comment savoir si une clé USB est disponible sur le PC.
Comment sauver ma feuille active sur cette clé.
Y a t il d'autres concepts ?
Merci pour vos propositions





dyj Orange
Le #22569261
Merci pour ton aide au combien précieuse. Tout marche comme je l'espérai.

"isabelle" i6nuec$ovd$
bonjour dyj,

la variable x m'as servi de test tu peut viré les deux lignes la
concernant et
l' erreur 71 :Disque non prêt
les causes de cette erreur sont :
Il n'y a aucun disque dans le lecteur spécifié.
Le clapet du lecteur spécifié est ouvert.

isabelle


Le 2010-09-14 03:05, dyj Orange a écrit :
Merci beaucoup. Pour comprendre, j'ai fait un module dans lequel j'ai
mis ta Sub et je l'appelle par un bouton. Peux tu me dire à quoi sert
l'instruction "x=x+1" et la nature de l'erreur code 71 ?

"isabelle" i6lhl6$ftu$
bonjour dyj,

pour reconnaitre la cle usb,

Sub ListeLecteursAmovible()
Dim FSO As Object
Dim Drv As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
x = 1
For Each Drv In FSO.Drives
On Error GoTo suite
If Drv.DriveType = 1 Then
y = Drv.volumename
If y <> 0 Then
lecteur = Drv.driveletter
x = x + 1
End If
End If
suite:
If Err = 71 Then y = 0: Resume Next
Next
End Sub

et pour sauvegarder le fichier tu pourrais utiliser la méthode
SaveCopyAs pour la sauvegarde sur la clé

ActiveWorkbook.SaveCopyAs lecteur & ":yyyyxxxx.XLS"

cette méthode enregistre une copie du classeur dans un fichier sans
modifier le classeur ouvert en mémoire.

isabelle


Le 2010-09-13 11:19, dyj Orange a écrit :

Mon application arrive à la fin du développement ... mais il me manque
une fonction que je ne sais pas traiter. A partir des UserForm, je crée
des enregistrements dans la feuille active en fonction des informations
rempliées par l'opérateur dans des textbox et Listbox de plusieurs
UserForm.
En phase de test, la sauvegarde des infos ne se pose pas, mais dès que
je mettrai en production ma feuille, il faudra de temps en temps que
l'opérateur fasse une sauvegarde sur une clé, pour prévenir tout
incident.
D'où mes questions:
Comment savoir si une clé USB est disponible sur le PC.
Comment sauver ma feuille active sur cette clé.
Y a t il d'autres concepts ?
Merci pour vos propositions





Publicité
Poster une réponse
Anonyme