Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ecriture entre classeurs avec choix de dates

Ecriture entre classeurs avec choix de dates

8 réponses
Avatar
philippe
Bonjour

j'ai un pb que je vous soumet car je ne sais comment l'aborder.
j'ai une feuille qui permet des saisies chaque jour (cad elle est effacée
chaque jour) et elle contient la date AUJOURD'HUI().
je voudrais reporter le contenu de certaines de ses cellules dans un
classeur qui comporte une feuille par mois (JANVIER,FEVRIER..) et une ligne
par jour (jeu 02-mars) .
En résumé il faut aller mettre les données du jour dans la bonne feuille
MOIS et jour
Merci si vous avez des solutions
Cordialement
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lSteph
Bonjour Philippe,

Oui, tu devrais pouvoir:
A-Repèrer les données à prélever de ta feuille quotidienne
B- Hyp.1- manuellement:
les mettre dans une ligne de synthèse tel qu'elle doit aller dans ta feuille
du mois
et faire un copier coller Spécial Valeur.

B- Hyp2- directement par macro
pour cela il faut connaître ce qu'évoqué en A (adresses des cellules)
et la destination nom: chemin fichier feuille .
(pour créer un lien vers un exemple http://cjoint.com )

Cordialement.

'lSteph






"philippe" a écrit dans le message de news:
exlKd$
Bonjour

j'ai un pb que je vous soumet car je ne sais comment l'aborder.
j'ai une feuille qui permet des saisies chaque jour (cad elle est effacée
chaque jour) et elle contient la date AUJOURD'HUI().
je voudrais reporter le contenu de certaines de ses cellules dans un
classeur qui comporte une feuille par mois (JANVIER,FEVRIER..) et une
ligne par jour (jeu 02-mars) .
En résumé il faut aller mettre les données du jour dans la bonne feuille
MOIS et jour
Merci si vous avez des solutions
Cordialement



Avatar
philippe
Bonjour Steph
je te remercie pour tes solutions et effectivement la methode manuelle
parait maintenant simple mais bien sur ma préférence irait à la méthode par
macro mais la je ne sais pas faire car il faut mettre l'info dans la bonne
feuille et à la bonne date
1er fichier ou je prends les infos http://cjoint.com/?ddxEZrGmOA
fichier ou je dois transferer les infos http://cjoint.com/?ddxFNpzVj4
Merci si vous pouvez m'aider
Cordialement


"lSteph" a écrit dans le message de news:
%
Bonjour Philippe,

Oui, tu devrais pouvoir:
A-Repèrer les données à prélever de ta feuille quotidienne
B- Hyp.1- manuellement:
les mettre dans une ligne de synthèse tel qu'elle doit aller dans ta
feuille du mois
et faire un copier coller Spécial Valeur.

B- Hyp2- directement par macro
pour cela il faut connaître ce qu'évoqué en A (adresses des cellules)
et la destination nom: chemin fichier feuille .
(pour créer un lien vers un exemple http://cjoint.com )

Cordialement.

'lSteph






"philippe" a écrit dans le message de news:
exlKd$
Bonjour

j'ai un pb que je vous soumet car je ne sais comment l'aborder.
j'ai une feuille qui permet des saisies chaque jour (cad elle est effacée
chaque jour) et elle contient la date AUJOURD'HUI().
je voudrais reporter le contenu de certaines de ses cellules dans un
classeur qui comporte une feuille par mois (JANVIER,FEVRIER..) et une
ligne par jour (jeu 02-mars) .
En résumé il faut aller mettre les données du jour dans la bonne feuille
MOIS et jour
Merci si vous avez des solutions
Cordialement







Avatar
lSteph
Bonjour Philippe,
Ok! je regarde.
A bientôt.

lSteph

"philippe" a écrit dans le message de news:

Bonjour Steph
je te remercie pour tes solutions et effectivement la methode manuelle
parait maintenant simple mais bien sur ma préférence irait à la méthode
par macro mais la je ne sais pas faire car il faut mettre l'info dans la
bonne feuille et à la bonne date
1er fichier ou je prends les infos http://cjoint.com/?ddxEZrGmOA
fichier ou je dois transferer les infos http://cjoint.com/?ddxFNpzVj4
Merci si vous pouvez m'aider
Cordialement


