Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Affichage de cellules stockes dans dautres tableaux

Affichage de cellules stockes dans dautres tableaux

7 réponses
Avatar
christian.maurath
Bonsoir à tous,
Je désire faire un tableau récapitulatif et je n'y arrive pas .
J'ai dans un répertoire mensuel un fichier excel par jour. Ces fichiers
contiennent l'information toujours au même endroit.
Je veux donc créer un tableau récap avec par exemple la cellule l3c5 de tous
mes tableaux journaliers.
Je pensais utiliser la fonction lien_hypertexte. Mais cette fonction m'ouvre
le fichier mais n'affiche pas le contenu.
Qu'ai-je loupé ?
Merci pour votre aide.
Chrstian
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrick BASTARD
Bonjour, *christian.maurath*
J'ai lu ton post 431c8798$0$27433$
avec le plus grand intéret :

S'il s'agit d'ajouter les valeurs figurant en A1 (par exemple)
=somme(NomPremierOnglet:NomDernierOnglet!A1)
te retournera la somme des cellules A1 de tous les onglets (feuilles)
compris entre le Premier et le dernier (inclus).

Cela te convient-il ?

--
Bien amicordialement,
P. Bastard


Bonsoir à tous,
Je désire faire un tableau récapitulatif et je n'y arrive pas .
J'ai dans un répertoire mensuel un fichier excel par jour. Ces
fichiers contiennent l'information toujours au même endroit.
Je veux donc créer un tableau récap avec par exemple la cellule l3c5
de tous mes tableaux journaliers.
Je pensais utiliser la fonction lien_hypertexte. Mais cette fonction
m'ouvre le fichier mais n'affiche pas le contenu.
Qu'ai-je loupé ?
Merci pour votre aide.
Chrstian


Avatar
anonymousA
bonjour,

s'il s'agit de récupérer des données de fichiers fermés, l'idée serait
de soit passer par ADO soit d'utiliser une fonction de Macro Excel4.
Dans les 2 cas, l'affaire est jouable, la difficulté pouvant plus être
la détermination des fichiers concernés.

A+


Bonsoir à tous,
Je désire faire un tableau récapitulatif et je n'y arrive pas .
J'ai dans un répertoire mensuel un fichier excel par jour. Ces fichiers
contiennent l'information toujours au même endroit.
Je veux donc créer un tableau récap avec par exemple la cellule l3c5 de tous
mes tableaux journaliers.
Je pensais utiliser la fonction lien_hypertexte. Mais cette fonction m'ouvre
le fichier mais n'affiche pas le contenu.
Qu'ai-je loupé ?
Merci pour votre aide.
Chrstian




Avatar
Patrick BASTARD
Bonjour, *Patrick BASTARD*
J'ai lu ton post
avec le plus grand intéret :

et me suis aperçu que tu t'étais lamentablement planté, confondant
répertoire et classeur, fichier et onglet.

J'implore à genoux la Noble Assemblée de n'en pas lui tenir trop rigueur.
Fort heureusement, anonymousA est sur le pont...
;-)

Patrick.


Bonjour, *christian.maurath*
J'ai lu ton post 431c8798$0$27433$
avec le plus grand intéret :

S'il s'agit d'ajouter les valeurs figurant en A1 (par exemple)
=somme(NomPremierOnglet:NomDernierOnglet!A1)
te retournera la somme des cellules A1 de tous les onglets (feuilles)
compris entre le Premier et le dernier (inclus).

Cela te convient-il ?


Bonsoir à tous,
Je désire faire un tableau récapitulatif et je n'y arrive pas .
J'ai dans un répertoire mensuel un fichier excel par jour. Ces
fichiers contiennent l'information toujours au même endroit.
Je veux donc créer un tableau récap avec par exemple la cellule l3c5
de tous mes tableaux journaliers.
Je pensais utiliser la fonction lien_hypertexte. Mais cette fonction
m'ouvre le fichier mais n'affiche pas le contenu.
Qu'ai-je loupé ?
Merci pour votre aide.
Chrstian




Avatar
Patrick BASTARD
Bonjour, *christian.maurath*
J'ai lu ton post 431c8798$0$27433$
avec le plus grand intéret :

Une solution serait peut-être d'automatiser la copie de chacune des feuilles
jourrnalières dans un même classeur, auquel cas la solution précédemment
proposée pourrait convenir.
Qu'en penses-tu ?


