Enregistrer dans dossier unique

Bonjour a tous et a toute

Dans le fichier joint j'aimerai pouvoir enregistrer ce classeur dans un dossier bien spécial .

Je m'explique , ce classeur est extrais du dossier "toto" sur l'ordinateur et une foi cliquet sur (Sauvegarde pour modifier) ce classeur aille non pas dans C:\mes documents\.........\.......... mes qu'il s 'enregistre dans sont dossier d origine "toto" ou encore mieux dans un autre dossier dans "toto" tout ca pour je puisse déplacer "toto" dans d'autre ordinateur et que la sauvegarde ce fasse toujours au même endroits .

esce possible ????

Par avance merci pour l'aide que vous pouvais m’amener

voila je pense que ca doit fonctionner si j'ai bien compris

colle cette macro dans thisworkbook dans vba

et remplace les XXXXXXXX

par le chemin d'acces ou tu veux toujours placer ton fichier

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 ActiveWorkbook.SaveAs Filename:= _
        "C:\xxxxxxxxx\xxxxxxx\xxxxx\Classeur1.xls", FileFormat _
        :=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False

End Sub

Houps !!!

Bonjour spyderpaint j avais pas vu ta réponse je vais tester ça de suite je te donne des nouvelles après essaie

En tout cas merci

Cordialement

Phanou

-- 20 Mai 2011, 16:27 --

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 ActiveWorkbook.SaveAs Filename:= _
        "C:\xxxxxxxxx\xxxxxxx\xxxxx\Classeur1.xls", FileFormat _
        :=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False

End Sub

Merci je viens de l'essayer en fait je l'ai copier colle sur la macro du bouton (sauvegarder pour modifier) par contre pour peaufiner le truc un peut tu crois que dans la barre d'adresse

("C:\xxxxxxxxx\xxxxxxx\xxxxx\Classeur1.xls") a la place de classeur1 on peut mettre les infos de 2 cellules par exemple B3 C6 ?????

Par Avance Merci

-- 20 Mai 2011, 22:23 --

Re a tous

En fait je voudrais modifier cette macro

Private Sub CommandButton3_Click()
ActiveSheet.Shapes("CommandButton3").Delete
Sheets(Array("Feuille de Commande")).Copy
NomFichier = Range("B3").Value & Range("C6").Value
Application.Dialogs(xlDialogSaveAs).Show NomFichier, 1
ActiveWorkbook.Close
End Sub

pour que la sauvegarde ce fasse sur un dossier prédéfini

Merci pour votre aide

voila ca marche tres bien

sub sauve
dim chemin as string

'remplace les X par ton chemein d'acces

chemin = "C:\xxx\xxxx\xxxx\xxxx\xxxx\"

'remplace A1 et A2 par les cellules qui t'intéresse 
'si tu veux 3 cellule fait un copier coller de :
'& worksheets("Feuil1").[A2].Value' a la fin de la ligne

ActiveWorkbook.SaveAs Filename:=chemin & worksheets("Feuil1").[A1].Value & worksheets("Feuil1").[A2].Value
end sub 

voila j'espere avoir répondu

Bonsoir a tous

Tout D 'abord merci a spyderpaint pour le boulot je viens de passer une parti de la soirée a appliquer ton code cet ce que chercher a faire . Je clôture

Merci encore

Cordialement

Phanou