Question sur un enregistrement.

[M.D]

Bonsoir à tous,

Je travaille pour l’instant sur un fichier nommé enregistrement des retards-absences.
Jusqu’à la aucun problème.

1°) Cependant, j’aimerai enregistrer les données de ma feuille nommée « Retard-absence » et seulement cette dernière dans un dossier que je pourrai appeler « Archives ».
2°) Le nom de ce fichier serait donné automatiquement en additionnant les donnée de D2 & D4

Est-ce possible ? si oui quelle est la bonne procédure via une macro.

Je joins mon fichier d’essai.

Merci de votre aide.
M.D

 

[ERIC S]

Re : Question sur un enregistrement.

Bonjour

A essayer, (créer un dossier "Archives" avant

 

[M.D]

Re : Question sur un enregistrement.

Bonjour à tous

J’ai lu avec attention votre message. J’ai essayé de mettre en place la procédure énoncée, malheureusement elle ne fonctionne pas même en ôtant ‘cathy & Eric’

Malgré tout un grand merci à vous pour votre patience et votre aide.

Un grand merci

M.D

 

[ERIC S]

Re : Question sur un enregistrement.

Re

j'avais oublié d'adapter le fichier brut pour le chemin
a tester...

 

[M.D]

Re : Question sur un enregistrement.

Bonsoir,

Merci pour votre réponse, mais malheureusement , elle ne fonctionnement pas pas plus que celle que j'ai essayé de mettre en place

Sub enr_feuil()
'
' enr_feuil Macro
'
ChDir "C:\archives" = ThisWorkbook.Path
Sheets("Retard-absence").Select
Sheets("Retard-absence").Copy
ActiveSheet.Shapes("Ellipse 1").Delete
ActiveWorkbook.SaveAs Filename:= _
ChDir "C:\Archives\Archive_ & [H4] & "_" & [D4]" & ".xls", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub

Je ne vois pas où çà bloque.

Bonne soirée

M.D

 

[ERIC S]

Re : Question sur un enregistrement.

Bonjour

je viens de réessayer le fichier du #4, dans deux sessions différentes de mon pc, une fois sur le bureau, une fois dans une arborescence sous mesdocuments, cela a l'air de fonctionner

il faut : choisir ton dossier
enregistrer le fichier (indspensable, si tu as juste ouvert l'exemple, ton chemin ne fonctionnera pas)
créer ton répertoire archives
tu ouvres ton fichier, autorise les macros

 

[M.D]

Re : Question sur un enregistrement.

Bonsoir,

Peu de temps ce soir pour intervenir son mon projet.

Merci pour vos bons conseils.

Bonne soirée.

M.D

 

[M.D]

Re : Question sur un enregistrement.

Bonjour à tous,

😕
Toujours un problème concernant ma macro pour enregistrer mon fichier et seulement lui dans un dossier sur C. A savoir que le nom du fichier est donné par D2 et D4, qui change à chaque enregistrement, et doit s’enregistrer dans un dossier nommé « Archives » qui se trouve sur C
J’ai essayé deux différentes procédures
Sub enr_feuil()
' enr_feuil Macro
Chemin = "\c:\archives\"
Sheets("Retard-absence").Select
Sheets("Retard-absence").Copy
ActiveSheet.Shapes("Ellipse 1").Delete
ActiveWorkbook.SaveAs Filename:= _
"C:\Archives\Archive_" & [d2] & "_" & [D4] & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Ligne qui ne va pas " en bleue"
End Sub

La même mais avec le changement de la première ligne
chemin = ThisWorkbook.Path

Je n’arrive pas à me décoincer, alors existe-t-il un expert pour venir en aide.
Je joins de nouveau mon fichier
Merci d’avance
M.D

 

[ERIC S]

Re : Question sur un enregistrement.

Re

a tout hasard, affiche le chemin que tu obtient en mettant

msgbox ("C:\Archives\Archive_" & [d2] & "_" & [D4] & ".xlsx")

tu verras si c'est cohérent

autre manip, utilise l'enregistreur de macro et enregistre à la main pour voir ensuite quel code il te donne

 

[M.D]

Re : Question sur un enregistrement.

Bonsoir,
Merci pour votre tuyau, après bien des essais, ça ne fonctionnement pas. Donc je suis reparti à la conquête à travers différents forums d’informations qui pourrait faire progresser mon projet
J’ai trouvé une procédure pour enregistrer ma feuille nommé « Recap » vers un dossier « Cegos »
La voici :
Sub Macro1()
Sheets("recap").Copy
Range([A1], ActiveSheet.UsedRange).Copy
ActiveSheet.[A1].PasteSpecial Paste:=xlPasteValues
Répertoire = "c:\cegos"
If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
ActiveWorkbook.SaveAs Répertoire & "\" & "Recap" & Format(Now, "dd-mm-yyyy") & ".xls"
ActiveWorkbook.Close
End Sub
J’aimerai inclus dans cette procédure le contenu de la cellule En R2 , sur la feuille recap, (R2 change à chaque enregistrement.
Est-possible d’inclure le contenu de R2 à la procédure ci-dessus.
Merci et bon week-end de Pâques.
M.D

 

[ERIC S]

Re : Question sur un enregistrement.

Bonjour

pour comprendre ce qui coince je préfèrerais que tu postes le code généré par l'enregistreur de macro quand tu fais une sauvegarde manuelle dans ton sous-répertoire archives, avec un nouveau nom