OVH Cloud OVH Cloud

J'ai besoin d'un coup de main dans VBA

2 réponses
Avatar
Michel
Bonjour,
C'est la première fois que je pose une question sur ce forum
Voici mon problème, je récupére des données soit d'un onglet Excel soit
d'une base access et j'écris ces informations dans une feuille de calcul.
Voici ce que je suis obligé de faire et qui est relativement lourd car j'ai
beaucoup de données à récupérer...mais cela marche

If Choix="Access" then
'Récuperation de l'enregistrement sous access
cells(3,4)=Evenement.Fields(7)

else
'Récupération de la cellule de l'onglet transfert
cells(3,4)=sheets("Transfert").cells(LigneTransfert, 7)
end if

Je souhaite savoir s'il est possible de définir une variable qui
fonctionnerait comme la fonction "indirect" dans ce style là :

if Choix="Access" then
Variable="Evenement.Fields("
else
Variable="sheets("Transfert").cells(LigneTransfert,"
end if

cells(3,4)= Variable & "7)"


merci d'avance à la personne qui voudra bien m'aider
--
Michel

2 réponses

Avatar
anonymousA
Bonjour,

désolé pour ta 1ere participation de devoir t'échauder. Ceci dit ta
demande peut être réalisée éventuellement au prix de bricolages
sans grand interet d'ailleurs pour la récupération de la donnée sur
une feuille Excel mais ne me parait pas être réalisable du point de
vue de la récupération des données ACCESS.
Je n'ai d'ailleurs pas d'élément sur la nature de l'objet traduit par
Evenement. S'agit t-il d'un recordset récupéré par DAO ou ADo ou
d'un recordset récupéré par ACCESS via un objet ACCESS.

A+

Michel wrote:
Bonjour,
C'est la première fois que je pose une question sur ce forum
Voici mon problème, je récupére des données soit d'un onglet Exce l soit
d'une base access et j'écris ces informations dans une feuille de calcu l.
Voici ce que je suis obligé de faire et qui est relativement lourd car j'ai
beaucoup de données à récupérer...mais cela marche

If Choix="Access" then
'Récuperation de l'enregistrement sous access
cells(3,4)=Evenement.Fields(7)

else
'Récupération de la cellule de l'onglet transfert
cells(3,4)=sheets("Transfert").cells(LigneTransfert, 7)
end if

Je souhaite savoir s'il est possible de définir une variable qui
fonctionnerait comme la fonction "indirect" dans ce style là :

if Choix="Access" then
Variable="Evenement.Fields("
else
Variable="sheets("Transfert").cells(LigneTransfert,"
end if

cells(3,4)= Variable & "7)"


merci d'avance à la personne qui voudra bien m'aider
--
Michel


Avatar
Michel
Bonjour
Il s'agit en effet d'un recordset récupéré par ACCESS

Merci quand même
--
Michel



Bonjour,

désolé pour ta 1ere participation de devoir t'échauder. Ceci dit ta
demande peut être réalisée éventuellement au prix de bricolages
sans grand interet d'ailleurs pour la récupération de la donnée sur
une feuille Excel mais ne me parait pas être réalisable du point de
vue de la récupération des données ACCESS.
Je n'ai d'ailleurs pas d'élément sur la nature de l'objet traduit par
Evenement. S'agit t-il d'un recordset récupéré par DAO ou ADo ou
d'un recordset récupéré par ACCESS via un objet ACCESS.

A+

Michel wrote:
Bonjour,
C'est la première fois que je pose une question sur ce forum
Voici mon problème, je récupére des données soit d'un onglet Excel soit
d'une base access et j'écris ces informations dans une feuille de calcul.
Voici ce que je suis obligé de faire et qui est relativement lourd car j'ai
beaucoup de données à récupérer...mais cela marche

If Choix="Access" then
'Récuperation de l'enregistrement sous access
cells(3,4)=Evenement.Fields(7)

else
'Récupération de la cellule de l'onglet transfert
cells(3,4)=sheets("Transfert").cells(LigneTransfert, 7)
end if

Je souhaite savoir s'il est possible de définir une variable qui
fonctionnerait comme la fonction "indirect" dans ce style là :

if Choix="Access" then
Variable="Evenement.Fields("
else
Variable="sheets("Transfert").cells(LigneTransfert,"
end if

cells(3,4)= Variable & "7)"


merci d'avance à la personne qui voudra bien m'aider
--
Michel