écraser ligne déjà existente par la nouvelle copiée macro xls

Merci Le Pingou. Cependant j'aimerai un copié des lignes ci dessus en plus vers un autre classeur qui sera fermée ou ouvert.

Sinon première partie résolu. Un grand a merci!!!!

le premier classeur s'appelle FDT, la feuille HISTORIC et se trouve sur mon bureau. Le second se trouve dans dans C:\FDT\SALARIE et se nomme MICKAEL CASTAIGNEDE 02_2015 et la feuille egalement HISTORIC.
Ce que je veux c'est lors de l'enregistrement des données dans MC 02_2015, je veux que ces mêmes données s'enregistre dans FDT en même temps

Bonjour dsl....

Oui elles sont identiques.....

Re Bonjour,

En faite les deux classeur ont la même structure. Le maitre est FTD. Dedans jy rentre des données que je sauvegarde avec le nom du technicien et le mois. Cependant les infos sont rentrees semaine par semaine d'ou la necessite de faire une sauvegarde dans les deux documents. En effet FTD aura les donnée de tout les techniciens si modification à la semaine.

Si vous voulez je peux vous envoyer mon classeur FDT et le second?

Bonsoir,

Ci joint le lien https://www.cjoint.com/c/EBqxYcK9pEZ

La macro b permet de faire la sauvegarde entre les feuilles FTD et HISTORIC des deux classeur.

Enfin une sauvegarde des donnée à la semaine est il possible à regarder?

Vraiment merci pour votre aide, c'est tellement rare de rencontrer des gens serviable

https://www.cjoint.com/c/EBqx2Aix0pc

Merci, proposition demain
Bonne nuit.
Salutations.
Le Pingou

Merci à vous aussi.

Bonjour,

Très bien j'y veillerai

Bonsoir as tu eu le temps de regarder?

Bonsoir,

As tu réussi à t'en sortir?

Pour voir les feuille il faut appuyer sur les macro correspondante.

Par rapport au macro quasi vide moi je ne comprends pas chez moi elle existe.

Souhaitez vous une précision supplémentaires?

Bonjour,

Merci pour ce fichier. Cependant ce que je veux dans la mesure du possible c'est un historic avec les numéro de semaine avec le mëme type de tableau que celui dans la feuille historic. Une sorte de recap hebdomaire genre en S6 il y'a 4 jour travaillé 2GD 1PR et ceux pour chaque technicien.

Cdt,

Re,

Voici ce que je souhaite dans la feuille HISTORIC_SEMAINE https://www.cjoint.com/c/EBsszogI8qi

Beaucoup de module c'et vrai on était créé par rapport au tests que j'effectué.

J'espère que ce nouveau fichier vous aidera.

EN attente de vous lire.

BONSOIR,

Merci infiniment pour ce petit bijoux que tu m'as fait. ce dernier fonctionne à la perfection!!!!!!

Une dernière chose, par technicien va se créer une FDT. Ces FDT sont sauvegardées dans C:\FDT\SALARIE\dossier du tech\fichier du tech.xlsm.
Si je viens modifier des valeurs sur ce fichier, je veux pouvoir les sauvegarder sur la FDT source...

Est ce possible?

Cdt,

J'ai ré vérifié à l'instant. Au première abord pas de souci.

Vous avez pu voir pour le message d'avant?

Bonjour,

Ton professionnalisme est très apprécié.

Dans la correction pourrais tu y incorporer SI CELA EST POSSIBLE la condition que si une modification s'effectue sur un classeur nommé avec le nom de n'importe quelle technicien celle ci soit prise en compte dans le classeur source FDT?

EN TE REMERCIANT.


CDT,

Bonjour,
C'est non dans ce concept.
Salutations.
Le Pingou

Bonjour et merci pour cette modification.

Pour la condition peux ton la traduite sous une forme de macro supplémentaire?

De plus serait faire une macro permettant d'une part d'ouvrir une feuille depuis m'importe qu'elle autre feuille. Et enfin une macro supprimant les valeur d'une ligne de n'importe quelle feuille?

En attente de te lire.

Cdt,

Ce que je voulais dire c'est créé une macro permettant de sauvegarder les donnée modifié non pas sur FDT technicien comme il se doit v mais vers la FDT pour avoir un fichier à jour.

Lors de l'exécution de la macro sauvegarde dans une FDT TECH à la fin demander avant de quitter d'exécuter cette macro.

Cdt

Bonjour,

Partons d'une feuille FTD vièrge. A la fin de la première semaine, une création d'une FDT par technicien est faite avec l'enregistrement des données de facon hebdomadaire et mensuel. Lors de la deuxième semaine la FDT est remplie via celle déjà créé et non de la FDT source. le HIc c'est que l'historique générale se trouve dans la FDT source, d'où l'importance de créer une macro me permettant de sauvegarder les données modifiées sur les FDT techniciens vers la FDT source.
Sinon tout le reste est ok.

Cdt,

Bonjour,

Suite à ta réponse d'hier, j'ai fait une petit modification sur la macro et ceci m'indique toujours une erreur.

Voila ce que j'ai fait:

Sub Renseigner_HISTORIC_global_semaine1()
Dim shso As Worksheets
Dim shcigl
Dim c As Integer, deli As Integer, li As Integer, liok As Integer
Dim chemin$, Salarie$, Fichier$
chemin = "C:\FDT\SALARIE\"
client = Sheets("FTD").Range("A2").Value
Fichier = client & " " & Format(Sheets("FTD").Range("F2"), "MM_YYYY")
Const coefGr = 84: Const coefPR = 18

Workbooks.Open FileName:=("C:\FDT\FDT.xlsm")

Set shso = "chemin" & "Fichier" & Sheets("FTD")
shcigl = Workbooks("FDT").Sheets("HISTORIC")
If shso.Range("H40") = "0" Then
MsgBox "Pas de code projet, donc de jour(s) travaillé(s)/de Client et de projet!", vbCritical: Exit Sub
ElseIf shso.Range("A2") = "" Then
MsgBox "Aucun Nom de Salarié en Cellule A2!", vbCritical: Exit Sub
End If
' *** copier les valeurs ou mise à jour des valeurs existantes
With shcigl
deli = .Cells(Rows.Count, 1).End(xlUp).Row
If deli > 5 Then
For c = 6 To deli
If (.Range("A" & c) = shso.Range("A2").Value And .Range("B" & c) = shso.Range("F2").Value) Then
liok = c
Exit For
End If
liok = c + 1
Next c
Else
liok = deli + 1
End If
.Range("A" & liok) = shso.Range("A2").Value
.Range("B" & liok) = shso.Range("F2").Value
.Range("C" & liok) = shso.Range("E40").Value
.Range("D" & liok) = shso.Range("H40").Value
.Range("E" & liok) = shso.Range("I40").Value
.Range("F" & liok) = shso.Range("J40").Value
.Range("G" & liok) = shso.Range("K40").Value
.Range("H" & liok) = (shso.Range("J40").Value * coefGr) + (shso.Range("K40").Value * coefPR)
.Range("I" & liok) = .Range("C" & liok) + .Range("H" & liok)
End With
Renseigner_HISTORIC_semaine shso, coefGr, coefPR
Set shso = Nothing
Set shcigl = Nothing
End Sub

Sub Renseigner_HISTORIC_semaine(shso, coefGr, coefPR)
Dim shcism
Dim tbl(1 To 10) As Variant, ccu As Variant
Dim c As Integer, deli As Integer, li As Integer, liok As Integer
Dim smc As Integer, smde As Integer, sm As Integer
Dim fism As Boolean

shcism = worbooks("FDT").Sheets("HISTORIC_SEMAINE")
' *** cumuler et copier les valeurs ou mise à jour des valeurs existantes
smde = Application.Min(shso.Range("c9:c39"))
ccu = Array(0, 5, 8, 9, 10, 11)
smc = smde: fism = False
For li = 9 To 39
If shso.Cells(li + 1, 3).Value <> smc Then fism = True
For c = 1 To 5
tbl(c + 3) = tbl(c + 3) + shso.Cells(li, ccu(c))
Next c
tbl(9) = (tbl(7) * coefGr) + (tbl(8) * coefPR)
tbl(10) = tbl(4) + tbl(9)
If fism Then
If tbl(5) <> 0 Then
tbl(1) = shso.Range("A2").Value
tbl(2) = shso.Range("F2").Value
tbl(3) = smc
With shcism
deli = .Cells(Rows.Count, 1).End(xlUp).Row
If deli > 5 Then
For c = 6 To deli
If (.Range("A" & c) = tbl(1) And .Range("B" & c) = tbl(2) And .Range("C" & c) = tbl(3)) Then
liok = c
Exit For
End If
liok = c + 1
Next c
Else
liok = deli + 1
End If
shcism.Range("A" & liok).Resize(1, UBound(tbl)) = tbl
End With
End If
Erase tbl
smc = smc + 1: fism = False
End If
Next li
MsgBox " Les 2 feuilles [HISTORIQUE MENSUEL/SEMAINE] sont à jour!"
Set shcism = Nothing
End Sub

Bonjour,

Oui la procédure a été mise dans le classeur technicien.

Vous trouverez en pièce jointe les deux imprimes avec le message d'erreur et la ligne qui pose problème.

https://www.cjoint.com/c/EBvsi0qPMzU

Cdt,

Bonjour,

J'ai suivi votre facon de faire. Problème: Bon déjà j'ai enlevé mes variables Fichier, client et chemin car elle ne me servait plus à rien. Cependant quand j'éxécute la macro il me dit que la ligne Set shso = sheets("FTD") est incompatibility et la surligne en jaune.

Sub Renseigner_HISTORIC_global_semaine1()
Dim shso As Worksheets
Dim shcigl As Worksheets
Dim c As Integer, deli As Integer, li As Integer, liok As Integer
Const coefGr = 84: Const coefPR = 18

Set shso = Sheets("FTD")
Set shcigl = Workbooks("FDT").Sheets("HISTORIC")
If shso.Range("H40") = "0" Then
MsgBox "Pas de code projet, donc de jour(s) travaillé(s)/de Client et de projet!", vbCritical: Exit Sub
ElseIf shso.Range("A2") = "" Then
MsgBox "Aucun Nom de Salarié en Cellule A2!", vbCritical: Exit Sub
End If
' *** copier les valeurs ou mise à jour des valeurs existantes
With shcigl
deli = .Cells(Rows.Count, 1).End(xlUp).Row
If deli > 5 Then
For c = 6 To deli
If (.Range("A" & c) = shso.Range("A2").Value And .Range("B" & c) = shso.Range("F2").Value) Then
liok = c
Exit For
End If
liok = c + 1
Next c
Else
liok = deli + 1
End If
.Range("A" & liok) = shso.Range("A2").Value
.Range("B" & liok) = shso.Range("F2").Value
.Range("C" & liok) = shso.Range("E40").Value
.Range("D" & liok) = shso.Range("H40").Value
.Range("E" & liok) = shso.Range("I40").Value
.Range("F" & liok) = shso.Range("J40").Value
.Range("G" & liok) = shso.Range("K40").Value
.Range("H" & liok) = (shso.Range("J40").Value * coefGr) + (shso.Range("K40").Value * coefPR)
.Range("I" & liok) = .Range("C" & liok) + .Range("H" & liok)
End With
Renseigner_HISTORIC_semaine shso, coefGr, coefPR
Set shso = Nothing
Set shcigl = Nothing
End Sub

Sub Renseigner_HISTORIC_semaine1(shso, coefGr, coefPR)
Dim shcism
Dim tbl(1 To 10) As Variant, ccu As Variant
Dim c As Integer, deli As Integer, li As Integer, liok As Integer
Dim smc As Integer, smde As Integer, sm As Integer
Dim fism As Boolean

Set shcism = worbooks("FDT").Sheets("HISTORIC_SEMAINE")
' *** cumuler et copier les valeurs ou mise à jour des valeurs existantes
smde = Application.Min(shso.Range("c9:c39"))
ccu = Array(0, 5, 8, 9, 10, 11)
smc = smde: fism = False
For li = 9 To 39
If shso.Cells(li + 1, 3).Value <> smc Then fism = True
For c = 1 To 5
tbl(c + 3) = tbl(c + 3) + shso.Cells(li, ccu(c))
Next c
tbl(9) = (tbl(7) * coefGr) + (tbl(8) * coefPR)
tbl(10) = tbl(4) + tbl(9)
If fism Then
If tbl(5) <> 0 Then
tbl(1) = shso.Range("A2").Value
tbl(2) = shso.Range("F2").Value
tbl(3) = smc
With shcism
deli = .Cells(Rows.Count, 1).End(xlUp).Row
If deli > 5 Then
For c = 6 To deli
If (.Range("A" & c) = tbl(1) And .Range("B" & c) = tbl(2) And .Range("C" & c) = tbl(3)) Then
liok = c
Exit For
End If
liok = c + 1
Next c
Else
liok = deli + 1
End If
shcism.Range("A" & liok).Resize(1, UBound(tbl)) = tbl
End With
End If
Erase tbl
smc = smc + 1: fism = False
End If
Next li
MsgBox " Les 2 feuilles [HISTORIQUE MENSUEL/SEMAINE] sont à jour!"
Set shcism = Nothing
End Sub