Bonjour,
J'espere que ce petit code va te permetre de trouver ce que tu veux.
Private Sub Command1_Click()
With Spreadsheet1
.ToolTipText = "Feuille excel pour l'exporter ,cliquez sur l'icon d'excel et le tour est joué"
.ActiveSheet.ConnectionString = cnx.ConnectionString
.ActiveSheet.CommandText = "SELECT * from apps.AT_MAJ_RAP_BQE"
.DisplayTitleBar = True
.TitleBar.Font.Name = "Garamond" 'Style d'ecriture
.TitleBar.Font.Size = 12 'Taille
.ActiveWindow.DisplayGridlines = True
.TitleBar.Caption = Me.Caption
.TitleBar.Interior.ColorIndex = 12
.Rows(1).Font.Bold = False
End With
Dim rngCurrentRow
For Each rngCurrentRow In Spreadsheet1.Cells(1, 1).CurrentRegion.Rows
If rngCurrentRow.Row Mod 2 = 0 Then
rngCurrentRow.Interior.Color = "Lightcyan" ' Couleur de ligne
rngCurrentRow.Font.Bold = True
End If
Next
Spreadsheet1.ActiveSheet.ConnectionString = ""
Spreadsheet1.ActiveSheet.CommandText = ""
End Sub
Merci.