formule avec fichier source en variable

pierrejean

XLDnaute Barbatruc

• 7 Janvier 2012

• #2

Re : formule avec fichier source en variable

Bonjour guigui76

A tester:

Code:

Sub Ouvre_le_dernier_xls()
Set wk = ThisWorkbook
Dim Chemin As String
Chemin = "C:\Users\jeux\Desktop"
'Chemin = ThisWorkbook.Path
y = DernierFichierCreer(Chemin)
If y <> "" Then
Z = Chemin & "\" & y
Workbooks.Open Z
wk.Activate
Range("G12").FormulaR1C1 = "='[" & y & "]Feuil1'!R4C2"
End If
End Sub

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 7 Janvier 2012

• #3

Re : formule avec fichier source en variable

Ok merci je vais testé ce soir au travail.
Je t'informerai demain apres midi

Guigui

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 8 Janvier 2012

• #4

Re : formule avec fichier source en variable

Est on obligé d'ouvrir le fichier source?
Si oui l'ouverture peut ralentir le traitement.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Janvier 2012

• #5

Re : formule avec fichier source en variable

Re

Tu peux tester en mettant en commentaire la ligne
Workbooks.Open Z
J'ai prevu l'ouverture en me referant au libelle de la macro !!!

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 8 Janvier 2012

• #6

Re : formule avec fichier source en variable

Ok, je te remercie cela correspond parfaitement à mes souhait.
Merci pour tous.
Cordialement

Guigui76

 

Vote positif 0 Vote négatif