Discussion :

[Eiselk]

Tout d'abord, bien le bonjour à vous tous & toutes ! !
Je vous remercie déjà d'avance de la future aide que vous pourriez apporter voir du temps à me consacrer .

Voilou voilou, j'explique donc mon soucis,
je dois automatiser des tâches spécifiques pour le boulot sans devoir tout faire à la main, le fichier fini en lui même est quasiment fini (enfin je pense x)). Je bloque actuellement sur un système de boucle que j'ai créée, tout d'abord, l'user lance le fichier home, qui va lui permettre de se déplacer dans les divers menus, et ainsi arriver au bouton qui va nous envoyer sur le fichier qui lance la boucle.
J'ai donc créer la macro qui dit qu'à son lancement, je veux qu'il aille le saveas à tel endroit(chemin pas encore défini mais comme je vais devoir le mettre sur un serveur, je ne le spécifie pas encore pour les tests) avec l'extension "xlsm".

Private Sub WorkBook_open()
Dim nf$
If Not IsNumeric(Left(Me.Name, 4)) Then
nf = Format(Date, "yyyy-mm-dd")
nf = Application.GetSaveAsFileName(nf)
Me.SaveAs nf + "xslm"
End if
End Sub

Jusque là pas de problème, il le save j'ai ma copie sans toucher l'original, mais une fois qu'on ouvre la copie, il recommence la manipulation, il y aurait-il moyen que quand il s'enregistre il erase cette partie du code? Sachant que j'ai encore besoin de l'extension car je gère d'autres macro qui sont vitales pour le bon fonctionnement du fichier ?

Voilà, voilà, je vous remercie encore d'avance pour le temps que vous allez me consacrer ! .

[unparia]

Bonjour

Rien n'est plus "spontané" que de penser à subordonner l'exécution d'instructions à un nom du classeur.
Commence par ce geste simple.

Et pour mon autre problème

Désolé, mais je refuse personnellement de traiter deux questions distinctes dans une même discussion.
Ici, on traite la résolution d'une difficulté spécifique , pas une application.

[Menhir]

une fois qu'on ouvre la copie, il recommence la manipulation, il y aurait-il moyen que quand il s'enregistre il erase cette partie du code?

Dans ta macro, fais un test sur le nom ou le chemin de ThisWorkbook.
Si ça ne correspond pas à ceux de l'original, Exit Sub.

Je précise que je donne là une simple information technique mais que je déconseille ce que tu es en train de faire en plaçant cette macro dans l'évènement Open.
Mais c'est toi qui voit...

[Eiselk]

Je précise que je donne là une simple information technique mais que je déconseille ce que tu es en train de faire en plaçant cette macro dans l'évènement Open.
Mais c'est toi qui voit...

L'idéal serait de faire cette manipulation à la fin comme ça pas de soucis? Parce que c'est vrai qu'à l'ouverture, j'ai voulu simplifier la tâche de ceux qui vont l'utiliser mais de l'autre côté il faut réussir à éliminer la macro faites au début. Je vois. Je vais faire des petits tests au soir après le sport.

Ok unparia, je ferais un autre sujet si besoin en est, je pensais que grouper les 2 serait le plus optimal pour pas encombrer.

[Eiselk]

Hello, hello, voilà j'ai fais un bouton qui enregistre sans boucle infinie, et qui enregistre sous directement avec un nom daté.
Maintenant je suis entrain de regarder pour incrémenter une sorte de compteur, car plusieurs fichiers / jours seront créer avec la dite date, donc pour ne pas erase à chaque fois.

Si ça peut en aider certains, voici le code.

Sub SauveGS()
'
' SauveGS Macro
Dim Path As String, valeur As String
Path = ActiveWorkbook.Path & "\"
valeur = Format(Date, "dd-mm-yyyy") & ".xlsm"
ThisWorkbook.SAVEAS Path & valeur
End Sub

Presque résolu donc.

EDIT: Problème résolu !!

[Menhir]

L'idéal serait de faire cette manipulation à la fin comme ça pas de soucis?

Perso, je suis contre les macros activées à l'ouverture ou la fermeture. Il est trop difficile de les contrôler et de les utiliser sereinement.

Maintenant je suis entrain de regarder pour incrémenter une sorte de compteur, car plusieurs fichiers / jours seront créer avec la dite date, donc pour ne pas erase à chaque fois.

Dans le nom de fichier, ajoute heures, minutes, secondes, etc.