Sauvegarde sur clef usb

Anonyme

Bonjour,

Je voudrais modifier un bout de code pour sauvegarder un répertoire sur clef usb.

A la fermeture du classeur, le classeur s'enregistre dans C:"xxx" ou x égale nom du classeur, et je voudrais aussi sauvegarder le répertoire qui contient le classeur sur clef usb.

Voici ce que j'ai:

' ---------bouton quitter Excel--------------

Private Sub FermerProg_Click()

Dim w

1 If Dir("K:\sav-prog", vbDirectory) <> "" Then

2 Application.DisplayAlerts = False

3 For Each w In Application.Workbooks

4 w.Save '---------Sauvegarde le classeur sur l'ordi --------

5 w.SaveAs "K:\sav-prog" & w.Name '----Sauvegarde le classeur sur la clef de sauvegarde ----

6 Next

7 Application.DisplayAlerts = True

8 mywav6 ' ceci exécute la macro qui est dans le module 5

9 Application.ScreenUpdating = True

10 Application.CommandBars.ActiveMenuBar.Enabled = True

11 Application.CommandBars("Formatting").Visible = True

12 Application.CommandBars("Standard").Visible = True

13 Application.DisplayFormulaBar = True

14 Application.DisplayScrollBars = True

15 ActiveSheet.Protect

16 Application.Quit

17 Exit Sub

18 Else

19 MsgBox "Vérifier que la clef soit bien en place"

20 End If

End Sub

je voudrais modifier la ligne 5 pour sauvegarder le répertoire et non le classeur.

Si quelq'un peut m'aider !!!

Merci par avance.

Peponne31

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

Réponse acceptée par l’auteur de la question

Anonyme

Un autre fichier exemple : http://cjoint.com/?hnrc64cRFA

Tu enregistres le fichier dans le répertoire désiré.

Tu ouvres le fichier et tu cliques sur le bouton.

Tous les fichiers qui sont dans le même répertoire où tu as copié le fichier exemple

seront copiés sur ta clé dans un répertoire que la macro se chargera de créer au nom de "H2C_Ver_2"

Bien sûr, il faudra que ta clé soit connectée pour que cela réussisse

Tu n'as pas à regarder le code si cela te fait peur... tu n'as pas AUTRE CHOSE À FAIRE que les actions énumérées dans ce message.

Si cela fonctionne comme désiré, tu fais un copier-coller du code du module1 du classeur exemple vers un MODULE STANDARD que tu inséreras dans ton vrai classeur. (fenêtre VBA / barre des menus / insertion / module)

C'était mon dernier message sur ce fil.

MichD

"Peponne31" a écrit dans le message de groupe de discussion : *** Adresse électronique supprimée pour cause de confidentialité ***...

Bonjour à tous et merci pour vos réponses.

je suis perdu dans vos exemples, j'ai mi en place

le code de MichD de lundi à 5h45

que doit-je modifier dans:

Copie_répertoire_Source ThisWorkbook.Path , "H2C_Ver_2"

pour faire appel au module ?

Merci encore

Peponne31

0 commentaires

22 réponses supplémentaires

Anonyme

2010-07-12T01:32:01+00:00

Bonjour Denis

Sous XL2000 et Win XP, les répertoires sont bien créés sur la clé USB, mais les fichiers ne sont pas copiés. Pb de Xcopy?

Pour xcopy :/S et /E me semblent non compatibles

* à l'exception des rép vides

* y compris les rép vides

@+

J@@

Le 11/07/2010 08:22, MichD [MVP] a écrit :

Dans le fichier que je t'ai envoyé, tu devais simplement le copier

dans un répertoire de ton ordi...!

Si tu enlèves cette section du code, la copie des fichiers se fait-elle correctement ?

Je ne sais pas pourquoi tu obtiens ce message...

En fait, je n'ai jamais eu l'occasion de tester ce code dans un environnement

autre que le mien.

Peut-être que d'autres usagers de ce groupe de discussion testeront le fichier

et nous dirons le résultat de leur expérience.

J@@
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2010-07-11T18:22:51+00:00

Dans le fichier que je t'ai envoyé, tu devais simplement le copier

dans un répertoire de ton ordi...!

Si tu enlèves cette section du code, la copie des fichiers se fait-elle correctement ?

Je ne sais pas pourquoi tu obtiens ce message...

En fait, je n'ai jamais eu l'occasion de tester ce code dans un environnement

autre que le mien.

Peut-être que d'autres usagers de ce groupe de discussion testeront le fichier

et nous dirons le résultat de leur expérience.

MichD

"Peponne31" a écrit dans le message de groupe de discussion : *** Adresse électronique supprimée pour cause de confidentialité ***...

Bonjour MichD

J'ai fais ce que tu me dit,

j'ai le message : le lecteur amovible n'est pas prèt

j'ai essayé sur une autre clef et c'est pareil.

je ne vois pas ou est l'erreur.

sur le disque dur j'ai créé l'arboressence Toto\titi\tutu

j'ai copié le fichier exemple à l'intérieur.

sur la clef j'ai créé la mème arboressence et

j'ai le mème message d'erreur.

Peponne31
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2010-07-11T16:58:52+00:00

Bonjour MichD

J'ai fais ce que tu me dit,

j'ai le message : le lecteur amovible n'est pas prèt

j'ai essayé sur une autre clef et c'est pareil.

je ne vois pas ou est l'erreur.

sur le disque dur j'ai créé l'arboressence Toto\titi\tutu

j'ai copié le fichier exemple à l'intérieur.

sur la clef j'ai créé la mème arboressence et

j'ai le mème message d'erreur.

Peponne31
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2010-07-11T13:28:49+00:00

Le mieux que je peux faire est un fichier exemple : http://cjoint.com/?hlpBRZypNK

Tu dois le copier sur ton ordi avant de cliquer sur le bouton.

MichD

"Peponne31" a écrit dans le message de groupe de discussion : *** Adresse électronique supprimée pour cause de confidentialité ***...

Bonjour MichD

Merci pour ton aide.

je voudrai garder le test de la clef,

si cela fonctionne chez toi il devrait en être pareil chez moi.

J'ai modifier ma ligne 5 comme ceci,

Copie_répertoire_Source ThisWorkbook.path, "H2C_Ver_2"

ou H2C_Ver_2 est le nouveau nom du répertoire et du classeur

( pour essai ) sur disque dur et sur clef.

La clef porte la lettre K, le répertoire est déja créé.

J'ai remplacé Private Sub FermerProg_Click()

Par Sub Macro2() pour faire appel au module

dans lequel est inscrite ta procédure

sans aucune modification (c'est peut être la qu'il y a problème ),

je lai inscrite et ni ai rien modifié.

Peux-tu me dire si c'est ce que tu voulais que je fasse ?

Merci encore

Peponne31
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire