Programmation, Trucs et astuces sur Microsoft ACCESS. Dans la mesure de ses capacités,le WebMaster répondra aux messages restés sans réponses.

Re: Ouvrir un fichier excel depuis Access

Réponse à: Ouvrir un fichier excel depuis Access envoi de helo le 30 Mai 2005 16:43:10:

Voici un extraite de code qui sur clic d'un bouton, ouvre un fichier excel et le met en forme à partir d'une source de données.
>> DEBUT CODE
--------------------------------
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim rs As Recordset
Dim rsHoraire As Recordset
Dim fld As Field

Set rs = CurrentDb.OpenRecordset("Req_Publipostage")

Set xlApp = New Excel.Application
xlApp.Visible = True

With xlApp

If txt = "PRO" Then
Set wbk = .Workbooks.Open("G:\VisitesMédicales\documents\Planning convoc PRO vierge.xls")
strHeure = "HeurePro"
i = 11
d = 6
l = 8
fin = 26
End If

With wbk.Sheets("Feuil1")
For debut = i To fin
.Cells(debut, 2).Value = ""
.Cells(debut, 3).Value = ""
Next
End With


If rs.RecordCount <> 0 Then
rs.MoveFirst

Set rsHoraire = CurrentDb.OpenRecordset("T_HORAIRE")

With wbk.Sheets("Feuil1")
While Not rs.EOF

For cpt = 0 To rsHoraire.RecordCount - 1

If rsHoraire.EOF Then
rsHoraire.MoveFirst
i = 11
End If

If i = 20 And txt = "PRO" Then
i = 21
End If
If rs("Heure") = rsHoraire(strHeure) Then
.Cells(i, 2).Value = rs("NOM_USUEL") & " " & rs("NOM_PRENOM")
If IsNull(rs("COM_SERV1")) Then
.Cells(i, 3).Value = "Assistante Maternelle"
Else
.Cells(i, 3).Value = rs("COM_SERV1")
End If
Exit For
End If
rsHoraire.MoveNext
i = i + 1
Next
'ex:rs("DateConv") contient mardi 7 septembre 2004
'ici on ne gardera que 7 septembre 2004
pos = InStr(1, rs("DateConv"), " ", vbTextCompare)
temp = Right(rs("DateConv"), Len(rs("DateConv")) - pos)
.Cells(d, 4).Value = temp
.Cells(d, l).Value = rs("LieuConv")
rs.MoveNext

Wend
End With

End If


End With
--------------------------------
>> FIN CODE

Alerter Rezoweb si ce message est illégal