"lSteph" a écrit dans le message de news:
%
Bonjour Philippe,

Oui, tu devrais pouvoir:
A-Repèrer les données à prélever de ta feuille quotidienne
B- Hyp.1- manuellement:
les mettre dans une ligne de synthèse tel qu'elle doit aller dans ta
feuille du mois
et faire un copier coller Spécial Valeur.

B- Hyp2- directement par macro
pour cela il faut connaître ce qu'évoqué en A (adresses des cellules)
et la destination nom: chemin fichier feuille .
(pour créer un lien vers un exemple http://cjoint.com )

Cordialement.

'lSteph






"philippe" a écrit dans le message de news:
exlKd$
Bonjour

j'ai un pb que je vous soumet car je ne sais comment l'aborder.
j'ai une feuille qui permet des saisies chaque jour (cad elle est
effacée chaque jour) et elle contient la date AUJOURD'HUI().
je voudrais reporter le contenu de certaines de ses cellules dans un
classeur qui comporte une feuille par mois (JANVIER,FEVRIER..) et une
ligne par jour (jeu 02-mars) .
En résumé il faut aller mettre les données du jour dans la bonne feuille
MOIS et jour
Merci si vous avez des solutions
Cordialement











Avatar
Ardus Petus
La macro est dans le classeur de saisie:
http://cjoint.com/?delDLAaZ7K

Cordialement,
--
AP


"---------------------------------------------------------------------------
-----------------------------------
Const destWB As String = "118_ed02.xls"
Const destFirstRow = 5 'Première ligne de données sur le classeur de
destination

Sub Archive()
Dim destWS As Worksheet
Dim src As Range
Dim dest As Range
Dim mois As Byte
Dim jour As Byte
'Détermination de la source
ThisWorkbook.Activate
Set src = ThisWorkbook.Worksheets("Solde").Range("a35:o35")
' Détermination du classeur de destination
With src.Item(1)
mois = Month(.Value)
jour = Day(.Value)
End With
If IsNull(Workbooks(destWB)) Then
Workbooks.Open (destWB)
End If
Set destWS = Workbooks(destWB).Worksheets(mois)
'Détermination de la ligne de destination
Set dest = destWS.Cells(destFirstRow + jour - 1, "A").Resize(1,
src.Columns.Count)
'Copie des données
dest.Value = src.Value
End Sub
----------------------------------------------------------------------------
--------------------

"philippe" a écrit dans le message de
news:
Bonjour Steph
je te remercie pour tes solutions et effectivement la methode manuelle
parait maintenant simple mais bien sur ma préférence irait à la méthode
par

macro mais la je ne sais pas faire car il faut mettre l'info dans la bonne
feuille et à la bonne date
1er fichier ou je prends les infos http://cjoint.com/?ddxEZrGmOA
fichier ou je dois transferer les infos http://cjoint.com/?ddxFNpzVj4
Merci si vous pouvez m'aider
Cordialement



