Quelques points essentiels à retenir :
- On ne pose qu' UNE question par discussion
- Le titre de la question doit refléter le souci rencontré ( Help.. SOS.. Urgent.. n'apporte aucune information utile !)
- Lorsque votre question est résolue.. merci de clore le sujet (lien Marquer comme résolu se trouvant sous le titre de votre question).
- Une question obtiendra de meilleurs réponses si elle est correctement rédigée, que les explications sont clairs et qu'éventuellement vous postez le code qui pose problème.
- Si vous avez un message d'erreur..... MARQUEZ LE (dans son intégralité).
Merci.
dim oXL as object set oXL = CreateObject("Excel.application" )
Dim Excel As Object Dim workbooks As workbooks Dim workbook As workbook Dim Sheets As Object Dim Sheet As Object Dim worksheet As Excel.worksheet Err.Clear On Error Resume Next Set Excel = GetObject(, "EXCEL.Application") If Err.Number <> 0 Then Err.Clear Set Excel = CreateObject("EXCEL.Application") End If Set workbooks = Excel.Application.workbooks ' // le reste de ton code...