Discussion :

[zooffy]

Bonjour à tous.

Je suis complètement rouillé avec le VBA d'ACCESS et je ne connais pas la version 2010.
J'ai trouvé le moyen de récupérer une plage de cellule d'une feuille EXcel pour la mettre dans une table Access.

Par contre je sèche totalement sur un truc normalement plus simple : récupérer le contenu d'une seule cellule pour la mettre dans une variable.
Je dois pas faire les bonnes recherches avec Google, mais je sèche totalement, j'y suis depuis le mileux de matinée et j'avoue que je m'en sors pas.
Pourriez vous me donner un chemin à suivre, s'il vous plait.

Merci d'avance.

[marot_r]

Bonjour.

Si tu as un objet Excel c'est assez direct :

Code :

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

MaVariable=MonObjetExcel.Workbooks("NomTonClasseur").worksheets("NomTaFeuille").Cells(3, 1).value 'Cellule A3

ou

Code :

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

MaVariable=MonObjetExcel.Workbooks("NomTonClasseur").worksheets("NomTaFeuille").Range("A3").value

A+

[zooffy]

Merci beaucoup pour ton aide.

Par contre, j'ai pas trouvé comment monter un objet Excel.

En fait ce que j'ai ça :

Code :

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

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Salaire_a_saisir", FileXLSName, True, "A5:G60"

Et j'ai rien d'autre, pour l'instant.

Parce que j'ai besoin d'une plage de cellule à mettre dans une table, mais je dois aussi récupérer des trucs en haut de la feuille Excel, des données scalaires.

Merci pour ton aide.

[marot_r]

Bonjour.

Je pense que :
Comment piloter Excel depuis Access (exemples d'opérations courantes effectuées sur des cellules, des plages, des lignes ou des colonnes en Excel.) ?
https://access.developpez.com/faq/?p...cel#PilotExcel

dans la FAQ devrait répondre à ton besoin.

A+

[zooffy]

Hey, genial, merci.
J'avais pas trouvé ça dans mes recherches.
En meme la moitié des sites sont bloqué par le proxy, du coup, je loupe des trucs.

Je ponce le sujet et je reviens si j'ai d'autres soucis.

[zooffy]

Bon, je pose un bout de coed pour la postérité, on ne sait jamais, un amnésique de mon acabit pourrait passer dans le secteur.....

Code :

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

1
2
3
4
5
6
7
8
 
 Public xlSheet As Excel.Worksheet
 Public xlBook As Excel.Workbook
 Public xlApp As Excel.Application
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(FileXLSName)
Set xlSheet = xlBook.Sheets(1)

J'ai mis l'indice 1 parce que je suis sur la première, mais je pense qu'en mettant son petit nom dans l'onglet on doit arriver à la meme chose.
Ensuite j'accède à mes donnée comme cela :

Code :

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

1
2
3
4
5
6
 
Public MontantGlobal As String
Public NomSociete As String
 
MontantGlobal = xlSheet.Range("E3")
NomSociete = xlSheet.Range("B1")

C'est super simple, enfin, quand on a les objets de base. Ne pas oublier la reference de l'objet Excel et le tour est joué.

Merci beaucoup MArot_R pour ton aide et ta patience.

@ bientôt.