demande aide pour sauvegarde

[jean comte]

Bonsoir à tous le monde,

Depuis quelques mois, je suis un visiteur assidu de votre site, en particulier le forum que je trouve génial.
Je cherche une formule qui peut m'aider à sauvegarder la copie d'une feuille d'un classeur.

Je m'explique:

La feuille, en l'ocurence une facture est sélectionnée, et recopié dans un classeur nommé "ne pas supprimer". Celui-ci se trouve dans un sous répertoire "A_facture"
Une fois la feuille copiée, la macro doit sauvegarder la classeur sous un nouveau nom qui se trouve dans une cellule de la facture ("g10").

Jusque là, tout vas bien, mais le souci, le nouveau classeur ne se trouve pas dans le répertoire "A_facture", mais en "c:\mes documents"

Quelqu'un pourrait il m'aider en m'indiquant la marche à suivre pour la sauvegarde dans le bon tiroir


Application.DisplayAlerts = False
MonNumSauve = Range("g10").Value
Sheets("facture").Select
Sheets("facture").Copy
ChDir "d:\compta 2.5\copie de travail\a_facture"
ActiveWorkbook.SaveAs Filename:="d:\compta 2.5\copie de travail\a_facture\ne pas supprimer.xls", FileFormat:=xlNormal, _
password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Sheets("facture").Select
Sheets("facture").Name = MonNumSauve
Sheets(1).Select

'Suppression des boutons

ActiveSheet.Shapes("button 13").Select
Selection.Delete
ActiveSheet.Shapes("button 15").Select
Selection.Delete
ActiveSheet.Shapes("button 16").Select
Selection.Delete
ActiveSheet.Shapes("button 18").Select
Selection.Delete
ActiveSheet.Shapes("button 19").Select
Selection.Delete
ActiveSheet.Shapes("button 17").Select
Selection.Delete
ActiveSheet.Shapes("button 14").Select
Selection.ShapeRange.IncrementLeft -354.75
Selection.ShapeRange.IncrementTop -31.5
Selection.ShapeRange.ScaleWidth 3.43, msoFalse, msoScaleFromTopLeft
Range("a1").Select

' Sauvegarde du classeur
ActiveWorkbook.SaveAs Range("g10").Value
ActiveWindow.Close
Application.DisplayAlerts = True

Je vous remercie d'avance de l'aide que vous pourrier m'apporter

 

[LaurentTBT]

Bonsoir

Dans la dernière partie (' Sauvegarde du classeur), essaye de remplacer:
ActiveWorkbook.SaveAs Range("g10").Value
par:
ActiveWorkbook.SaveAs Filename:="d:\compta 2.5\copie de travail\a_facture\" & Range("g10") & ".xls"

Bonne nuit. Laurent.

 

[jean comte]

bonjour,

Génial, cela marche super bien, et dire que j'ai glandé des semaines ,il faut dire que je suis un super débutant.

Encore mrçi, mille fois merçi