Automatiser des Récupérations de données VBA

Bonjour,

Besoin de Votre Aide,

Pour récupérer la valeur de Nom je réalises cette formule :

='F:\[action.xls]Actions'!$B$4

J'aurai souhaité Créer une Macro pour que la formule ='F:\[action.xls]Actions'!$B$4 se fasse automatiquement si possible à partir d'un BOUTON.

Que cela génère automatiquement en sélectionant un fichier de mise à jour :

De ='F:\[action.xls]Actions'!$B$4

à ='F:\[action.xls]Actions'!$B$5

='F:\[action.xls]Actions'!$B$6

='F:\[action.xls]Actions'!$B$7

='F:\[action.xls]Actions'!$B$8

='F:\[action.xls]Actions'!$B$9

='F:\[action.xls]Actions'!$B$10

='F:\[action.xls]Actions'!$B$11

='F:\[action.xls]Actions'!$B$12

='F:\[action.xls]Actions'!$B$13

='F:\[action.xls]Actions'!$B$14

Merci pour vos propositions,

Best Regards

Matt

-- 31 Jan 2011, 16:03 --

Personne?

Bonjour

Avec l'enregistreur de Macro, tu obtiens par exemple

Sub Formule()
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "='F:\[Action.xls]Actions'!R[2]C2"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A12"), Type:=xlFillDefault
    Range("A2:A12").Select
    Range("A2").Select
End Sub

Tu changes les cellules A2 et A2:A12 pour faire correspondre avec ton fichier

Cordialement

trop Cool superr Merciii beaucoup

-- 01 Fév 2011, 11:51 --

Amadéus a écrit :

Bonjour

Avec l'enregistreur de Macro, tu obtiens par exemple

Sub Formule()
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "='F:\[Action.xls]Actions'!R[2]C2"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A12"), Type:=xlFillDefault
    Range("A2:A12").Select
    Range("A2").Select
End Sub

Tu changes les cellules A2 et A2:A12 pour faire correspondre avec ton fichier

Cordialement

Salut Amadeus, j'ai écouté tes conseils en changeons les cellules A2 et A2:A12 et je me rend compte que ça me Copie les valeur de A6 à A 12 au lieu de me donner les valeur de la céllule 2 du document source erf pas.

Donc au lieu que ça me donne les 10première valeurs ça me donne à partir de la valeur B6 du fichier Action.xls

Sub formule_Réc()

Range("A6").Select

ActiveCell.FormulaR1C1 = "='F:\[Action.xls]Actions'!R[2]C2"

Range("A6").Select

Selection.AutoFill Destination:=Range("A6:A12"), Type:=xlFillDefault

Range("A6:A12").Select

Range("A6").Select

End Sub

Je dois changer la mauvaise céllule mais je ne vois pas lakel

Bonjour

Pour avoir les valeurs de [Action.xls]actions!

de B2 à B11 (Les 10 premières valeurs à partir de B2 du fichier source)

Sub formule_Réc()
Range("A6").Select
ActiveCell.FormulaR1C1 = "='F:\[Action.xls]Actions'!R[-4]C2"
Range("A6").Select
Selection.AutoFill Destination:=Range("A6:A15"), Type:=xlFillDefault
Range("A6").Select
End Sub

Cordialement