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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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é
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
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é
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
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é
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
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" a écrit dans le message de groupe de discussion : 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é
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
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" <i@v.org> a écrit dans le message de groupe de discussion :
i6lhl6$ftu$1@speranza.aioe.org...
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é
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
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" a écrit dans le message de groupe de discussion : 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é
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
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" a écrit dans le message de groupe de discussion : 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é
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
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" <i@v.org> a écrit dans le message de groupe de discussion :
i6lhl6$ftu$1@speranza.aioe.org...
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é
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
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" a écrit dans le message de groupe de discussion : 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é
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
Merci pour ton aide au combien précieuse. Tout marche comme je l'espérai.
"isabelle" a écrit dans le message de groupe de discussion : 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" a écrit dans le message de groupe de discussion : 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é
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
Merci pour ton aide au combien précieuse. Tout marche comme je l'espérai.
"isabelle" <i@v.org> a écrit dans le message de groupe de discussion :
i6nuec$ovd$1@speranza.aioe.org...
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" <i@v.org> a écrit dans le message de groupe de discussion :
i6lhl6$ftu$1@speranza.aioe.org...
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é
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
Merci pour ton aide au combien précieuse. Tout marche comme je l'espérai.
"isabelle" a écrit dans le message de groupe de discussion : 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" a écrit dans le message de groupe de discussion : 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é
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
