Discussion :

[denisw95]

Bonjour,

Depuis un formulaire, j'ouvre une feuille XLS par l'intermédiaire d'une macro (fonction "Executer Application" avec lancement d'Excel et nom du fichier à ouvrir).

Est-il possible de passer en paramètre des données de mon formulaire pour qu'elles soient récupérables dans une cellule XLS ?

Merci d'avance pour vos réponses.

NB : je ne connais pas Visual Basic

Cordialement

[nico84]

Ben c'est l'occasion de commencer ;-)

Voici un exemple de code VBA qui remplit un tableau excel dont les cases à remplir ont été nommées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub imp_Click()
' NG le 16/09/08 : charge une feuille excel pour imprimer la sortie magasin
Dim objbook As Object, objApp As Object, objsheet As Object
  'édition avec excel
  Set objApp = CreateObject("excel.application")
  Set objbook = objApp.Workbooks.Open(MonNomDeFichierExcel, ReadOnly:=True) 
  Set objsheet = objbook.Worksheets("MaFeuille")
  objApp.Visible = True   'si on veut visualiser
  With objsheet
    .Activate
    .Range("cd_of").Value = cd_of
    .Range("date_deb").Value = date_deb
    .Range("date_fin").Value = date_fin
    .Range("draw_ref").Value = DRAW_REF
    .Range("ind").Value = issue
    .Range("designation").Value = DESIGNATION
    .Range("Qcde").Value = Qcde
  End With
  'libère excel
  'Set objsheet = Nothing
  'Set objbook = Nothing
  'Set objApp = Nothing
End If
end sub

Il est possible d'ajouter à ce code n'importe quelle instruction excel de la même façon...

[denisw95]

Merci beaucoup.

Cela correspond exactement à ce que je souhaitais faire.

Cdlt