Quelle macro pour enregister mon travail dans un dossier ?

Bonjour,

Je viens de creer un bouton validation et je souhaiterais qu un clic dessus permette d'enregistrer mon travail dans un dossier spécifique de mon PC.

Exemple :

En cliquant sur le bouton, mon travail nommé "classeur1" s'enregistre dans le dossier "dodo" (se situant sur le bureau) sous le nom "Inventaire Stock du [A1]" (ou A1 est une cellule au format date).

Je ne sais pas si j ai été suffisament clair dans l'exposé de mon problème. N'hésitez pas a me demander des infos complementaires si besoin est.

Cordialement

Anthony

En cherchant sur le net, j'ai trouvé cette ligne de code :

ActiveWorkbook.Save

Je pense que ca doit marcher mais seulement voila :

1/ Je n est pas le choix du dossier dans lequel mon travail est enregistré

2/ Je n ai pas le choix du nom sous lequel sera sauvegardé mon travail.

Bonjour,

essaye cela:

Sub Sauvegarder()
Dim nomfichier
chemin = "C:chemin"
nomfichier = "nom du fichier sauvegarder"
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub

remplace le chemin et le nom du fichier sauvegarder

Cordialement

Bonsoir,

Tout d'abord, un petit conseil, pour enregistrer tes fichiers, utilise la méthode "anglaise", avec l'année en premier, puis le mois, et enfin la date...

Essaie ce code :

Sub sauve()
Dim LePath As String, LeNom As String
LePath = "C:\Documents and Settings\TonNom\Bureau\dodo\"
LeNom = "Inventaire Stock du " & Format([A1], "yy_mm_dd") & ".xls"
ActiveWorkbook.SaveAs LePath & LeNom
End Sub

Ton fichier sera enregistré sous la forme :

• Inventaire Stock du 08_11_11.xls

si la date en A1 est celle d'aujourd'hui (11/11/2008)

Edit, n'oublie pas de remplacer "TonNom", par ton véritable nom d'utilisateur...

Si tu ne le connais pas, utilises ce code :

MsgBox Environ("UserName")

maguetlolo a écrit :

Bonjour,

essaye cela:

Sub Sauvegarder()
Dim nomfichier
chemin = "C:chemin"
nomfichier = "nom du fichier sauvegarder"
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub

remplace le chemin et le nom du fichier sauvegarder

Cordialement

Merci mille fois Mag ca marche presque le seul petit soucis réside a présent dans le nom du fichier. En cliquant sur le bouton, mon travail nommé "classeur1" s'enregistre dans le dossier "Mes Documents" (se situant sur le bureau) mais *PAS* sous le nom "Inventaire Stock du [C2]" (ou C2 est une cellule au format date).

Voici ta macro que j ai essaye de modifier en vain :

Sub Image6_QuandClic()

Dim nomfichier

chemin = "C:\Documents and Settings\Administrateur\Mes documents"

nomfichier = "Inventaire Stock du" & [C2]

With ActiveWorkbook

.SaveAs Filename:=chemin & nomfichier

.Close

End With

End Sub

felix a écrit :

Bonsoir,

Tout d'abord, un petit conseil, pour enregistrer tes fichiers, utilise la méthode "anglaise", avec l'année en premier, puis le mois, et enfin la date...

Essaie ce code :

Sub sauve()
Dim LePath As String, LeNom As String
LePath = "C:\Documents and Settings\TonNom\Bureau\dodo"
LeNom = "Inventaire Stock du " & Format([A1], "yy_mm_dd") & ".xls"
ActiveWorkbook.SaveAs LePath & LeNom
End Sub

Ton fichier sera enregistré sous la forme :

• Inventaire Stock du 08_11_11.xls

si la date en A1 est celle d'aujourd'hui (11/11/2008)

Edit, n'oublie pas de remplacer "TonNom", par ton véritable nom d'utilisateur...

Si tu ne le connais pas, utilises ce code :

MsgBox Environ("UserName")

Merci beaucoup félix pour ton code je vais essayer de m en inspirer pour construire ma macro mais avec une date francaise pas anglaise je ne supporte pas lol

Re-,

Pourquoi, je te propose la façon "anglaise"?

Parce que lorsque tu ouvres ton explorateur, et que les noms sont triés par ordre alphabétique inverse, les plus récents sont en haut...

Sinon, modifie juste le Format :

LeNom = "Inventaire Stock du " & Format([A1], "yy_mm_dd") & ".xls"

par :

LeNom = "Inventaire Stock du " & Format([A1], "dd_mm_yy") & ".xls"

Nota, pour ton essai infructueux, Windows n'accepte pas les noms de fichier comprenant des "/"

Re

Sub Archiver2()

Dim nomfichier
chemin = "C:\Users\lcolinet\Desktop\"
nomfichier = "Inventaire Stock du" & Format([A1], "yy_mm_dd")
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With

End Sub

cordialement

Bonsoir, Maguetlolo...

N'oublie pas l'extension ".xls"..........

Bonsoir Félix

Merci de prendre la peine de me faire remarquer une faute.

Je l'utilise sans et cela marche bien, que m'apporteras le fait de le mettre quand meme dans la macro?

Cordialement

Après lecture des nombreuses solutions proposees, je me suis arrete la dessus :

Sub Image6_QuandClic()

Feuil1.PrintPreview

Dim nomfichier

chemin = "C:\Documents and Settings\Administrateur\Bureau\INVENTAIRES STOCK\"

nomfichier = "Inventaire Stock du " & Format([H3], "dd_mm_yyyy") & ".xls"

With ActiveWorkbook

.SaveAs Filename:=chemin & nomfichier

.Close

End With

End Sub

Cela marche du tonnerre !

Merci a tous et bonne soiree

Probleme resolu !

Pour maguetlolo :

Habitude de vieux, sans doute.....

Désolé

Bonsoir,

anthony_unac a écrit :

Après lecture des nombreuses solutions proposees, je me suis arrete la dessus :

A voir ta version d'excel, tu me sembles être sous MAC et là, juste pour t'informer que l'instruction ci-dessous ne fonctionnera pas.

chemin = "C:\Documents and Settings\Administrateur\Bureau\INVENTAIRES STOCK" 

Quelques conseils :

• n'oublie pas de déclarer la variable CHEMIN --> Dim chemin as string
• Evite de stocker tes fichiers sur le bureau; mets les plutôt dans un répertoire créé à cette fin.

Vois aussi ce lien -> https://www.excel-pratique.com/forum/viewtopic.php?t=3325

Amicalement

Dan

Nad-Dan a écrit :

Bonsoir,

anthony_unac a écrit :

Après lecture des nombreuses solutions proposees, je me suis arrete la dessus :

A voir ta version d'excel, tu me sembles être sous MAC et là, juste pour t'informer que l'instruction ci-dessous ne fonctionnera pas.

chemin = "C:\Documents and Settings\Administrateur\Bureau\INVENTAIRES STOCK" 

Quelques conseils :

• n'oublie pas de déclarer la variable CHEMIN --> Dim chemin as string
• Evite de stocker tes fichiers sur le bureau; mets les plutôt dans un répertoire créé à cette fin.

Vois aussi ce lien -> https://www.excel-pratique.com/forum/viewtopic.php?t=3325

Amicalement

Dan

Non je ne suis pas sous MAC.

Concernant le code il marche tres bien, c est parfait