Discussion :

[capi81]

Salut le forum

J'ai un problème de gestion d'un fichier qui doit être utilisé par plusieurs utilisateurs. Mon idée est de faire en sorte que chacun utilise une copie de sorte que le fichier original reste toujours en l'état.
Pour cela, je souhaite que vous m'aider à faire en sorte qu'à l'ouverture du fichier (lorsque la personne double cliquera dessus), une copie ou encore qu'un ENREGISTRER SOUS" soit automatiquement demandée à l'utilisateur.
Telle est mon idée mais je suis preneur d'éventuelle bonne proposition.

Merci

[casefayere]

Bonjour,

à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
Dim nouveau As String
nouveau = InputBox("Sous quel nom voulez-vous enregistrer la copie ?")
ActiveWorkbook.SaveAs FileName:=tonchemin & "\" & nouveau & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
End Sub

[Marc-L]

Bonjour,

cela s'appelle un classeur modèle ‼ (.xltx ou .xltm)

Et c'est automatique, rien à programmer …

[capi81]

Salut à tous

Merci pour vos feedbacks.
casefayere : j'ai testé votre code sans adaptation et voici mes constats:
- dans la boite de dialogue si je donne un nom et que je valide, le fichier est automatiquement enrégistré dans C pas de problème pour cela.
- dans la boite de dialogue, quand je clic sur "ok" sans préciser de nom de fichier, il y'a débogage;il en est de meme quand je clic sur annulé mais le fichier original reste ouvert;ce qui n'est pas souhaitable.
Je souhaite qu'on m'aide à solutionner ces situations qui peuvent arriver.
Voici les conditions que je pose:
- si l'utilisateur ne précise pas de nom de fichier pour l'enregistrement, en cliquant sur "ok" ou sur "annuler", le fichier doit se refermer automatiquement.
Autre chose:
Dans le cas ou le fichier original est sur un espace commun, le même code peut s'y adapter?

Marc-L :j'ai pas compris votre "solution". Pouvez-vous être plus explicite avec exemple à l'appui svp!

Merci encore à tous

[Marc-L]

C'est le B-A-BA de l'utilisation d'Excel ‼

Voir les types de fichier dans Enregistrer sous et consulter l'aide intégrée …

[casefayere]

- dans la boite de dialogue, quand je clic sur "ok" sans préciser de nom de fichier, il y'a débogage;il en est de meme quand je clic sur annulé mais le fichier original reste ouvert;ce qui n'est pas souhaitable.
Je souhaite qu'on m'aide à solutionner ces situations qui peuvent arriver.
Voici les conditions que je pose:
- si l'utilisateur ne précise pas de nom de fichier pour l'enregistrement, en cliquant sur "ok" ou sur "annuler", le fichier doit se refermer automatiquement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
Dim nouveau As String
nouveau = InputBox("Sous quel nom voulez-vous enregistrer la copie ?")
If nouveau = "" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=tonchemin & "\" & nouveau & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
End Sub