Question sur un enregistrement.

ERIC S

XLDnaute Barbatruc

• 23 Mars 2015

• #2

Re : Question sur un enregistrement.

Bonjour

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

 

Pièces jointes

• enregistrement-des-retards.xlsm

  21.4 KB · Affichages: 69
• enregistrement-des-retards.xlsm

  21.4 KB · Affichages: 82
• enregistrement-des-retards.xlsm

  21.4 KB · Affichages: 71

Vote positif 0 Vote négatif

M

M.D

XLDnaute Occasionnel

• 24 Mars 2015

• #3

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 24 Mars 2015

• #4

Re : Question sur un enregistrement.

Re

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

 

Pièces jointes

• enregistrement-des-retards.xlsm

  21.8 KB · Affichages: 102
• enregistrement-des-retards.xlsm

  21.8 KB · Affichages: 97
• enregistrement-des-retards.xlsm

  21.8 KB · Affichages: 94

Vote positif 0 Vote négatif

M

M.D

XLDnaute Occasionnel

• 25 Mars 2015

• #5

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 26 Mars 2015

• #6

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

 

Vote positif 0 Vote négatif

M

M.D

XLDnaute Occasionnel

• 26 Mars 2015

• #7

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

 

Vote positif 0 Vote négatif

M

M.D

XLDnaute Occasionnel

• 1 Avril 2015

• #8

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

 

Pièces jointes

• Dossier Eleves.zip

  209.9 KB · Affichages: 46
• Dossier Eleves.zip

  209.9 KB · Affichages: 43
• Dossier Eleves.zip

  209.9 KB · Affichages: 45

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 1 Avril 2015

• #9

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

 

Vote positif 0 Vote négatif

M

M.D

XLDnaute Occasionnel

• 3 Avril 2015

• #10

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

 

Pièces jointes

• Dossier Eleves.zip

  217.6 KB · Affichages: 42
• Dossier Eleves.zip

  217.6 KB · Affichages: 40
• Dossier Eleves.zip

  217.6 KB · Affichages: 43

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 7 Avril 2015

• #11

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

 

Vote positif 0 Vote négatif