Changement du fichier reference macro

Efgé

XLDnaute Barbatruc

• 28 Avril 2010

• #2

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

 

Vote positif 0 Vote négatif

M

michaelangot@msn.com

Guest

• 28 Avril 2010

• #3

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Avril 2010

• #4

Re : Changement du fichier reference macro

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

 

Vote positif 0 Vote négatif

M

michaelangot@msn.com

Guest

• 28 Avril 2010

• #5

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 🙂

 

Vote positif 0 Vote négatif

M

michaelangot@msn.com

Guest

• 28 Avril 2010

• #6

Re : Changement du fichier reference macro

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Avril 2010

• #7

Re : Changement du fichier reference macro

Bonjour,

essaye ainsi :

Code:

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 :

Code:

& ".xls"

bon après midi
@+

 

Vote positif 0 Vote négatif

M

michaelangot@msn.com

Guest

• 28 Avril 2010

• #8

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Avril 2010

• #9

Re : Changement du fichier reference macro

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

Code:

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

 

Vote positif 0 Vote négatif

M

michaelangot@msn.com

Guest

• 28 Avril 2010

• #10

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🙂

 

Vote positif 0 Vote négatif

M

michaelangot@msn.com

Guest

• 28 Avril 2010

• #11

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

 

Pièces jointes

• Refinery Stock 2364.zip

  18.1 KB · Affichages: 37

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Avril 2010

• #12

Re : Changement du fichier reference macro

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

Code:

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

 

Vote positif 0 Vote négatif

M

michaelangot@msn.com

Guest

• 28 Avril 2010

• #13

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...😡

 

Vote positif 0 Vote négatif

M

michaelangot@msn.com

Guest

• 28 Avril 2010

• #14

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 ?

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Avril 2010

• #15

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif