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 Petite question : Récup de données

Petite question : Récup de données

3 réponses
Avatar
YANN24
Bonjour,
j'ai trouvé une macro sur le site de FS :
Mais où dois-je mettre mes cellules de destination? à la place du cellRange?
Merci. YANN

Attribute VB_Name = "DonneesClasseurFerme4"

Sub test()
GetValuesFromAClosedWorkbook "D:", "TestADO.xls", "Feuil1", "A1:H25"
End Sub

Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
'Ron De Bruin, mpep
'le paramètre 'cellRange' doit désigner
'*une* plage de cellules *contigües*
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "\[" & fName & "]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub
Signaler un problème avec ce contenu

3 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
papou
Bonjour
La plage destination est identique à la plage que tu veux récupérer.
Donc ici A1:H25 seront remplies sur la feuille active.
Cordialement
Pascal

"YANN24" a écrit dans le message de news:

Bonjour,
j'ai trouvé une macro sur le site de FS :
Mais où dois-je mettre mes cellules de destination? à la place du
cellRange?
Merci. YANN

Attribute VB_Name = "DonneesClasseurFerme4"

Sub test()
GetValuesFromAClosedWorkbook "D:", "TestADO.xls", "Feuil1", "A1:H25"
End Sub

Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
'Ron De Bruin, mpep
'le paramètre 'cellRange' doit désigner
'*une* plage de cellules *contigües*
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "[" & fName & "]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub



Avatar
YANN24
Re,
oui, mais ça ne m'arrange pas. Comment puis-je spécifier ma plage de
destination (feuille et cellule de départ)?
Ex : je copie "D:", "TestADO.xls", "Feuil1", "A1:H25", et je veux le coller
sur "Feuil3", plage B11:I35. Comment faire? Merci. YANN


Bonjour
La plage destination est identique à la plage que tu veux récupérer.
Donc ici A1:H25 seront remplies sur la feuille active.
Cordialement
Pascal

"YANN24" a écrit dans le message de news:

Bonjour,
j'ai trouvé une macro sur le site de FS :
Mais où dois-je mettre mes cellules de destination? à la place du
cellRange?
Merci. YANN

Attribute VB_Name = "DonneesClasseurFerme4"

Sub test()
GetValuesFromAClosedWorkbook "D:", "TestADO.xls", "Feuil1", "A1:H25"
End Sub

Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
'Ron De Bruin, mpep
'le paramètre 'cellRange' doit désigner
'*une* plage de cellules *contigües*
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "[" & fName & "]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub








Avatar
Gaenonius
Essaye en ajoutant des paramètres à la procédure (non testé) :

''''''''''''''''''''''''''''''
Sub test()
GetValuesFromAClosedWorkbook "D:", "TestADO.xls", _
"Feuil1", "A1:H25", "Feuil3", "B11"
End Sub

Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String, _
feuilleDest As String, cellDest As String)
'Ron De Bruin, mpep
'le paramètre 'cellRange' doit désigner
'*une* plage de cellules *contigües*
With Sheets(feuilleDest).Range(cellDest).Range(cellRange)
.Formula = "='" & fPath & "[" & fName & "]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub
''''''''''''''''''''''''''''''

Le renvoi vers la plage de destination utilise la même adresse que la plage
extraite, mais relative à la cellule de la feuille de destination de ton choix,
qui en constituera le point de départ (coin haut/gauche).

--
Gaenonius

Re,
oui, mais ça ne m'arrange pas. Comment puis-je spécifier ma plage de
destination (feuille et cellule de départ)?
Ex : je copie "D:", "TestADO.xls", "Feuil1", "A1:H25", et je veux le coller
sur "Feuil3", plage B11:I35. Comment faire? Merci. YANN



Bonjour
La plage destination est identique à la plage que tu veux récupérer.
Donc ici A1:H25 seront remplies sur la feuille active.
Cordialement
Pascal

"YANN24" a écrit dans le message de news:


Bonjour,
j'ai trouvé une macro sur le site de FS :
Mais où dois-je mettre mes cellules de destination? à la place du
cellRange?
Merci. YANN

Attribute VB_Name = "DonneesClasseurFerme4"

Sub test()
GetValuesFromAClosedWorkbook "D:", "TestADO.xls", "Feuil1", "A1:H25"
End Sub

Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
'Ron De Bruin, mpep
'le paramètre 'cellRange' doit désigner
'*une* plage de cellules *contigües*
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "[" & fName & "]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub