Changement du fichier reference macro

[michaelangot@msn.com]

Bonjour à tous,

je travaille actuellement sur une macro et j'ai un petit probleme,
ma macro copie et colle différente information dans un fichier récap, le probleme étant que les fichiers de mise a jour change de nom tous les jours.

Mon idée est de vouloir créer une cellule ou je rentrerais le nom du fichier a prendre pour que la macro s'y réfère...
Probleme le nom du fichier reste figé dans la macro...

SVP aidez moi

 

[Efgé]

Re : Changement du fichier reference macro

Bonjour michaelangot
Sans fichier exemple, difficile de répondre de façon certaine...
Peut être que ce Post pourra répondre à votre problème.
Si non donnez un exemple, il y aura surement quelqu'un pour vous répondre.
Cordialement

 

[michaelangot@msn.com]

Re : Changement du fichier reference macro

Bonjour efgé,
Merci pour ton aide précieuse mais je n'arrive pas à réutiliser les explications donnés dans le liens,
pour exemple:

Workbooks.Open Filename:= _
"C:\Documents and Settings\mangot\Desktop\Distillate Stock Forecast_18March 2010.xls" _
, UpdateLinks:=0
Sheets("FAME").Select
ActiveWindow.SmallScroll Down:=-15
Range("E14:BN20").Select
Selection.Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Sheets("MHR Data").Select

Ceci est le début de ma macro et à la place du nom de fichier j'aimerai utiliser la référence inscrite en C8 dans mon fichier.


Cordialement

 

[Efgé]

Re : Changement du fichier reference macro

Re
Sans exemple de ta part, il va être difficile d'avancer...
Cordialement

 

[michaelangot@msn.com]

Re : Changement du fichier reference macro

Re,

Je t'envoie le fichier en question:
Le probleme étant que lorsque "Distillate Stock Forecast_18March 2010.xls" apparait je voudrais avoir le nom du fichier en E5,
Merci, merci encore pour toute cette aide

 

[michaelangot@msn.com]

Re : Changement du fichier reference macro

Mince le fichier est trop gros je vais essayé de le réduire

 

[Pierrot93]

Re : Changement du fichier reference macro

Bonjour,

essaye ainsi :

Workbooks.Open Filename:= _
"C:\Documents and Settings\mangot\Desktop\" & range("C8").value

A condition que ta cellule contienne également l'extension ".xls" sinon il y a lieu de lrajouter :

& ".xls"

bon après midi
@+

 

[michaelangot@msn.com]

Re : Changement du fichier reference macro

Je ne peux pas envoyé le fichier car il est trop gros (205ko)
Je vous envoi la macro complete:

' Essai1 Macro
'Source = ("E5")

'Source = Cells(5, 5).Value

'ActiveWorkbook.UpdateLink Name:=Source, Type:=xlExcelLinks

Workbooks.Open Filename:=Cells(5, 5).Value, UpdateLinks:=0
Sheets("FAME").Select
ActiveWindow.SmallScroll Down:=-15
Range("E14:BN20").Select
Selection.Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Sheets("MHR Data").Select
ActiveWindow.SmallScroll Down:=-27
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Distillate Stock Forecast_18March 2010.xls").Activate Sheets("Bio Diesel").Select
ActiveWindow.SmallScroll Down:=-15
Range("F15:EB24").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Range("C18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=6

End Sub

Tout marche jusqu'a la partie en rouge qui devrait être la source Cells(5, 5) du début.
Toutes mes excuses.
Cordialement

 

[Efgé]

Re : Changement du fichier reference macro

Re michaelangot, Bonjour Pierrot93,
Un dernier essai (sans fichier on va tatonner pendant des heures, jours, mois.....)

Sub test()
Application.CutCopyMode = False
Workbooks.Open Filename:=Cells(5, 5).Value
[COLOR=red][B]Model = ActiveWorkbook.Name[/B][/COLOR]
Sheets("FAME").Range("E14:BN20").Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Sheets("MHR Data").Range("C8").PasteSpecial Paste:=xlPasteValues
[COLOR=red][B]Windows(Model).Sheets("Bio Diesel").Activate[/B][/COLOR]
Range("F15:EB24").Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Range("C18").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = True
End Sub

Cordialement

 

[michaelangot@msn.com]

Re : Changement du fichier reference macro

Merci je vous tiens au courant mais sinon je peux aussi vous envoyé le fichier par email. Si vous etes Ok envoyé moi un email sur ma boite ( l'adresse est mon pseudo).

En tout cas merci pour tout

 

[michaelangot@msn.com]

Re : Changement du fichier reference macro

Si vous etes encore pret a m'offrir vos services j'enfin réussi a compresser le fichier (et oui meme télécharger winzip peut etre dure en entreprise)

Cordialement

 

[Efgé]

Re : Changement du fichier reference macro

Re
Pour faire court et sans essayer d'améliorer votre code, essayez ceci:

Sub Essai()
Workbooks.Open Filename:=Cells(5, 5).Value, UpdateLinks:=0
[COLOR=red][B]Ouvert = ActiveWorkbook.Name[/B][/COLOR]
Sheets("FAME").Select
Range("E14:BN20").Select
Selection.Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Sheets("MHR Data").Select
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[COLOR=red][B]Windows(Model).Activate [/B][/COLOR]
Sheets("Bio Diesel").Select
Range("F15:EB24").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Range("C18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Cordialement

 

[michaelangot@msn.com]

Re : Changement du fichier reference macro

Mauvaise nouvelle ceci ne fonctionne pas et mon niveau en macro est trop faible pour comprendre pourquoi; l'erreur affiché est numéroté 9...

 

[michaelangot@msn.com]

Re : Changement du fichier reference macro

j'ai essayé de remplécer model par ouvert dans la deuxième ligne rouge et sa me parait marcher, est ce possible ?

 

[Efgé]

Re : Changement du fichier reference macro

Re

j'ai essayé de remplécer model par ouvert dans la deuxième ligne rouge et sa me parait marcher, est ce possible ?

Oui c'est possible
C'est moi qui me suis trompé , voulu aller trop vite dans les copier/Coller ...
Vous avez bien trouvé ma bourde.
Cordialement