Pilotage Excel à partir d'AccessRésolu

Question

Bonjour à tous,

   Sous Access je dois formater un groupe de cellules (fusion, fontes, etc...) appartenant à un classeur Excel. Pour pouvoir exécuer mon code sur plusieurs classeurs j'ai bataillé mais fini par trouver la solution pour que le classeur soit correctement fermé sans process résidant encore en mémoire, sur ce site au lien suivant:
http://www.vbfrance.com/codes/REGLER-PROBLEME-ENTRE-VB-EXCEL_25308.aspx

   Il reste un problème. Auparavant je sélectionnais un Range puis faisait un ensemble d'opérations sur ma sélection comme dans l'exemple suivant: 

ActiveSheet.Range("A" & CStr(intOffset) & ":A" & CStr((rstFAZ99.RecordCount + intOffset - 1)))
Selection.Borders(xlDiagonalDown).LineStyle = xlNone:

cela ne marchant plus si je veux que mon Excel soit correctement fermé à la fin des opérations, je n'arrive pas à trouver la parade pour contourner le problème de la sélection. J'avais pensé à prendre un objet Range mais là je butte pour le définir:

   Dim rngSelect As Range   
   Set rngSelect = XL_SHT_FAZ99.Range("A" & CStr(intOffset) & ":A" & CStr((rstFAZ99.RecordCount + intOffset - 1)))

XL_SHT_FAZ99 étant mon objet Sheet.

Si quelqu'un pouvait me dépanner, ce serait génial.

Merci à tous d'avance pour votre aide

Calade

Calade · Accepted Answer

Bonjour et toutes mes excuses pour le retard.

Ca marche

Merci pour tout.

Calade

mamash_bek · Answer

Essaie comme ça (objet application puis objet range):

Dim xlapp as Excel.application  (à définir 
Dim rngSelect As Excel.Range

 Set rngSelect = xlapp.Range("A" & CStr(intOffset) & ":A" & ...etc

Pilotage Excel à partir d'Access

2 réponses

Votre réponse

Discussions similaires