Bonjour,
je voudrais créer une macro qui me permette de faire des sauvegardes en
fonction du compte utilisateur ouvert afin de choisir le dossier cible de la
sauvegarde, est ce possible?
Merci
Noisette
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
JB
Bonjour,
Sauvegarde dans un répertoire popre à chaque utilisateur
Sub sauv() repertoire = "c:" & Environ("username") If Dir(repertoire, vbDirectory) = "" Then MkDir repertoire ActiveWorkbook.SaveAs Filename:=repertoire & "" & ThisWorkbook.Name End Sub
http://cjoint.com/?hlhGQhhONg
JB
On 11 juil, 05:00, "Noisette" wrote:
Bonjour, je voudrais créer une macro qui me permette de faire des sauvegardes en fonction du compte utilisateur ouvert afin de choisir le dossier cible de la sauvegarde, est ce possible? Merci Noisette
Bonjour,
Sauvegarde dans un répertoire popre à chaque utilisateur
Sub sauv()
repertoire = "c:" & Environ("username")
If Dir(repertoire, vbDirectory) = "" Then MkDir repertoire
ActiveWorkbook.SaveAs Filename:=repertoire & "" & ThisWorkbook.Name
End Sub
http://cjoint.com/?hlhGQhhONg
JB
On 11 juil, 05:00, "Noisette" <gil..e...@laposte.net> wrote:
Bonjour,
je voudrais créer une macro qui me permette de faire des sauvegardes en
fonction du compte utilisateur ouvert afin de choisir le dossier cible de la
sauvegarde, est ce possible?
Merci
Noisette
Sauvegarde dans un répertoire popre à chaque utilisateur
Sub sauv() repertoire = "c:" & Environ("username") If Dir(repertoire, vbDirectory) = "" Then MkDir repertoire ActiveWorkbook.SaveAs Filename:=repertoire & "" & ThisWorkbook.Name End Sub
http://cjoint.com/?hlhGQhhONg
JB
On 11 juil, 05:00, "Noisette" wrote:
Bonjour, je voudrais créer une macro qui me permette de faire des sauvegardes en fonction du compte utilisateur ouvert afin de choisir le dossier cible de la sauvegarde, est ce possible? Merci Noisette
Noisette
Clair et limpide comme d'habitude Merci Noisette "JB" a écrit dans le message de news:
Bonjour,
Sauvegarde dans un répertoire popre à chaque utilisateur
Sub sauv() repertoire = "c:" & Environ("username") If Dir(repertoire, vbDirectory) = "" Then MkDir repertoire ActiveWorkbook.SaveAs Filename:=repertoire & "" & ThisWorkbook.Name End Sub
http://cjoint.com/?hlhGQhhONg
JB
On 11 juil, 05:00, "Noisette" wrote:
Bonjour, je voudrais créer une macro qui me permette de faire des sauvegardes en fonction du compte utilisateur ouvert afin de choisir le dossier cible de la sauvegarde, est ce possible? Merci Noisette
Clair et limpide comme d'habitude
Merci
Noisette
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1184131971.414463.80240@n60g2000hse.googlegroups.com...
Bonjour,
Sauvegarde dans un répertoire popre à chaque utilisateur
Sub sauv()
repertoire = "c:" & Environ("username")
If Dir(repertoire, vbDirectory) = "" Then MkDir repertoire
ActiveWorkbook.SaveAs Filename:=repertoire & "" & ThisWorkbook.Name
End Sub
http://cjoint.com/?hlhGQhhONg
JB
On 11 juil, 05:00, "Noisette" <gil..e...@laposte.net> wrote:
Bonjour,
je voudrais créer une macro qui me permette de faire des sauvegardes en
fonction du compte utilisateur ouvert afin de choisir le dossier cible de
la
sauvegarde, est ce possible?
Merci
Noisette
Clair et limpide comme d'habitude Merci Noisette "JB" a écrit dans le message de news:
Bonjour,
Sauvegarde dans un répertoire popre à chaque utilisateur
Sub sauv() repertoire = "c:" & Environ("username") If Dir(repertoire, vbDirectory) = "" Then MkDir repertoire ActiveWorkbook.SaveAs Filename:=repertoire & "" & ThisWorkbook.Name End Sub
http://cjoint.com/?hlhGQhhONg
JB
On 11 juil, 05:00, "Noisette" wrote:
Bonjour, je voudrais créer une macro qui me permette de faire des sauvegardes en fonction du compte utilisateur ouvert afin de choisir le dossier cible de la sauvegarde, est ce possible? Merci Noisette