--
Bien amicordialement,
P. Bastard


Bonsoir à tous,
Je désire faire un tableau récapitulatif et je n'y arrive pas .
J'ai dans un répertoire mensuel un fichier excel par jour. Ces
fichiers contiennent l'information toujours au même endroit.
Je veux donc créer un tableau récap avec par exemple la cellule l3c5
de tous mes tableaux journaliers.
Je pensais utiliser la fonction lien_hypertexte. Mais cette fonction
m'ouvre le fichier mais n'affiche pas le contenu.
Qu'ai-je loupé ?
Merci pour votre aide.
Chrstian


Avatar
christian.maurath
Merci pour votre aide mais :
* Je ne peux pas copier chacune des feuilles journalière dans un seul
classeur : trop grand car j'ai stocké plusieurs années dans mes
répertoires.
* qu'estce que ADO ?
* et sinon quelles fonctions d'Excel4 ?

Christian


"Patrick BASTARD" a écrit dans le
message de news:%
Bonjour, *christian.maurath*
J'ai lu ton post 431c8798$0$27433$
avec le plus grand intéret :

Une solution serait peut-être d'automatiser la copie de chacune des
feuilles

jourrnalières dans un même classeur, auquel cas la solution précédemment
proposée pourrait convenir.
Qu'en penses-tu ?


--
Bien amicordialement,
P. Bastard


Bonsoir à tous,
Je désire faire un tableau récapitulatif et je n'y arrive pas .
J'ai dans un répertoire mensuel un fichier excel par jour. Ces
fichiers contiennent l'information toujours au même endroit.
Je veux donc créer un tableau récap avec par exemple la cellule l3c5
de tous mes tableaux journaliers.
Je pensais utiliser la fonction lien_hypertexte. Mais cette fonction
m'ouvre le fichier mais n'affiche pas le contenu.
Qu'ai-je loupé ?
Merci pour votre aide.
Chrstian






Avatar
anonymousA
re,

1-avec ADO

'lire la valeur d'une cellule dans un classeur fermé

Sub test()
Dim fich$, feuil$, Cell As Range
fich = "D:TestADO.xls"
feuil = "feuil1"
Set Cell = Range("A1")

MsgBox GetValueWithADO(fich, feuil, Cell)

End Sub

'Note : cette fonction est utilisable dans une feuille de calcul
'Ex :
' =GetValueWithADO("D:TestADO.xls";"feuil1";A1)

Function GetValueWithADO(Classeur$, Feuille$, Cell As Range)
'renvoie la valeur de la cellule Cell de la feuille Feuille
'du classeur fermé Classeur
Dim RcdSet As Object
Dim strConn As String
Dim strCmd As String
Dim dummyBase As Range

'prépare une "base de données" bidon pour la clause SELECT
'(une entête fictive et une ligne de données)
Set dummyBase = Cell.Resize(2)

'prépare les commandes ADO et SQL
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Classeur & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"";"
strCmd = "SELECT * FROM [" & Feuille & "$" & dummyBase.Address(0, 0) & "]"

'crée l'objet Recordset
Set RcdSet = CreateObject("ADODB.Recordset")

'va chercher l'info
RcdSet.Open strCmd, strConn, 0, 1, 1 'adOpenForwardOnly, adLockReadOnly,
adCmdText

'et la renvoie
GetValueWithADO = Application.Clean(RcdSet(0))
'autre syntaxe possible
' GetValueWithADO =Application.Clean(RcdSet.GetString(NumRows:=1))

'nettoyage
Set RcdSet = Nothing
End Function 'fs

2-avec une macro Excel4

on suppose que le fichier fermé s'appelle toto (dont le nom complet est
C:Archivestoto.xls ) et que la cellule que tu veux récupérer est la cellule
C3 de la feuille appelée tata .
MsgBox ExecuteExcel4Macro("C:Archives[toto.xls]tata'!R3C3")

A+



Merci pour votre aide mais :
* Je ne peux pas copier chacune des feuilles journalière dans un seul
classeur : trop grand car j'ai stocké plusieurs années dans mes
répertoires.
* qu'estce que ADO ?
* et sinon quelles fonctions d'Excel4 ?

Christian


