Re : aide creation petit programme...
Bonjour JC!
Bonjour Hasco!
Bonjour à tous!!
Désolé de cette nouvelles absence si longue... quoique...je suis sure que ca a du faire plaisir a quelques personnes... (
)
Alors concernant le petit bébé...
hum...
j'ai eu le temps de l'essayer ces deux derniers jours...et franchement..RIEN A DIRE!!!
HASCO et JC!!! vous etes des pros!!! je fais mes pointages très rapidement maintenant...plus que les num d'identifiant à entrer, ensuite je valide avec la date, et grace au code de Hasco, tout se répercute automatiquement sur salaire et facture!!! GENIAAAAALLLL!!!
je vous envoi des demain le fichier excel vierge afin de l'avoir sur le net..
Hasco...une derniere petite chose a te demander stp...
concernant l'archivage...
j'arrive a archiver...mais ya des moment j'ai une partie du code qui fait planter l'opération...
J'ai essayer de comprendre comment se passait toute cette programmation..et j'ai compris quelques truc...
j'ai donc essayé de changer quelques truc...genre l'archivage qui se fait sous le nom "Archivage_yyyy_mm_dd" au lieu de "Gestion_Ali_yyyy_mm"...
a un moment ca a marché..mais plus mainan...??? comprend pas...
Donc je voulais savoir si tu pouvais m'aider a faire ca par la même occasion...
SINON A PART CA... JE CROIS KON Y EST ENFIN ARRIVE!!!! GRACE AUX GENIES HASCO ET JC!!!
TRES SINCERES REMERCIEMENT A TOUS LES DEUX ET A TOUS!!!
A TRES VITE!!!!
je t'envoi le code:
Sub Archivage()
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Gestion_Ali_" & Format(Range("B1").Value, "yyyy_mm_dd") & ".xls"
Workbooks.Open Filename:=ThisWorkbook.Path & "\Gestion_Ali.xls"
ActiveWorkbook.Save
Windows("Gestion_Ali" & Format(Range("B1").Value, "yyyy_mm_dd") & ".xls").Activate
With Sheets("Salaire").Range("A1:AZ500")
.Copy
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Application.DisplayAlerts = False
End With
With Sheets("Pointage").Range("A1:AZ500")
.Copy
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Application.DisplayAlerts = False
Sheets(Array("Facture", "Data", "Données")).Delete
Range("A1").Select
Application.DisplayAlerts = True
End With
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
Workbooks.Open Filename:=ThisWorkbook.Path & "\Gestion_Ali.xls"
Sheets("Salaire").Range("J6:AN459").ClearContents
Range("B1").Select
End Sub
Sub Nettoyage()
Sheets("Salaire").Range("J6:AN459").ClearContents
End Sub