Sauvegarde automatisé à la fermeture en utilisant les

[batman666]

Bonjour,

J'utilise un classeur Excel contenant plusieurs feuilles portant des nom différents.
À la fermeture de ce classeur, j'aimerais que les utilisateurs soit invité à sauvegarder le classeurs sous un nouveau nom qui par défaut serait composé des valeurs contenues dans deux cellules (soit C3 et I5) d'une feuilles que j'intitule IDENTIFICATION. Jusqu'ici je suis parvenus à faire ceci

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("C3") & "_" & Range("i5").Value)

End Sub

Toutefois, comme les données en C3 et I5 peuvent varier d'une feuille à l'autre et que je ne peux pas prévoir ou l'user se trouvera quand le classeur sera fermer, je dois indiquer dans ma MACRO quelques choses comme

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.Sheet("IDENTIFICATION").Range("C3") & "_" & Range("i5").Value)

End Sub

Mais cette macro bogue.... Pouvez-vous m'indiquer mon erreur .

Merci

 

[Guest]

Re : Sauvegarde automatisé à la fermeture en utilisant les

Bonsoir,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   With ThisWorkbook.Sheet("IDENTIFICATION")
      Application.Dialogs(xlDialogSaveAs).Show CStr(.Range("C3") & "_" & .Range("i5").Value & ".xls")
   End With
End Sub

Mais il faudrait peut-être vérifier le contenu des deux cellules en question.

A+

 

[batman666]

Re : Sauvegarde automatisé à la fermeture en utilisant les

Bonjour

Je reçois une erreur de compilation (membre de données ou de méthode introuvable) lorsque j'exécute cette macro...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook.Sheet("IDENTIFICATION")
Application.Dialogs(xlDialogSaveAs).Show CStr(.Range("C3") & "_" & .Range("i5").Value & ".xls")
End With

End Sub


La compilation bloque a .Sheet

Aidez-moi

 

[Cousinhub]

Re : Sauvegarde automatisé à la fermeture en utilisant les

bonjour,

Sheets, du diminutif de WorkSheets, comporte un "s" à la fin...

Pas bien, Ges....

 

[batman666]

Re : Sauvegarde automatisé à la fermeture en utilisant les

bonjour,

Sheets, du diminutif de WorkSheets, comporte un "s" à la fin...

Pas bien, Ges....

Là j'ai l'ai un peu idiot... Mais merci

 

[JNP]

Re : Sauvegarde automatisé à la fermeture en utilisant les

Bonsoir le fil ,

Sheets, du diminutif de WorkSheets, comporte un "s" à la fin...

J'aurais plutôt dit, Sheets étant une collection de Sheet, comporte un "s" à la fin, mais ça n'engage que moi ...
Bonne soirée

 

[Cousinhub]

Re : Sauvegarde automatisé à la fermeture en utilisant les

Bonjour,

mais ça n'engage que moi

Tout à fait, tu as entièrement raison, j'avais été au plus court, sachant que les deux versions concernent des types de feuilles différents...(prise en compte ou non des feuilles type "Graphique", et autres feuilles "Macro xl4")

Mais tu fais bien de le souligner.

Bon W-E (sous la pluie, ici, mais avec 22° quand même, en plein hiver.....)

@ + à tous

 

[JNP]

Re : Sauvegarde automatisé à la fermeture en utilisant les

Re ,

sachant que les deux versions concernent des types de feuilles différents...(prise en compte ou non des feuilles type "Graphique", et autres feuilles "Macro xl4")

J'avoue que je n'avais jamais cherché, je pensais que les 2 appellations étaient issuent de versions successives, mais je ne savais pas qu'il y avait une différence entre les 2 !
Merci pour l'info.
Ici, exceptionnellement, on crève de chaud (22, chez nous, c'est plutôt une température estivale ) en atteignant les 32 à l'ombre.
Bon dimanche

 

[Cousinhub]

Re : Sauvegarde automatisé à la fermeture en utilisant les

Re-,

regarde le fichier joint.....

 

[Guest]

Re : Sauvegarde automatisé à la fermeture en utilisant les

bonjour Batman,
Hello Jnp
Hi, Bh²

Sheets, du diminutif de WorkSheets, comporte un "s" à la fin...

Pas bien, Ges....

Ce qui est bien avec les amis, c'est qu'ils sont là pour suppléer le manque d'attention de certains.... Merci.

A++ tous

 

[JNP]

Re : Sauvegarde automatisé à la fermeture en utilisant les

Re ,

regarde le fichier joint.....

Effectivement, Worksheets, comme son nom l'indique, ne rassemble que les feuilles de travail, alors que Sheets rassemble tous les onglets ...
D'un autre côté, depuis une paire de versions, on n'utilise plus les feuilles Graph et Excel4, en tout cas en ce qui me concerne .
Mais la démo était passionnante. Je ferai attention dorénavant !
Merci et bon dimanche

 

[Cousinhub]

Re : Sauvegarde automatisé à la fermeture en utilisant les

Re-,

on n'utilise plus les feuilles Graph et Excel4

Excel4, je te l'accorde, mais Graph est énormément utilisé, dans le cadre des Graphiques Croisés Dynamiques...

bonne soirée

 

[Guest]

Re : Sauvegarde automatisé à la fermeture en utilisant les

Re,

Excel4, je te l'accorde, mais Graph est énormément utilisé, dans le cadre des Graphiques Croisés Dynamiques...

tout à fait d'accord

Sheets, du diminutif de WorkSheets, comporte un "s" à la fin...
Pas bien, Ges....

comme quoi les petits détails font les grandes histoires

A+

 

[JNP]

Re : Sauvegarde automatisé à la fermeture en utilisant les

Re ,

on n'utilise plus les feuilles Graph et Excel4, en tout cas en ce qui me concerne .

J'avais bien précisé que ça ne concernait que moi ...
Je fait un graphe par an, quand les conditions de pression et de température sont stables ...
Alors un graph croisé dynamique, c'est un extra terrestre pour moi !
Mais je n'en dégouterai pas les autres ...
Merci en tout cas pour les infos, et comme tu dis, Ges

comme quoi les petits détails font les grandes histoires

Vive les minutes culturelles d'XLD .
Bonne soirée