Workbook_open

Bonjour à tous,

Pourriez-vous me dire pourquoi la routine "save" ne s'exécute pas (sans message d'erreur) dans un "Workbook_open()" ? merci d'avance.

Pierre

Private Sub Workbook_Open()    'A l'ouverture du fichier excel

 Sheets("Planning").Select

 Cells(4, 2) = 1
 Cells(2, 2) = "Planification"

' Application.DisplayFullScreen = True

 Cells(4, DatePart("y", Date)).Select

 MsgBox "Bonjour"

Save

End Sub

Bonjour Pierre,

j'espère que tu as placé ta sub dans le module ThisWorkbook, et pas dans un module standard tel que Module1.

essaye ce code VBA :

Private Sub Workbook_Open()  'A l'ouverture du fichier excel
  Worksheets("Planning").Select
  [B2] = "Planification": [B4] = 1
  ' Application.DisplayFullScreen = True
  Cells(4, DatePart("y", Date)).Select
  MsgBox "Bonjour"
  ThisWorkbook.Save
End Sub

dhany

Bonjour Dhany,

Si Si je l'ai placé dans un module standard, pensant que là elle serait accessible de partout y compris dans le workbook_open

Mon erreur vient de là alors. Mais je n'ai pas compris la logique Je dois donc la placer ailleurs Je pensais que dans un module standard, que c'était comme une déclaration "publique"

Merci beaucoup,

Pierre

merci pour ton retour !

bonne continuation !

dhany