Discussion :

[DIDIDIDA]

bonjour à tous, dans mon code je fait appel au nom du claseeur, alors je voudrai pas qu'un autre utilisateur le changue, comme je n'ai pas pu interdir ça, alors j'ai pensé à renomer le nom s'il correspond pas au nom d'origne, mais le probleme en utlisant ce code j'ai un message d'erreur comme quoi je ne peux pas affecter une valeur !c'est en lecture seul,,??? alors je voudrai savoir comment je peux faire pour que je puisse le renommer on cas ou le nom a été deja modifié??merci par avance

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub workbook_open()
Dim nom As String
Dim nomorigine As String
nom = ActiveWorkbook.Name
nomorigine = "OUTILSCONTROLE.xls"
If nom <> nomorigine Then
ActiveWorkbook.Name = nomorigine
End If
end sub

[tomy7]

en faisant un save as:
code enregistreur: tu peux faire le menage ...ya des choses qui sont inutile.

Code :

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

1
2
3
4
ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\be30enginering\My Documents\Book3.xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False

[DIDIDIDA]

salut tomy,tout d'abord merci pour ta reponse; j'ai essayé ton code, et il sert à enregitrer le classeur en cours sous un nom que je précisie, moi ce que je veux c'est de le renommer à l'ouverture si on lui a changer de nom auparavant, parceque je fait appel au nom dans mon code§!!j'espère que je suis claire

[nawake]

Salut, je pense pas que ce soit possible.

Le mieux (à mon avis) est d'utiliser ActiveWorkbook ou ThisWorkbook.

++

[DIDIDIDA]

Code :

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

ActiveWorkbook.Name = nomorigine

j'ai essayé d'utiliser le code ci dessus mais apparament on ne peut pas le faire car c'est propriété à lecture seul, alors est ce qu'il ya une façon de chagé cette propriété? merci

[DIDIDIDA]

je pense qu'il ya la fonction

Code :

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

Rename

qui sert à renommer mais je connais encore la syntaxe?? est ce que vous avez une idéé?