Manau81
Messages postés23Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention17 janvier 2010
-
23 août 2009 à 15:07
Manau81
Messages postés23Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention17 janvier 2010
-
24 août 2009 à 01:48
Voila mon code
Dim sheet As Object
Dim exldoc As Object
Dim exlapp As Object
Set exlapp = CreateObject("excel.application")
Set exldoc = exlapp.Workbooks.Open(Path_xls)
Set sheet = exlapp.ActiveWorkbook.Sheets("KW34)
sheet.Cells(3, 2).Value = "Toto"
exldoc.Save
exldoc.Close
exlapp.Quit
Le probléme c'est que cette feuille (KW24) est protégé par un mp que je conné.
Comment peut on ôter la protection de la feuille momentanément pour pouvoir y ecrir des données et remetre la protection.