Discussion :

[Charlesll]

Bonjour,

J'aurai besoin d'aide pour automatiser une mise a jour.
Je vous explique la situation.
Tous les soirs les magasins d'une entreprise enregistre leur balance a la fin de la journee sur un nouveau dossier excel. Sous cette forme (Nom magasin_08_09_2015).
Ils enregistrent un nouveau excel tout les soirs avec juste la date du jour qui change dans leur nom.
Mon objectif serai de ramene juste la cellule C14 de leur dossier, pour chaque store a chaque fois. La n'est pas le probleme, mais ce serait comment chaque matin en arrivant, une formule automatiserai le copier coller sur la derniere cellule vide en changeant juste la date du dossier excel et comme ca, pas besoin de changer manuellement la date dans la cellule.

Cordialement,
Charles

[SfJ5Rpw8]

Bonjour,


maintenant que tu nous as donné le sujet de ton devoir ... montre nous ou tu en est ..

[pasdechances]

Bonjour,

Cash !

A et pense a montrer le code, pas le fichier.

[Charlesll]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Day2Day()
'
' Day2Day Macro
'
 
'
    Range("B5:W5").Select
    Selection.AutoFill Destination:=Range("B5:W6"), Type:=xlFillDefault
    Range("B5:W6").Select
    ActiveWindow.ScrollColumn = 1
    Range("B6").Select
    ActiveCell.FormulaR1C1 = _
        "='O:\EOD\2015\Barking\September\[Z_BARKING_EOD_2015_09_22.xlsm]Summary'!R14C3"

Voila mon code.
Je suis en la et si je veux le mettre a jour, je le fais manuellement..
Je copie, je colle sur la ligne en dessous et je change la date de chaque store ce qui me permet d'obtenir la balance de leur derniers fichier excel enregistre

Cordialement

Et je dois actualiser ca tout les matins

Et je dois le mettre a jour tout les matins grace a leur dernier fichier enregistre la veille

[pasdechances]

Arf, oublier de préciser entre balise T-T, bon je le fait pour toi du coup, mais pense y la prochaine fois.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Day2Day()
'
' Day2Day Macro
'
 
'
Range("B5:W5").Select
Selection.AutoFill Destination:=Range("B5:W6"), Type:=xlFillDefault
Range("B5:W6").Select
ActiveWindow.ScrollColumn = 1
Range("B6").Select
ActiveCell.FormulaR1C1 = _
"='O:\EOD\2015\Barking\September\[Z_BARKING_EOD_2015_09_22.xlsm]Summary'!R14C3"

voila qui est mieu, maintenant je ne suis pas sur d'avoir saisi correctement mais, ce que tu peut faire c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

thisworkbook..sheets("lafeuille").cells(i,1)=workbook("tonfichiersource").sheets("lafeuille").range("C14")

bien entendu tu dira que i = a la ligne vide.
J'ai une technique bien a boi pour les ligne vide, mais bbil en aura une meilleur(disons que la mienne est basic, la sienne c'est themaster commander )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
While cells(i,1) <> ""
    i=i+1 
wend

PS : oups trop lent tu y a pensé aux balises

[Charlesll]

Mais cela ne va pas permettre de juste changer le chiffre de la date dans le nom du dossier excel que j'importe ?
Parce qu'il me faut juste la formule pour que ce 22 dans le nom du fichier passe en 23 demain matin.
Apres il me suffit de dire de le faire a chaque fois sur la derniere ligne vide