Chercher le contenu d'une cellule sur une autre fichier excel fermé

**Hassane31** · 15/04/2015, 15h19

salut

Je viens de débuter sur ce sujet (programmation VBA) et je suis bloqué, car j'aimerai chercher le contenu d'une ou plusieurs cellules d'un autres fichier excel 2010 fermé.

Lors de ma recherche sur le net, j'ai trouvé cette commande "GetValueWithADO" néanmoins il ne la reconnait pas.

Merci de bien vouloir m'aide.

Salutation

**Marc-L** · 15/04/2015, 15h29

Bonjour,

ce n'est pas une commande, tout au plus une procédure maison …

Voir dans l'aide d'Excel la copie avec liaison ou dans les tutoriels de ce forum l'accès aux classeurs fermés
tout comme les nombreux exemples dans les discussions du bon forum, celui dédié au VBA …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

**Hassane31** · 15/04/2015, 15h42

Merci Marc de m'avoir répondu aussi rapidement, comme je suis nouveau sur ce forum, est-il possible de m'indiquer ou est ce que je peut trouver des exemple?

**kiki29** · 15/04/2015, 16h03

Salut va voir ici : Lire et écrire dans les classeurs Excel fermés

**Menhir** · 15/04/2015, 17h53

A ma connaissance, il n'est pas possible de lire le contenu d'un fichier (Excel ou autre) sans l'ouvrir d'une manière ou d'une autre (à par aller directement picorer sur les secteurs disque mais c'est plutôt coton).
Cependant, il y a de nombreuses façons d'ouvrir un fichier et certaines peuvent être invisibles pour l'utilisateur (je parle de celui qui utilise la macro, pas de celui qui la code).

**Hassane31** · 16/04/2015, 14h11

Merci pour vos répone mais comme je l'ai dis au début, je suis un novice dans ce domaine.

J'ai pu trouver une commande qui ouvre le fichier en question :

Code :

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

1
2
'   Ouverture du fichier dénommé :  Oran Microwave Link Report
    Workbooks.Open "C:\Users\Home's\Desktop\Oran_link Table"

et une autre qui le ferme aussitôt le travail fait :

Code :

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

1
2
'   Fermeture du fichier active sans enregistrement des modifications
    ActiveWorkbook.Close SaveChanges:=False

Néanmoins, mon objectif c'est de copier certaines donnée dans le fchier que g ouvert sur un autre pour son traitement.

Par exemple :