Avatar
lSteph
ReBonjour,
[Point annexe, au lieu des #/Div en blanc =si(d5="";"";e5/d5]
Attention lis bien ces quelques préalables:
Basé sur ta ligne de synthèse (ligne35) à mon avis tu n'as pas terminé d'y
mettre les formules, mais j'ai laissé tel que !
L'exemple suppose que ton récap se situe dans le même répertoire que la
feuille quotidienne.
Que le nom des feuilles est bien écrit ainsi.
(C'est adaptable dans le code de la feuille où j'ai placé le bouton)
J'ai donc zippé un rep avec les deux et j'ai testé sous 2003.
http://cjoint.com/?demUJc0i3d
Si le principe te convient ou moyennant quelques adaptation , je finalise.

''****
Private Sub CommandButton1_Click()
Dim fnom As String, ladate As Date, testOk As Boolean, i As Byte

fnom = InputBox("Nom du classeur:", " Inscription au récapitulatif ", _
"Recap_118ed02.xls")
ladate = [a35]
ChDir ThisWorkbook.Path
On Error Resume Next
Workbooks.Open (fnom)

If ActiveWorkbook.Name <> fnom Then MsgBox ("NomChemin classeur non
valide"): Exit Sub
Sheets(UCase(Format(ladate, "mmmm"))).Activate
On Error GoTo 0
If ActiveSheet.Name <> UCase(Format(ladate, "mmmm")) Then
MsgBox "Feuille mois non trouvée": Exit Sub
Else
For Each c In ActiveSheet.[a5:a35].Cells
If c = ladate Then
For i = 1 To 14
c.Offset(0, i) = ThisWorkbook.Sheets("Solde").Cells(35,
i + 1)
Next
testOk = True: Exit For
Else
testOk = False
End If
Next
If Not testOk Then MsgBox "date non trouvée"
End If

End Sub
''****
'lSteph


"philippe" a écrit dans le message de news:

Bonjour Steph
je te remercie pour tes solutions et effectivement la methode manuelle
parait maintenant simple mais bien sur ma préférence irait à la méthode
par macro mais la je ne sais pas faire car il faut mettre l'info dans la
bonne feuille et à la bonne date
1er fichier ou je prends les infos http://cjoint.com/?ddxEZrGmOA
fichier ou je dois transferer les infos http://cjoint.com/?ddxFNpzVj4
Merci si vous pouvez m'aider
Cordialement


"lSteph" a écrit dans le message de news:
%
Bonjour Philippe,

Oui, tu devrais pouvoir:
A-Repèrer les données à prélever de ta feuille quotidienne
B- Hyp.1- manuellement:
les mettre dans une ligne de synthèse tel qu'elle doit aller dans ta
feuille du mois
et faire un copier coller Spécial Valeur.

B- Hyp2- directement par macro
pour cela il faut connaître ce qu'évoqué en A (adresses des cellules)
et la destination nom: chemin fichier feuille .
(pour créer un lien vers un exemple http://cjoint.com )

Cordialement.

'lSteph






"philippe" a écrit dans le message de news:
exlKd$
Bonjour

j'ai un pb que je vous soumet car je ne sais comment l'aborder.
j'ai une feuille qui permet des saisies chaque jour (cad elle est
effacée chaque jour) et elle contient la date AUJOURD'HUI().
je voudrais reporter le contenu de certaines de ses cellules dans un
classeur qui comporte une feuille par mois (JANVIER,FEVRIER..) et une
ligne par jour (jeu 02-mars) .
En résumé il faut aller mettre les données du jour dans la bonne feuille
MOIS et jour
Merci si vous avez des solutions
Cordialement











Avatar
lSteph
Finalement il reste aussi une petite subtilité à règler:
...cela m'avait échappé
puisque tu passes par le nom de feuille cela ne va pas en majuscule à cause
des accentués
février...août décembre
avec la certitude d'avoir toujours les 12 feuilles uniquement et
consécutives Sheets(1) ...à 12
irait bien
mais sinon voici rectifié le code et le mois doit rester écrit en minuscule
dans les onglets de récap.

http://cjoint.com/?den4rID8Iy


"lSteph" a écrit dans le message de news:
Ogx%
ReBonjour,
[Point annexe, au lieu des #/Div en blanc =si(d5="";"";e5/d5]
Attention lis bien ces quelques préalables:
Basé sur ta ligne de synthèse (ligne35) à mon avis tu n'as pas terminé d'y
mettre les formules, mais j'ai laissé tel que !
L'exemple suppose que ton récap se situe dans le même répertoire que la
feuille quotidienne.
Que le nom des feuilles est bien écrit ainsi.
(C'est adaptable dans le code de la feuille où j'ai placé le bouton)
J'ai donc zippé un rep avec les deux et j'ai testé sous 2003.
http://cjoint.com/?demUJc0i3d
Si le principe te convient ou moyennant quelques adaptation , je finalise.

''****
Private Sub CommandButton1_Click()
Dim fnom As String, ladate As Date, testOk As Boolean, i As Byte

fnom = InputBox("Nom du classeur:", " Inscription au récapitulatif ", _
"Recap_118ed02.xls")
ladate = [a35]
ChDir ThisWorkbook.Path
On Error Resume Next
Workbooks.Open (fnom)

If ActiveWorkbook.Name <> fnom Then MsgBox ("NomChemin classeur non
valide"): Exit Sub
Sheets(UCase(Format(ladate, "mmmm"))).Activate
On Error GoTo 0
If ActiveSheet.Name <> UCase(Format(ladate, "mmmm")) Then
MsgBox "Feuille mois non trouvée": Exit Sub
Else
For Each c In ActiveSheet.[a5:a35].Cells
If c = ladate Then
For i = 1 To 14
c.Offset(0, i) = ThisWorkbook.Sheets("Solde").Cells(35,
i + 1)
Next
testOk = True: Exit For
Else
testOk = False
End If
Next
If Not testOk Then MsgBox "date non trouvée"
End If

End Sub
''****
'lSteph


"philippe" a écrit dans le message de news:

Bonjour Steph
je te remercie pour tes solutions et effectivement la methode manuelle
parait maintenant simple mais bien sur ma préférence irait à la méthode
par macro mais la je ne sais pas faire car il faut mettre l'info dans la
bonne feuille et à la bonne date
1er fichier ou je prends les infos http://cjoint.com/?ddxEZrGmOA
fichier ou je dois transferer les infos http://cjoint.com/?ddxFNpzVj4
Merci si vous pouvez m'aider
Cordialement


"lSteph" a écrit dans le message de news:
%
Bonjour Philippe,

Oui, tu devrais pouvoir:
A-Repèrer les données à prélever de ta feuille quotidienne
B- Hyp.1- manuellement:
les mettre dans une ligne de synthèse tel qu'elle doit aller dans ta
feuille du mois
et faire un copier coller Spécial Valeur.

B- Hyp2- directement par macro
pour cela il faut connaître ce qu'évoqué en A (adresses des cellules)
et la destination nom: chemin fichier feuille .
(pour créer un lien vers un exemple http://cjoint.com )

Cordialement.

'lSteph






"philippe" a écrit dans le message de news:
exlKd$
Bonjour

j'ai un pb que je vous soumet car je ne sais comment l'aborder.
j'ai une feuille qui permet des saisies chaque jour (cad elle est
effacée chaque jour) et elle contient la date AUJOURD'HUI().
je voudrais reporter le contenu de certaines de ses cellules dans un
classeur qui comporte une feuille par mois (JANVIER,FEVRIER..) et une
ligne par jour (jeu 02-mars) .
En résumé il faut aller mettre les données du jour dans la bonne
feuille MOIS et jour
Merci si vous avez des solutions
Cordialement















Avatar
philippe
Bonjour
Je ne sais comment vous remercier mais le résultat est au-dela de mes
espérences. Et la réactivité CHAPEAU !!!
Cordialement
Philippe

"lSteph" a écrit dans le message de news:

Finalement il reste aussi une petite subtilité à règler:
...cela m'avait échappé
puisque tu passes par le nom de feuille cela ne va pas en majuscule à
cause des accentués
février...août décembre
avec la certitude d'avoir toujours les 12 feuilles uniquement et
consécutives Sheets(1) ...à 12
irait bien
mais sinon voici rectifié le code et le mois doit rester écrit en
minuscule dans les onglets de récap.

http://cjoint.com/?den4rID8Iy


"lSteph" a écrit dans le message de news:
Ogx%
ReBonjour,
[Point annexe, au lieu des #/Div en blanc =si(d5="";"";e5/d5]
Attention lis bien ces quelques préalables:
Basé sur ta ligne de synthèse (ligne35) à mon avis tu n'as pas terminé
d'y mettre les formules, mais j'ai laissé tel que !
L'exemple suppose que ton récap se situe dans le même répertoire que la
feuille quotidienne.
Que le nom des feuilles est bien écrit ainsi.
(C'est adaptable dans le code de la feuille où j'ai placé le bouton)
J'ai donc zippé un rep avec les deux et j'ai testé sous 2003.
http://cjoint.com/?demUJc0i3d
Si le principe te convient ou moyennant quelques adaptation , je
finalise.

''****
Private Sub CommandButton1_Click()
Dim fnom As String, ladate As Date, testOk As Boolean, i As Byte

fnom = InputBox("Nom du classeur:", " Inscription au récapitulatif ",
_
"Recap_118ed02.xls")
ladate = [a35]
ChDir ThisWorkbook.Path
On Error Resume Next
Workbooks.Open (fnom)

If ActiveWorkbook.Name <> fnom Then MsgBox ("NomChemin classeur non
valide"): Exit Sub
Sheets(UCase(Format(ladate, "mmmm"))).Activate
On Error GoTo 0
If ActiveSheet.Name <> UCase(Format(ladate, "mmmm")) Then
MsgBox "Feuille mois non trouvée": Exit Sub
Else
For Each c In ActiveSheet.[a5:a35].Cells
If c = ladate Then
For i = 1 To 14
c.Offset(0, i) =
ThisWorkbook.Sheets("Solde").Cells(35, i + 1)
Next
testOk = True: Exit For
Else
testOk = False
End If
Next
If Not testOk Then MsgBox "date non trouvée"
End If

End Sub
''****
'lSteph


"philippe" a écrit dans le message de news:

Bonjour Steph
je te remercie pour tes solutions et effectivement la methode manuelle
parait maintenant simple mais bien sur ma préférence irait à la méthode
par macro mais la je ne sais pas faire car il faut mettre l'info dans la
bonne feuille et à la bonne date
1er fichier ou je prends les infos http://cjoint.com/?ddxEZrGmOA
fichier ou je dois transferer les infos http://cjoint.com/?ddxFNpzVj4
Merci si vous pouvez m'aider
Cordialement


"lSteph" a écrit dans le message de news:
%
Bonjour Philippe,

Oui, tu devrais pouvoir:
A-Repèrer les données à prélever de ta feuille quotidienne
B- Hyp.1- manuellement:
les mettre dans une ligne de synthèse tel qu'elle doit aller dans ta
feuille du mois
et faire un copier coller Spécial Valeur.

B- Hyp2- directement par macro
pour cela il faut connaître ce qu'évoqué en A (adresses des cellules)
et la destination nom: chemin fichier feuille .
(pour créer un lien vers un exemple http://cjoint.com )

Cordialement.

'lSteph






"philippe" a écrit dans le message de news:
exlKd$
Bonjour

j'ai un pb que je vous soumet car je ne sais comment l'aborder.
j'ai une feuille qui permet des saisies chaque jour (cad elle est
effacée chaque jour) et elle contient la date AUJOURD'HUI().
je voudrais reporter le contenu de certaines de ses cellules dans un
classeur qui comporte une feuille par mois (JANVIER,FEVRIER..) et une
ligne par jour (jeu 02-mars) .
En résumé il faut aller mettre les données du jour dans la bonne
feuille MOIS et jour
Merci si vous avez des solutions
Cordialement



















Avatar
lSteph
...cjoint c'est bien mais j'ai oublié de redonner le code proposé:

Private Sub CommandButton1_Click()
Dim fnom As String, ladate As Date, testOk As Boolean, i As Byte

fnom = InputBox("Nom du classeur:", " Inscription au récapitulatif ", _
"Recap_118ed02.xls")
ladate = [a35]
ChDir ThisWorkbook.Path
Application.ScreenUpdating = False
On Error Resume Next
Workbooks.Open (fnom)

If ActiveWorkbook.Name <> fnom Then MsgBox ("NomChemin classeur non
valide"): Exit Sub
Sheets(Format(ladate, "mmmm")).Activate
On Error GoTo 0
If ActiveSheet.Name <> Format(ladate, "mmmm") Then
MsgBox "Feuille mois non trouvée": Exit Sub
Else
For Each c In ActiveSheet.[a5:a35].Cells
If c = ladate Then
For i = 1 To 14
c.Offset(0, i) = ThisWorkbook.Sheets("Solde").Cells(35,
i + 1)
Next
testOk = True: Exit For
Else
testOk = False
End If
Next
If Not testOk Then MsgBox "date non trouvée"
End If
Application.ScreenUpdating = True
End Sub

"philippe" a écrit dans le message de news:
exlKd$
Bonjour

j'ai un pb que je vous soumet car je ne sais comment l'aborder.
j'ai une feuille qui permet des saisies chaque jour (cad elle est effacée
chaque jour) et elle contient la date AUJOURD'HUI().
je voudrais reporter le contenu de certaines de ses cellules dans un
classeur qui comporte une feuille par mois (JANVIER,FEVRIER..) et une
ligne par jour (jeu 02-mars) .
En résumé il faut aller mettre les données du jour dans la bonne feuille
MOIS et jour
Merci si vous avez des solutions
Cordialement