> Bonjour,
>=20
> je souhaite pouvoir r=E9aliser ceci.
> A partir d'un formulaire ACCESS (reli=E9 =E0 SQL 2000), le=20
premier jour ouvr=E9 de chaque mois un fichier Excel de=20
statistique est g=E9n=E9r=E9 =E0 partir des donn=E9es du mois=20
pr=E9c=E9dent stock=E9es dans la base SQL 2000.
>=20
> Ma premi=E8re int=E9rrogation est de savoir s'il est=20
possible de g=E9n=E9rer un classeur contenant 5 feuilles=20
distinctes.
>=20
> J'ai bien vu des scripts sur ce site qui semblent le=20
faire, mais je ne suis pas s=FBre qu'ils puissent g=E9rer un=20
classeur multi-feuille.
>=20
> Merci d'avance
>=20
> LawraC
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Bonjour/soir,
Ma première intérrogation est de savoir s'il est possible de générer un classeur contenant 5 feuilles distinctes.
Voici un exemple qui devrait convenir (aux fautes de frappes/d'attention près - code non testé): 'Références a Microsoft Excel x.x Object Library Dim ExcelApp As Excel.Application Set ExcelApp = New Excel.Application
Dim objNewWorkbook As Workbook, i As Long
Set objNewWorkbook = ExcelApp.Workbooks.Add
'A la création, 3 feuilles sont ajoutées, normalement 'Toutefois, dans certains cas, il peut y en avoir plus ou moins
'Ajoute/supprime des feuilles si nécéssaire If objNewWorkbook.Worksheets.Count < 5 Then For i = objNewWorkbook.Worksheets.Count To 5 objNewWorkbook.Worksheets.Add Next i ElseIf objNewWorkbook.Worksheets.Count > 5 Then For i = 5 To objNewWorkbook.Worksheets.Count - 1 objNewWorkbook.Worksheets.Delete i Next i End If
je souhaite pouvoir réaliser ceci. A partir d'un formulaire ACCESS (relié à SQL 2000), le
premier jour ouvré de chaque mois un fichier Excel de statistique est généré à partir des données du mois précédent stockées dans la base SQL 2000.
Ma première intérrogation est de savoir s'il est
possible de générer un classeur contenant 5 feuilles distinctes.
J'ai bien vu des scripts sur ce site qui semblent le
faire, mais je ne suis pas sûre qu'ils puissent gérer un classeur multi-feuille.
Merci d'avance
LawraC
Bonjour/soir,
Ma première intérrogation est de savoir s'il est
possible de générer un classeur contenant 5 feuilles
distinctes.
Voici un exemple qui devrait convenir (aux fautes de frappes/d'attention
près - code non testé):
'Références a Microsoft Excel x.x Object Library
Dim ExcelApp As Excel.Application
Set ExcelApp = New Excel.Application
Dim objNewWorkbook As Workbook, i As Long
Set objNewWorkbook = ExcelApp.Workbooks.Add
'A la création, 3 feuilles sont ajoutées, normalement
'Toutefois, dans certains cas, il peut y en avoir plus ou moins
'Ajoute/supprime des feuilles si nécéssaire
If objNewWorkbook.Worksheets.Count < 5 Then
For i = objNewWorkbook.Worksheets.Count To 5
objNewWorkbook.Worksheets.Add
Next i
ElseIf objNewWorkbook.Worksheets.Count > 5 Then
For i = 5 To objNewWorkbook.Worksheets.Count - 1
objNewWorkbook.Worksheets.Delete i
Next i
End If
Ma première intérrogation est de savoir s'il est possible de générer un classeur contenant 5 feuilles distinctes.
Voici un exemple qui devrait convenir (aux fautes de frappes/d'attention près - code non testé): 'Références a Microsoft Excel x.x Object Library Dim ExcelApp As Excel.Application Set ExcelApp = New Excel.Application
Dim objNewWorkbook As Workbook, i As Long
Set objNewWorkbook = ExcelApp.Workbooks.Add
'A la création, 3 feuilles sont ajoutées, normalement 'Toutefois, dans certains cas, il peut y en avoir plus ou moins
'Ajoute/supprime des feuilles si nécéssaire If objNewWorkbook.Worksheets.Count < 5 Then For i = objNewWorkbook.Worksheets.Count To 5 objNewWorkbook.Worksheets.Add Next i ElseIf objNewWorkbook.Worksheets.Count > 5 Then For i = 5 To objNewWorkbook.Worksheets.Count - 1 objNewWorkbook.Worksheets.Delete i Next i End If