J'ai deux fichiers excel Fichier01 & Fichier02, j'ai prendre la valeur de la cellule A1 du fichier01 (qui est fermé) et la déposé dans la cellule C1 du deuxième fichier (Ouvert, car c'est le fichier final).

Merci de bien vouloir m'orienté.

**Marc-L** · 16/04/2015, 18h52

Alors pour apprendre, l'idéal est d'activer le Générateur de macros puis d'effectuer les manipulations :
un code est livré sur un plateau ! Je procède parfois encore ainsi afin de créer le squelette d'une procédure …

Ensuite en plaçant le curseur texte sur une instruction du code puis en appuyant sur la touche

l'aide VBA est affichée …

**Hassane31** · 16/04/2015, 21h07

merci pour ces éclaircissements, j’utilise cette même méthode parois, mais le problème c'est que sa marche pas et le code générer ne fonctionne pas.

merci pour votre support

**Marc-L** · 17/04/2015, 01h17

Merci de poster le code ainsi généré en le balisant avec l'icône # dédiée conformément aux règles du forum …

Et dire qu'un code est inutile avec une simple formule avec liaison !

**Theze** · 17/04/2015, 06h56

Bonjour,

Une piste parmi tant d'autres avec "ExecuteExcel4Macro". Adapter la proc "RecuperationDonnees" au niveau de Col = "B" et de MsgBox RecupValeur("C:\", "Classeur.xls", "Feuil1", Col & I) puis tester le résultat obtenu et modifier ensuite pour la récup des valeurs :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub RecuperationDonnees()
 
    Dim Col As String
    Dim I As Integer
 
    'boucle de la ligne 10 à 15 sur la colonne B
    Col = "B"
    For I = 10 To 15
 
        'en référence A1
        MsgBox RecupValeur("C:\", "Classeur.xls", "Feuil1", Col & I)
 
    Next I
 
End Sub
 
Function RecupValeur(Chemin As String, _
                     NomClasseur As String, _
                     NomFeuille As String, _
                     Cellule As String)
 
    Dim Arg As String
 
    'vérifie le chemin
    If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
 
    'si c'est une plage, affiche un message et fin de procédure
    If InStr(Cellule, ":") Then
 
        MsgBox "Une seule cellule en argument", , "Cellule unique."
        Exit Function
 
    End If
 
    'ignore l'erreur si la plage est déjà en référence R1C1
    On Error Resume Next
 
    'transforme la référence en style R1C1
    Cellule = Range(Cellule).Address(, , xlR1C1)
 
    'construit l'argument
        Arg = "'" & Chemin & "[" & NomClasseur & "]" & NomFeuille & "'!" & Cellule
 
    'passe la valeur à la fonction
    RecupValeur = Application.ExecuteExcel4Macro(Arg)
 
End Function

Hervé.

Invité · 17/04/2015, 08h02

Bonjour,
Regardes ça:http://www.developpez.net/forums/d14...n/#post7945011

**Menhir** · 17/04/2015, 09h11

Envoyé par Hassane31

merci pour ces éclaircissements, j’utilise cette même méthode parois, mais le problème c'est que sa marche pas et le code générer ne fonctionne pas.

On peut rarement utiliser ce code de manière brute pour de nombreuses raisons : options surabondantes, usage immodéré de Select/Selection, pas de structures de test ou de boucles, pas d'usage de variables, etc.

Mais, comme l'a dit Marc, ça te donne toutes les pistes nécessaires pour savoir quels objets, quelles méthodes, quelles propriétés, quelles options et quelles valeurs d'option utiliser.
Ca permet de gagner énormément de temps dans la recherche de solutions.
Il faut ensuite le coupler à l'aide VBA pour comprendre les objets utilisés et leur syntaxe pour pouvoir obtenir un code utilisable et clair.

**Hassane31** · 18/04/2015, 11h58

Envoyé par Theze

Bonjour,

Une piste parmi tant d'autres avec "ExecuteExcel4Macro". Adapter la proc "RecuperationDonnees" au niveau de Col = "B" et de MsgBox RecupValeur("C:\", "Classeur.xls", "Feuil1", Col & I) puis tester le résultat obtenu et modifier ensuite pour la récup des valeurs :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub RecuperationDonnees()
 
    Dim Col As String
    Dim I As Integer
 
    'boucle de la ligne 10 à 15 sur la colonne B
    Col = "B"
    For I = 10 To 15
 
        'en référence A1
        MsgBox RecupValeur("C:\", "Classeur.xls", "Feuil1", Col & I)
 
    Next I
 
End Sub
 
Function RecupValeur(Chemin As String, _
                     NomClasseur As String, _
                     NomFeuille As String, _
                     Cellule As String)
 
    Dim Arg As String
 
    'vérifie le chemin
    If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
 
    'si c'est une plage, affiche un message et fin de procédure
    If InStr(Cellule, ":") Then
 
        MsgBox "Une seule cellule en argument", , "Cellule unique."
        Exit Function
 
    End If
 
    'ignore l'erreur si la plage est déjà en référence R1C1
    On Error Resume Next
 
    'transforme la référence en style R1C1
    Cellule = Range(Cellule).Address(, , xlR1C1)
 
    'construit l'argument
        Arg = "'" & Chemin & "[" & NomClasseur & "]" & NomFeuille & "'!" & Cellule
 
    'passe la valeur à la fonction
    RecupValeur = Application.ExecuteExcel4Macro(Arg)
 
End Function

Hervé.

Merci Theze pour l'exemple, seulement je n'ai pas compris la fonction "Recup_valeur" que t'as insérer, car lorsque je fais un test sa me retourne rien.
Pour mon cas, j'aimerai que cette fonction me retourne la valeur et me la colle dans une cellule bien déterminée sur le premier fichier..

**Theze** · 18/04/2015, 21h52

Bonjour,

Tout d'abords, ce n'est pas "Recup_valeur" mais "RecupValeur (l'orthographe a beaucoup d'importance dans la programmation !)
Cette ligne de code :

Code :

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

1
2
 
MsgBox RecupValeur("C:\", "Classeur.xls", "Feuil1", Col & I)

*
appelle la fonction "RecupValeur" en lui passant les arguments demandés, le chemin du dossier contenant le classeur (C:\), le nom du classeur visé (Classeur.xls), la feuille ciblée du classeur (Feuil1) et la cellule où doit être récupérée la valeur, ici, la variable "Col" contient la lettre de colonne et I le numéro de ligne de la cellule (pour l'exemple, j'ai fais une boucle pour récupérer les valeur des cellules de B10 à B15). Cette valeur est passée à la fonction "MsgBox" qui l'affiche dans une boite à l'écran, pour entrer ces valeurs dans des cellules particulières, il suffit de faire de cette façon :

Code :

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

1
2
 
Cells(3, I) = RecupValeur("C:\", "Classeur.xls", "Feuil1", Col & I)

les valeurs sont inscrites dans les cellules C10 à C15 de la feuille active. Après, il suffit de faire fonctionner un peu ses méninges pour en comprendre le sens si on souhaite vraiment se lancer dans la programmation.

Hervé.

**patricktoulon** · 19/04/2015, 10h14

Bonjour
cet exemple récupère la cellule A du fichier fermé et te la met dans la celle c1 du sheet(3) du classeur final
en considérant que ce soit le classeur final qui soit le porteur de la macro

Code :

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

1
2
3
4
5
6
7
8
Sub recupe()
Application.ScreenUpdating = False
Dim wbk2 As Object,valeur a string 
Set wbk2 = Workbooks.Open("c:\.........mofichier.xls")
valeur = wbk2.Sheets(1).Cells(1, 1)
wbk2.Close
Sheets(3).Cells(1, 3) = valeur
End Sub

**Michel_M** · 20/04/2015, 09h17

Bonjour

Pour le conenu d'une seule cellule dans un fichier fermé

Code :

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

1
2
3
Dim chemin As String
     chemin = ThisWorkbook.Path ' A ADAPTER
     Cells(2, 2) = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R2C1") 'R2C1=A2

d'après la macro dite de Walkenbach

**patricktoulon** · 20/04/2015, 09h50

re
pas mal michel

il est vrai que l'on a tendance a les oublié celles la "ExecuteExcel4Macro"

**Theze** · 20/04/2015, 10h50

Bonjour,

pas mal michel

il est vrai que l'on a tendance a les oublié celles la "ExecuteExcel4Macro"

C'est ce que j'utilise dans la fonction "RecupValeur" !

Hervé.

**patricktoulon** · 20/04/2015, 12h12

salut theze

effectivement je l'avais pas vu

et une plage comment fait on?
car ca m'intéresse afin de supprimer toutes les "workbooks.open" des mes fichiers