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("i15
15,i16
16,i17
17").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("i19
19,i20
20,i21
21").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