Sauvegarder la feuille Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Doliprane
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 5 août 2008
Version d'Excel : 2007 et 2010

Message par Doliprane » 16 juillet 2019, 18:20

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.
test sauvegarde.xlsm
(24.51 Kio) Téléchargé 6 fois
Euskal eta harro
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 679
Appréciations reçues : 71
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 16 juillet 2019, 18:33

Bonsoir,

Est-ce que tu as renseigné le nom de l'agent ?
Avatar du membre
Doliprane
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 5 août 2008
Version d'Excel : 2007 et 2010

Message par Doliprane » 16 juillet 2019, 18:36

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
:lole:
Sur mon disk dur le dossier Roc est vide :bof:
Euskal eta harro
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 679
Appréciations reçues : 71
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 16 juillet 2019, 18:50

à la suite du Msgbox, est-ce que tu as essayé une instruction telle que :
ActiveWorkbook.Save
https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbook.save
ActiveWorkbook.SaveAs Filename:=Janvier
Avatar du membre
Doliprane
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 5 août 2008
Version d'Excel : 2007 et 2010

Message par Doliprane » 16 juillet 2019, 19:01

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 ::D
Euskal eta harro
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 679
Appréciations reçues : 71
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 16 juillet 2019, 19:07

et sur la seconde proposition 'saveas' ?
Avatar du membre
Doliprane
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 5 août 2008
Version d'Excel : 2007 et 2010

Message par Doliprane » 16 juillet 2019, 19:10

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
Modifié en dernier par Doliprane le 16 juillet 2019, 19:14, modifié 1 fois.
Euskal eta harro
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 679
Appréciations reçues : 71
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 16 juillet 2019, 19:13

Copie :
ActiveWorkbook.SaveAs Filename:=Janvier
Avatar du membre
Doliprane
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 5 août 2008
Version d'Excel : 2007 et 2010

Message par Doliprane » 16 juillet 2019, 19:15

j'ai un message d'erreur d'exécution 1004
Euskal eta harro
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 679
Appréciations reçues : 71
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 16 juillet 2019, 19:26

Cela vient du format de ta date, essaie ça :
        Janvier = "C:\Roc\" & .Range("B1").Value & "_" & .Range("C2").Value & "_" & Format(Now, "dd-mm-yyyy") & ".xls"
        
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message