Salut Michel & Omarjaja,
Petite suggestion, si je puis me permettre.
Ne pourrait-on pas rajouter ces quelques lignes qui donne comme réf le nom de la page et l'adresse de la cellule dans lesquelles on se trouve?
MaFeuille = ActiveSheet.Name
MaCellule = ActiveCell.Address(False, False)
MaCellule2 = MaCellule & ':' & MaCellule
MaRef = 'SELECT * from ' & MaFeuille & '$' & MaCellule2
'Ce qui donnerait après, à la bonne ligne:
Cd.CommandText = MaRef
évidemment, il manque les petites apostrophes, je ne sais pas si c'est important , il y a tellement de choses inutiles dans un code(?!), enfin, je ne sais pas exactement comment les rajouter...
mais tu sauras certainement rattraper mon ignorance...
