Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

[karmeliet]

Bonjour à tous,

Voilà je suis confronté à un probleme et je ne vois absolument pas comment faire.

J'ai un fichier de "statistiques" nommé Final (en xlsx) et un second fichier journalier nommé TempJour (en xls).

Je souhaite que chaque jour, la feuille de Final reprenne les données de TempJour en fonction de la date et alimente la ligne mais que celle ci reste figé.

De tel sorte que si on modifie le fichier TempJour, il ne perd pas les précédentes valeurs et conserve ce qu'il a récupérer.

Le but serait que le processus soit automatique et que je n'ai pas besoin d'intervenir sur le fichier pour que cela se fasse.

Auriez vous une idée?

Merci d'avance

 

[James007]

Re : Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

Bonjour,

Il existe tout un panel de solutions différentes ...

D'après la description de ton objectif, le plus simple semble être une macro qui ouvre ton second fichier, y stocke tes données, le sauve, puis le ferme ...

A +
🙂

 

[karmeliet]

Re : Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

J'ai bien compris qu'il fallait passer systématiquement par une macro.

Par contre comment la faire c'est la question

Merci en tout cas

 

[James007]

Re : Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

Re,

Pour chacune des étapes, plusieurs discussions identiques ont déjà eu lieu sur le Forum.

Il faut donc commencer par faire des recherches, adapter le code que tu trouveras ...

et si besoin est, il y aura toujours une personne pour t'aider à finir ton projet ...

A +
🙂

 

[karmeliet]

Re : Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

Quelqu'un pourrait me guider?

Suis pas tres doué j'avoues

Sub Macro1()
Dim i As Integer

For i = 1 To 65289
If Range("A" & i).Value = Range("MAJ!J28").Value Then
Sheets("RELEVE DES FILES").Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-7]C[8]"
Range("C" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-7]C[8]"
Range("D" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-6]C[6]"
Range("E" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-6]C[6]"
Range("F" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-5]C[4]"
Range("G" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-5]C[4]"
Range("H" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-4]C[2]"
Range("I" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-4]C[2]"
Range("J" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-3]C"
Range("K" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-3]C"
Range("L" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-2]C[-2]"
Range("M" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-2]C[-2]"
Range("N" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-1]C[-4]"
Range("O" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!R[-1]C[-4]"
Range("P" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!RC[-6]"
Range("Q" & i).Select
ActiveCell.FormulaR1C1 = "=MAJ!RC[-6]"
End If
Next i
End Sub

 

[James007]

Re : Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

Bonjour,

A priori ... pour une nouvelle question, il vaudrait mieux ouvrir un nouveau fil ...

Il semblerait que tu veuilles écrire une formule qui soit avec des références relatives ...
Le mieux est d'expliciter ton objectif et de décrire le résultat attendu ...

A +
🙂

 

[karmeliet]

Re : Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

Il s'agit toujours de la même question

çà serait plutot quelques choses qui ressemble à çà :

Sub Macro1()
'
' Macro1 Macro
'

For i = 1 To 65289
If Range("A" & i).Value = Range("[TempJour.xls]Feuil1!J28").Value Then
    ActiveCell.FormulaR1C1 = "=[TempJour.xls]Feuil1!R3C4"
    Range("C" & i).Select
    ActiveCell.FormulaR1C1 = "=[TempJour.xls]Feuil1!R4C4"
    Range("D" & i).Select
End If
End Sub

Ce qui se passe :
Je cherche dans le fichier Final colonne A la date
si la date est égale à la date dans TempJour
J'alimente la ligne A avec les valeurs des bonnes cellules de TempJour
Une fois fait, çà sauvegarde.

Le but est que le fichier Final reprenne les données chaque jour sans les effacer
de tel sorte qu'on a un historique. Sachant que le fichier TempJour est changé lui tout les jours en conséquence il faut surtout que çà reprenne les valeurs et non pas que çà fasse une liaison, j'avais fait une fonction Si qui marchait mais le probleme c'est que Tempjour étant éffacé, les valeurs sont enlevées chaque jour.

Merci beaucoup

 

[James007]

Re : Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

Bonjour,

Merci pour tes explications complémentaires ...

Ton objectif est de transposer tes données ...

Pour cela, il serait pertinent que tu modifies légèrement la structure de ton fichier Tempjour, avec, à partir de B1 tes dates ... Donnée1 en B2 ...Donnée2 en B3

Tu peux faire un test de transposition ... pour confirmer que c'est bien ton objectif.

A +
🙂

 

[JNP]

Re : Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

Bonjour le fil 🙂,
A condition d'enregistrer Final en XLSM pour conserver les macros, mettre toutes les dates dans Final (un peu farce le coup de janvier 2010 dans Final alors que la date est en février 2011 dans TempJour 😡...) et d'ouvrir TempJour avant de lancer la macro

Sub Test()
Dim I As Integer, Temp As Workbook
For Each Temp In Workbooks
If Temp.Name = "TempJour.xls" Then
With Temp.ActiveSheet
I = Sheets("Feuil1").Columns(1).Find(.Range("E1")).Row
Cells(I, 2) = .Cells(3, 4)
Cells(I, 3) = .Cells(4, 4)
End With
End If
Next Temp
End Sub

fonctionne 😛...
Bon dimanche 😎

 

[karmeliet]

Re : Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

Pardon pour la tite subtilité des dates j'avais oublié de corriger 😀

Sinon si je comprend la formule (et oui suis qqn qui a besoin de comprendre)

On crée un tableau temporaire
Pour tout les tableau "ouvert",
si le nom est égal à "Tempjour.xls" alors
a partir de la feuille ouverte
On recherche i (qui sera la ligne) ou la cellule de la colonne 1 est égale à la cellule E1
et on insére alors dans la cellule de "ligne i" et de colonne "2" la cellule de ligne 3 et colonne 4

Est ce que c'est bien çà ?

Si on veut le faire avec des noms de feuilles c possible en remplaçant par qqchose du type :

Sub Test()
Dim I As Integer, Temp As Sheet
For Each Temp In Sheet
If Temp.Name = "TempJour" Then
I = Sheets("TempJour").Columns(1).Find(.Range("E1")).Row
Cells(I, 2) = .Cells(3, 4)
Cells(I, 3) = .Cells(4, 4)
End If
Next Temp
End Sub

ou je me plante?

En tout cas, grand merci à vous

 

[JNP]

Re : Mettre à jour un fichier Xlsx en fonction d'un autre chaque jour

Re 🙂,

ou je me plante?

Oui et pas qu'un peu 😛...
Ma macro n'utilise pas de tableaux, elle regarde les classeurs (fichier Excel) ouverts, quand elle trouve le classeur adequat, elle copie les valeurs de ce classeur dans le classeur qui comprend la macro 😉.
Maintenant si tu veux jouer sur des feuilles, la feuille c'est Worksheet, et la collection à décrire c'est ThisWorkbook.Worksheets avec un "s".
Bon courage 😎