Sauvegarder la feuille

Bonjour;

Je suis en galère sur la macro Sauver pour enregistrer la feuille janvier.

J'aimerais la sauvegarder sous ce format : C:\ROC\janvier\nom de l'agent\et la date.xls

Quand on appuis sur la macro ça me donne bien le chemin mais pas le nom de l'agent.

Pouvez-vous me donner un petit coup de main merci beaucoup

Fichier test en PJ.

Bonsoir,

Est-ce que tu as renseigné le nom de l'agent ?

Bonsoir oui je renseigne le nom de l'agent, mais le problème est que je ne le retrouve pas dans mon disk dur lol

Sur mon disk dur le dossier Roc est vide

à la suite du Msgbox, est-ce que tu as essayé une instruction telle que :

ActiveWorkbook.Save

ActiveWorkbook.SaveAs Filename:=Janvier

Re

Même en ajoutant

ActiveWorkbook.Save

Ça ne fonctionne pas, Le problème est que ça n'écrit pas la sauvegarde dans le dossier C:\Roc\ il est vide

Merci de ta patience

et sur la seconde proposition 'saveas' ?

Non toujours pas de sauvegarde dans le fichier c:\Roc\

même en ajoutant

Sub enregistrement()

Dim Janvier As String

With Worksheets("Janvier")

Janvier = "C:\Roc\" & .Range("B1").Value & "_" & .Range("C2").Value & "_" & Now & ".xls"

End With

MsgBox Janvier

ActiveWorkbook.SaveAs Filename:=Janvier

End Sub

message d’erreur exécution 1004

Copie :

ActiveWorkbook.SaveAs Filename:=Janvier

j'ai un message d'erreur d'exécution 1004

Cela vient du format de ta date, essaie ça :

        Janvier = "C:\Roc\" & .Range("B1").Value & "_" & .Range("C2").Value & "_" & Format(Now, "dd-mm-yyyy") & ".xls"

CA MARCHE MERIIIIIIIIIIIIIIIIII Beaucoup de ta patience

Très content aussi de ton plaisir !