Problème format cellule à l'ouverture classeur

Bonjour le forum,

J'ai un problème : je voudrais donner un format définitif à mes chiffres.

Lorsque je les mets au format monétaire en Euros comme par exemple : 100,10 € en positif ou -110,10 € en négatif je me retrouve avec un autre format lorsque je ré-ouvre mon classeur.

Le format que m'impose mon classeur est un format personnalisé que je n'ai pas moi même choisi, je retrouve à chaque fois ce format : (€100,10) et (€100,10-) ! C'est déroutant, je n'ai jamais eu ce genre de problème avec les versions précédentes d'Excel. Dans les options avancées je ne trouve pas de solution.

J'ai beau remettre le bon format et d'enregistrer aussitôt, quand je ré-ouvre mon classeur le format à changer de nouveau !!

D'avance merci de votre aide

Bonjour

Le fichier ne contient pas de code VBA par hasard ?

Pour le voir :

• ALT + F11 pour aller dans VBE
• CTRL + R pour afficher VBA Project (à gauche)
• Dans le dossier VBA project, double clique sur les feuilles ou sur THISWORBOOK

Amicalement

Bonjour Dan,

Je te remercie d'avoir répondu, ce classeur a une seule feuille active (deux autres sont toujours masquées car elles contiennent les codes tva, le style de doc (Facture, avoir, etc..) et les getScreentip du ruban personnalisé :

Je te mets ci-dessous les codes que j'ai dans le ThisWorbook :

Je t'explique : le

Range("z1")...

au numéro du doc,

le

Sheets(1).Range("M1").....

concerne le message à l'ouverture du fichier qui me dit combien de fois il a été ouvert

le

Application.SendKeys "%UN{RETURN}"

concerne l'onglet personnalisé pour qu'il soit sélectionné à l'ouverture

le

Flag = True    Range("F19:F40").Select....

c'est la macro que j'ai réalisé avec l'enregistreur pour remettre le bon format des cellules au démarrage. Il y a un Flag car les cellules en questions sont protégées par une macro car elles contiennent des formules le flag est là pour interrompre la protection et la remettre à la fin

Private Sub Workbook_Open()

'Application.ActiveWindow.Application.Caption = ""
Range("z1").Value = Range("z1").Value + 1
Range("a10").Select
'UserForm4.Show

Sheets(1).Range("M1") = Sheets(1).Range("M1") + 1
Call MsgBox("Ce Document a été ouvert" & " " & Range("M1") & " " & "fois", _
    vbInformation, "Nombre d'ouverture de ce Document")

    Application.SendKeys "%UN{RETURN}"

Flag = True
    Range("F19:F40").Select

    Range("F19:F40,H19:H44").Select
    Range("H19").Activate
    Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
    Flag = False
    Range("A10").Select

End Sub

D'avance merci pour ton aide

Re,

C'est cette ligne qui te fait défaut --> Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"

Essaie ta macro comme ceci :

Private Sub Workbook_Open()
'Application.ActiveWindow.Application.Caption = ""
Range("z1").Value = Range("z1").Value + 1
'Range("a10").Select
'UserForm4.Show
Sheets(1).Range("M1") = Sheets(1).Range("M1") + 1
Call MsgBox("Ce Document a été ouvert" & " " & Range("M1") & " " & "fois", _
    vbInformation, "Nombre d'ouverture de ce Document")
Application.SendKeys "%UN{RETURN}"
Flag = True
Range("F19:F40,H19:H44").NumberFormat = "#,##0.00 $);[Red](#,##0.00$)"
Flag = False
Range("A10").Select
End Sub

Pas trop compris le Flag mais bon si utile il faut déclarer cette variable quelque part dans le fichier.

Amicalement

Re Dan,

Merci pour ta réponse

Bonne journée