"Patrick BASTARD" a écrit dans le
message de news:%
Bonjour, *christian.maurath*
J'ai lu ton post 431c8798$0$27433$
avec le plus grand intéret :

Une solution serait peut-être d'automatiser la copie de chacune des
feuilles

jourrnalières dans un même classeur, auquel cas la solution précédemment
proposée pourrait convenir.
Qu'en penses-tu ?


--
Bien amicordialement,
P. Bastard


Bonsoir à tous,
Je désire faire un tableau récapitulatif et je n'y arrive pas .
J'ai dans un répertoire mensuel un fichier excel par jour. Ces
fichiers contiennent l'information toujours au même endroit.
Je veux donc créer un tableau récap avec par exemple la cellule l3c5
de tous mes tableaux journaliers.
Je pensais utiliser la fonction lien_hypertexte. Mais cette fonction
m'ouvre le fichier mais n'affiche pas le contenu.
Qu'ai-je loupé ?
Merci pour votre aide.
Chrstian











Avatar
anonymousA
il manquait une petite quote '

MsgBox ExecuteExcel4Macro("'C:Archives[toto.xls]tata'!R3C3")


re,

1-avec ADO

'lire la valeur d'une cellule dans un classeur fermé

Sub test()
Dim fich$, feuil$, Cell As Range
fich = "D:TestADO.xls"
feuil = "feuil1"
Set Cell = Range("A1")

MsgBox GetValueWithADO(fich, feuil, Cell)

End Sub

'Note : cette fonction est utilisable dans une feuille de calcul
'Ex :
' =GetValueWithADO("D:TestADO.xls";"feuil1";A1)

Function GetValueWithADO(Classeur$, Feuille$, Cell As Range)
'renvoie la valeur de la cellule Cell de la feuille Feuille
'du classeur fermé Classeur
Dim RcdSet As Object
Dim strConn As String
Dim strCmd As String
Dim dummyBase As Range

'prépare une "base de données" bidon pour la clause SELECT
'(une entête fictive et une ligne de données)
Set dummyBase = Cell.Resize(2)

'prépare les commandes ADO et SQL
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Classeur & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"";"
strCmd = "SELECT * FROM [" & Feuille & "$" & dummyBase.Address(0, 0) & "]"

'crée l'objet Recordset
Set RcdSet = CreateObject("ADODB.Recordset")

'va chercher l'info
RcdSet.Open strCmd, strConn, 0, 1, 1 'adOpenForwardOnly, adLockReadOnly,
adCmdText

'et la renvoie
GetValueWithADO = Application.Clean(RcdSet(0))
'autre syntaxe possible
' GetValueWithADO =Application.Clean(RcdSet.GetString(NumRows:=1))

'nettoyage
Set RcdSet = Nothing
End Function 'fs

2-avec une macro Excel4

on suppose que le fichier fermé s'appelle toto (dont le nom complet est
C:Archivestoto.xls ) et que la cellule que tu veux récupérer est la cellule
C3 de la feuille appelée tata .
MsgBox ExecuteExcel4Macro("C:Archives[toto.xls]tata'!R3C3")

A+



Merci pour votre aide mais :
* Je ne peux pas copier chacune des feuilles journalière dans un seul
classeur : trop grand car j'ai stocké plusieurs années dans mes
répertoires.
* qu'estce que ADO ?
* et sinon quelles fonctions d'Excel4 ?

Christian


"Patrick BASTARD" a écrit dans le
message de news:%
Bonjour, *christian.maurath*
J'ai lu ton post 431c8798$0$27433$
avec le plus grand intéret :

Une solution serait peut-être d'automatiser la copie de chacune des
feuilles

jourrnalières dans un même classeur, auquel cas la solution précédemment
proposée pourrait convenir.
Qu'en penses-tu ?


--
Bien amicordialement,
P. Bastard


Bonsoir à tous,
Je désire faire un tableau récapitulatif et je n'y arrive pas .
J'ai dans un répertoire mensuel un fichier excel par jour. Ces
fichiers contiennent l'information toujours au même endroit.
Je veux donc créer un tableau récap avec par exemple la cellule l3c5
de tous mes tableaux journaliers.
Je pensais utiliser la fonction lien_hypertexte. Mais cette fonction
m'ouvre le fichier mais n'affiche pas le contenu.
Qu'ai-je loupé ?
Merci pour votre aide.
Chrstian