Bonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" a écrit dans le message de news:
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Bonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" <Izmi@discussions.microsoft.com> a écrit dans le message de news: DFBE2866-57BD-4D92-86EC-3440E24ADA40@microsoft.com...
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Bonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" a écrit dans le message de news:
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Bonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la
procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" a écrit dans le message de news:
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Bonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la
procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" <Izmi@discussions.microsoft.com> a écrit dans le message de news: DFBE2866-57BD-4D92-86EC-3440E24ADA40@microsoft.com...
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Bonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la
procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" a écrit dans le message de news:
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Bonjour Izmi,
Le plus simple, tu te fais un modèle (même si ce dernier n'a rien de particulier) que tu enregistres comme modèle sous le NOM :
CLASSEUR.XLT . Tu places une copies de ce fichier dans le répertoire XlStart ou Xlouvrir selon la version d'excel que tu possèdes,
et tu places la macro dans le ThisWorkbook de ce classeur.
a ) J'ai supposé que ton username à ton domicile était "IZMI", (en caractère majuscule)
b ) tu adpates le lecteur dans la procédure : F: au lecteur chez toi de ton "Verbatim"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If UCase(Environ("Username")) = "IZMI" Then
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End If
End Sub
'----------------------------
Quant à l'erreur dont tu parles, je n'en connais pas la source !
Salutations!
"Izmi" a écrit dans le message de news:
Merci MIchel ;
Ca marche, quoique parfois, sans trop savoir pourquoi, il me sort la fameuse
boite avec le message "Excel a rencontré un problème et doit fermer...Ne pas
envoyer....Envoyer"
Je voudrais toutefois poser d'autres questions :
....et si le document à sauver est un dossier, ou un document word, et non un
classeur excel ; Comment faire ?
Une deuxième question : Serait-il possible de programmer l'ordonnateur de la
maison pour qu'il enregistre systématiquement sur deux supports (DD et Clé) ,
sans avoir mettre à chaque fois du code sur un fichier donné.
Merci encoreBonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la
procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" a écrit dans le message de news:
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Bonjour Izmi,
Le plus simple, tu te fais un modèle (même si ce dernier n'a rien de particulier) que tu enregistres comme modèle sous le NOM :
CLASSEUR.XLT . Tu places une copies de ce fichier dans le répertoire XlStart ou Xlouvrir selon la version d'excel que tu possèdes,
et tu places la macro dans le ThisWorkbook de ce classeur.
a ) J'ai supposé que ton username à ton domicile était "IZMI", (en caractère majuscule)
b ) tu adpates le lecteur dans la procédure : F: au lecteur chez toi de ton "Verbatim"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If UCase(Environ("Username")) = "IZMI" Then
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End If
End Sub
'----------------------------
Quant à l'erreur dont tu parles, je n'en connais pas la source !
Salutations!
"Izmi" <Izmi@discussions.microsoft.com> a écrit dans le message de news: 0917381F-28CF-472D-8CC4-D256C97F2560@microsoft.com...
Merci MIchel ;
Ca marche, quoique parfois, sans trop savoir pourquoi, il me sort la fameuse
boite avec le message "Excel a rencontré un problème et doit fermer...Ne pas
envoyer....Envoyer"
Je voudrais toutefois poser d'autres questions :
....et si le document à sauver est un dossier, ou un document word, et non un
classeur excel ; Comment faire ?
Une deuxième question : Serait-il possible de programmer l'ordonnateur de la
maison pour qu'il enregistre systématiquement sur deux supports (DD et Clé) ,
sans avoir mettre à chaque fois du code sur un fichier donné.
Merci encore
Bonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la
procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" <Izmi@discussions.microsoft.com> a écrit dans le message de news: DFBE2866-57BD-4D92-86EC-3440E24ADA40@microsoft.com...
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Bonjour Izmi,
Le plus simple, tu te fais un modèle (même si ce dernier n'a rien de particulier) que tu enregistres comme modèle sous le NOM :
CLASSEUR.XLT . Tu places une copies de ce fichier dans le répertoire XlStart ou Xlouvrir selon la version d'excel que tu possèdes,
et tu places la macro dans le ThisWorkbook de ce classeur.
a ) J'ai supposé que ton username à ton domicile était "IZMI", (en caractère majuscule)
b ) tu adpates le lecteur dans la procédure : F: au lecteur chez toi de ton "Verbatim"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If UCase(Environ("Username")) = "IZMI" Then
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End If
End Sub
'----------------------------
Quant à l'erreur dont tu parles, je n'en connais pas la source !
Salutations!
"Izmi" a écrit dans le message de news:
Merci MIchel ;
Ca marche, quoique parfois, sans trop savoir pourquoi, il me sort la fameuse
boite avec le message "Excel a rencontré un problème et doit fermer...Ne pas
envoyer....Envoyer"
Je voudrais toutefois poser d'autres questions :
....et si le document à sauver est un dossier, ou un document word, et non un
classeur excel ; Comment faire ?
Une deuxième question : Serait-il possible de programmer l'ordonnateur de la
maison pour qu'il enregistre systématiquement sur deux supports (DD et Clé) ,
sans avoir mettre à chaque fois du code sur un fichier donné.
Merci encoreBonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la
procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" a écrit dans le message de news:
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Merci beaucoup Michel ;
Je testerai demain et aviseraiBonjour Izmi,
Le plus simple, tu te fais un modèle (même si ce dernier n'a rien de particulier) que tu enregistres comme modèle sous le NOM :
CLASSEUR.XLT . Tu places une copies de ce fichier dans le répertoire XlStart ou Xlouvrir selon la version d'excel que tu possèdes,
et tu places la macro dans le ThisWorkbook de ce classeur.
a ) J'ai supposé que ton username à ton domicile était "IZMI", (en caractère majuscule)
b ) tu adpates le lecteur dans la procédure : F: au lecteur chez toi de ton "Verbatim"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If UCase(Environ("Username")) = "IZMI" Then
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End If
End Sub
'----------------------------
Quant à l'erreur dont tu parles, je n'en connais pas la source !
Salutations!
"Izmi" a écrit dans le message de news:
Merci MIchel ;
Ca marche, quoique parfois, sans trop savoir pourquoi, il me sort la fameuse
boite avec le message "Excel a rencontré un problème et doit fermer...Ne pas
envoyer....Envoyer"
Je voudrais toutefois poser d'autres questions :
....et si le document à sauver est un dossier, ou un document word, et non un
classeur excel ; Comment faire ?
Une deuxième question : Serait-il possible de programmer l'ordonnateur de la
maison pour qu'il enregistre systématiquement sur deux supports (DD et Clé) ,
sans avoir mettre à chaque fois du code sur un fichier donné.
Merci encoreBonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la
procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" a écrit dans le message de news:
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Merci beaucoup Michel ;
Je testerai demain et aviserai
Bonjour Izmi,
Le plus simple, tu te fais un modèle (même si ce dernier n'a rien de particulier) que tu enregistres comme modèle sous le NOM :
CLASSEUR.XLT . Tu places une copies de ce fichier dans le répertoire XlStart ou Xlouvrir selon la version d'excel que tu possèdes,
et tu places la macro dans le ThisWorkbook de ce classeur.
a ) J'ai supposé que ton username à ton domicile était "IZMI", (en caractère majuscule)
b ) tu adpates le lecteur dans la procédure : F: au lecteur chez toi de ton "Verbatim"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If UCase(Environ("Username")) = "IZMI" Then
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End If
End Sub
'----------------------------
Quant à l'erreur dont tu parles, je n'en connais pas la source !
Salutations!
"Izmi" <Izmi@discussions.microsoft.com> a écrit dans le message de news: 0917381F-28CF-472D-8CC4-D256C97F2560@microsoft.com...
Merci MIchel ;
Ca marche, quoique parfois, sans trop savoir pourquoi, il me sort la fameuse
boite avec le message "Excel a rencontré un problème et doit fermer...Ne pas
envoyer....Envoyer"
Je voudrais toutefois poser d'autres questions :
....et si le document à sauver est un dossier, ou un document word, et non un
classeur excel ; Comment faire ?
Une deuxième question : Serait-il possible de programmer l'ordonnateur de la
maison pour qu'il enregistre systématiquement sur deux supports (DD et Clé) ,
sans avoir mettre à chaque fois du code sur un fichier donné.
Merci encore
Bonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la
procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" <Izmi@discussions.microsoft.com> a écrit dans le message de news: DFBE2866-57BD-4D92-86EC-3440E24ADA40@microsoft.com...
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
Merci beaucoup Michel ;
Je testerai demain et aviseraiBonjour Izmi,
Le plus simple, tu te fais un modèle (même si ce dernier n'a rien de particulier) que tu enregistres comme modèle sous le NOM :
CLASSEUR.XLT . Tu places une copies de ce fichier dans le répertoire XlStart ou Xlouvrir selon la version d'excel que tu possèdes,
et tu places la macro dans le ThisWorkbook de ce classeur.
a ) J'ai supposé que ton username à ton domicile était "IZMI", (en caractère majuscule)
b ) tu adpates le lecteur dans la procédure : F: au lecteur chez toi de ton "Verbatim"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If UCase(Environ("Username")) = "IZMI" Then
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End If
End Sub
'----------------------------
Quant à l'erreur dont tu parles, je n'en connais pas la source !
Salutations!
"Izmi" a écrit dans le message de news:
Merci MIchel ;
Ca marche, quoique parfois, sans trop savoir pourquoi, il me sort la fameuse
boite avec le message "Excel a rencontré un problème et doit fermer...Ne pas
envoyer....Envoyer"
Je voudrais toutefois poser d'autres questions :
....et si le document à sauver est un dossier, ou un document word, et non un
classeur excel ; Comment faire ?
Une deuxième question : Serait-il possible de programmer l'ordonnateur de la
maison pour qu'il enregistre systématiquement sur deux supports (DD et Clé) ,
sans avoir mettre à chaque fois du code sur un fichier donné.
Merci encoreBonjour Izmi,
Dans le ThisWorkbook de ton classeur, tu peux copier ceci :
À chaque fois que tu vas enregistrer ton fichier, une copie va se sauvegarder sur ton support mnémonique externe. Dans la
procédure,
renseigne adéquatement la lettre du lecteur où ce dernier se situe. "F:"
'----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'En supposant que F est ton lecteur mobile
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.SaveAs "f:" & ThisWorkbook.Name
If Err <> 0 Then
Err = 0
MsgBox "Support magnétique externe absent."
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
'----------------------------
Salutations!
"Izmi" a écrit dans le message de news:
Bonjour tout le monde;
Je m'excuse de ce possible hors objet de ce forum, mais je ne sais vraiment
pas où poser ma question ; puis il y a tellement de compétences qui se
croisent ici que j'ose espérer y trouver une réponse ou, à tout le moins, une
orientation.
Mon problème est le suivant :
J'ai l'habitude de travailler sur un document sur l'ordinateur du bureau, et
lorsque je n'ai pas fini, je l'enregistrer sur un support (disquette, clé
USB), pour continuer à y travailler à la maison.
Le problème c'est que pour éviter les lenteurs et les risques de perte de
données, je commence, par enregistrer le travail commencé au bureau sur le
disque dur de la maison.
Etant quelque peu étourdi il m'arrive d'enregistrer le travail sur le disque
dur de la maison et d'oublier de mettre à jour la disquette ou la clé.
Lorsque je retourne au bureau et que j'ouvre ce support je n'y retrouve
évidemment pas tout ce que j'ai ajouté ou modifié à la maison. Le travail
étant urgent (sinon je ne l'aurais pas amené à la maison) je tombe dans le
plus grand enervement.
Ma question est la suivante :
Est-il possible de programmer une sauvegarde automatique sur la disquette
(ou la clé USB) en même temps que l'enregistrement sur le disque dur.
Merci.
