0/5 (2 avis)
Vue 6 376 fois - Téléchargée 416 fois
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" .TitleBar.Font.Size = 12 .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" rngCurrentRow.Font.Bold = True End If Next Spreadsheet1.ActiveSheet.ConnectionString = "" Spreadsheet1.ActiveSheet.CommandText = "" End Sub
20 sept. 2008 à 10:51
C'est tout a fait normal il n'y a aucun contrôle qui a été utiliser comme ça au hasard, mon but c'est de partagé avec vous ‘tous’ un contrôle qui m'aide beaucoup et même ceux qui l'utilise bien sur dans une application (Un petit logiciel).
Alors si vous ne voyer pas l'utilité ne l'utiliser pas.
A mon avis tous ce qui ce poste dans ce site n’est pas vraiment des applications (logiciel),
Merci.
17 sept. 2008 à 22:00
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.