automation Excel: sélection de cellule

**jarod_bx** · 03/11/2005, 15h39

Bonjour,

Comme vous pouvez l'imaginer, j'ai une petite question concernant un petit souci sur lequel je bute.

Je souhaite alimenter diverses cellules dans un fichier Excel à partir de donnée stockée dans une table Access.
J'utilise actuellement pour faire cela la sélection des cellules à alimenter via la commande

Code :

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

appexcel.cells(5, 2) ="titi toto"

Jusque la tout va bien !

Mais plutôt que d'accéder aux cellules par les index de colonnes ou de lignes, je voudrais y accéder via le nom explicite que j'ai donné aux cellules! C’est precisement sur ce point que je suis un peu « sec »

Une telle solution me permettrait de modifier la mise en page de ma feuille Excel modèle sans avoir à revoir le code...

Es ce que vous savez si cela est possible ? si oui via quel code vb?

:

Cordialement
Jarod

**pgz** · 03/11/2005, 16h01

Bonjour,

As-tu essayé

Code :

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

ActiveSheet.Cells("NomCellule") = ...

Ou

Code :

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

ActiveSheet.Range.Item("NomCellule") = ...

En espérant que cela t'aide,

pgz

**argyronet** · 03/11/2005, 16h02

Bonjour,

Avec un objet Range tu peux arriver à tes fins
Inpsire toi de ce code:

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
Sub xlTest001445()
Dim oXL As Excel.Application
Const MON_CLASSEUR = "C:\Bazar\Classeur14.xls"
 
  Set oXL = New Excel.Application
  With oXL
    .Visible = True
    .Workbooks.Open MON_CLASSEUR
    .Range("Truc").Select
    .ActiveCell = "Une valeur"
'ou bien on peut aussi écrire .Range("Truc")="Une valeur"
    .ActiveWorkbook.Save
    .ActiveWorkbook.Close
    If MsgBox("On quitte ?", 36) = 6 Then
      .Quit
    End If
  End With
  Set oXL = Nothing
End Sub

Argy