la croisée des pains
XLDnaute Occasionnel
bonjour a tous,
j'ai un ptit souci, rien de grave...
J'aimerais envoyer les données de mes tableaux dans un classeur du meme repertoire nommer Récap dans la feuille qui s'apelle Recap_année
mon code suivant marche bien sur mon classeur de saisie commande avec cette feuille qui s'apelle Recap_année mais maintenant j'aimerais enlever cette feuille et la mettre dans mon nouveau repertoire nommer Récap.
Coment je dois modifier ce code...et le top serait que celui-ci soit fermer lors de l'archivage(le classeur!!!)....
merci de votre aide
lolo
Sub Archives()
'
' Archives Macro
Jjour = Range("B1")
For Each cel In Sheets("Recap_année").Range("A:A")
If cel.Value = Jjour Then
MsgBox ("Journée déjà archivée.")
Exit Sub
End If
Next
ligmax = Sheets("Recap_année").Range("A65000").End(xlUp).Row + 1
cible = "A" & ligmax & ":A" & ligmax + 10
Sheets("Recap_année").Range("A" & ligmax & ":A" & ligmax + 10) = Jjour
Range("B3:L3,B10:L10,b11:l11").Copy
Sheets("Recap_année").Select
Range("B" & ligmax).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Calcul").Select
ligmax = Sheets("Recap_année").Range("A65000").End(xlUp).Row + 1
cible = "A" & ligmax & ":A" & ligmax + 7
Sheets("Recap_année").Range("A" & ligmax & ":A" & ligmax + 7) = Jjour
Range("i1515,i1616,i1717").Copy
Sheets("Recap_année").Select
Range("B" & ligmax).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Calcul").Select
ligmax = Sheets("Recap_année").Range("A65000").End(xlUp).Row + 1
cible = "A" & ligmax & ":A" & ligmax + 7
Sheets("Recap_année").Range("A" & ligmax & ":A" & ligmax + 7) = Jjour
Range("i1919,i2020,i2121").Copy
Sheets("Recap_année").Select
Range("B" & ligmax).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Calcul").Select
MsgBox ("Journée archivée.")
End Sub
j'ai un ptit souci, rien de grave...
J'aimerais envoyer les données de mes tableaux dans un classeur du meme repertoire nommer Récap dans la feuille qui s'apelle Recap_année
mon code suivant marche bien sur mon classeur de saisie commande avec cette feuille qui s'apelle Recap_année mais maintenant j'aimerais enlever cette feuille et la mettre dans mon nouveau repertoire nommer Récap.
Coment je dois modifier ce code...et le top serait que celui-ci soit fermer lors de l'archivage(le classeur!!!)....
merci de votre aide
lolo
Sub Archives()
'
' Archives Macro
Jjour = Range("B1")
For Each cel In Sheets("Recap_année").Range("A:A")
If cel.Value = Jjour Then
MsgBox ("Journée déjà archivée.")
Exit Sub
End If
Next
ligmax = Sheets("Recap_année").Range("A65000").End(xlUp).Row + 1
cible = "A" & ligmax & ":A" & ligmax + 10
Sheets("Recap_année").Range("A" & ligmax & ":A" & ligmax + 10) = Jjour
Range("B3:L3,B10:L10,b11:l11").Copy
Sheets("Recap_année").Select
Range("B" & ligmax).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Calcul").Select
ligmax = Sheets("Recap_année").Range("A65000").End(xlUp).Row + 1
cible = "A" & ligmax & ":A" & ligmax + 7
Sheets("Recap_année").Range("A" & ligmax & ":A" & ligmax + 7) = Jjour
Range("i1515,i1616,i1717").Copy
Sheets("Recap_année").Select
Range("B" & ligmax).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Calcul").Select
ligmax = Sheets("Recap_année").Range("A65000").End(xlUp).Row + 1
cible = "A" & ligmax & ":A" & ligmax + 7
Sheets("Recap_année").Range("A" & ligmax & ":A" & ligmax + 7) = Jjour
Range("i1919,i2020,i2121").Copy
Sheets("Recap_année").Select
Range("B" & ligmax).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Calcul").Select
MsgBox ("Journée archivée.")
End Sub
Dernière édition: