Bonjour à tous,
Je me lance dans une nouvelle découverte dans la programmation mais rencontre quelques difficultés!!
Mon premier problème provient de mon DTPicker1 dans mon userform!(confère photo). Dans mon premier classeur pas de souci il m'affiche bien la date dans la case voulu, par contre je voudrais que cette date s'enregistre dans un autre classeur excel!(confère programmation userform)!Mon problème étant comme on le voit sur la photo2 qu'il affiche une heure absurde 12 :00 :00am et quand je change le format de la cellule il 'affiche la date :00/01/1900!!
Je comprends pourquoi ma feuille, sachant que le dtpicker est dans la programmation classeur1, affiche cette référence absurde et non la bonne date?
Le deuxième sujet consiste à ouvrir le premier classeur, il affiche un nouveau numéro dans une cellule. Ce numéro quand on a finit de répondre aux questions, on valide. Le programme fait « sauvegarde sous » le classeur porte ainsi le nom numero1.Ensuite, ce numéro est copier dans une cellule de mon classeur 2 ! Bien sûr je voudrais que ce numéro se mette à chaque fois à la ligne suivante pour transférer dans chaque ligne les informations du classeur correspondant ! Ceux-ci pour clôturer la boucle indique le numéro suivant quand on ouvre à nouveau le classeur1, et l’info se met dans la cellule appropriée et ainsi de suite !!!
Donc petit exemple : j’ouvre mon classeur 1, il affecte le numero1 dans une case, quand j'ai finit de répondre aux questions. Je peux soit sauvegarder ou quitter sans sauvegarder sur 2 bouton, donc je sauvegarde ce qui fait un enregistrer sous de mon classeur sous le nom numéro, et les infos que je désire vont se positionner dans des cellules du classeur2!Ensuite, tout se ferme et il nous imprime directement la page 1 du classeur 1!Je souhaiterai que quand j'ouvre le classeur 1,il mette un numéro en fonction des fichiers sauvegarder (dans mon exemple ci dessus), quand je ré-ouvre mon classeur1 il m'affiche la valeur2,on refais le même cycle à une exception il va devoir rajouter une ligne dans le classeur2 et positionner chaque nouvel infos dans les colonnes!!
Voilà, je joins ma programmation et 1photo de chaque classeur! En espérant avoir été le plus clair possible!
Merci d'avance à tous!!
programmation du classeur 1:
thisworkbook :
Code de l'userform avec le DTpicker(confère photo) :Code:Option Explicit Private Sub Workbook_Open() If ThisWorkbook.Name = "jcoriginal2009.xlsm" Then Application.DisplayFullScreen = True Worksheets("Feuil1").Activate ActiveWindow.DisplayWorkbookTabs = False With Application .DisplayFormulaBar = False .DisplayStatusBar = False .ShowWindowsInTaskbar = False End With Worksheets(1).ScrollArea = "A1:o52" Workbooks.Open Filename:="c:\Users\jimmy\Desktop\datatracking.xlsm" ThisWorkbook.Activate Sheets("feuil1").Select UserForm1.Show Else Application.DisplayFullScreen = True Worksheets("Feuil1").Activate ActiveWindow.DisplayWorkbookTabs = False With Application .DisplayFormulaBar = False .DisplayStatusBar = False .ShowWindowsInTaskbar = False End With Worksheets(1).ScrollArea = "A1:o52" Workbooks.Open Filename:="c:\Users\jimmy\Desktop\datatracking.xlsm" ThisWorkbook.Activate Sheets("feuil1").Select End If End Sub
Programmation de l'userform de confirmation de fin :Code:Private Sub next4_Click() If Buttonyes = True Then Unload Me Sheets("feuil1").Select Range("e10").Value = "Yes" Range("e10").Font.ColorIndex = 10 UserForm5.Show Windows("datatracking.xlsm").Activate Sheets("feuil1").Select Range("g8") = "yes" Else Beep Label7.Caption = "Choise Yes or No" End If If Buttonno = True Then If Not timeh.Value = "" Then If Not timemin.Value = "" Then If Buttonam = True Then Sheets("feuil1").Select Range("e10").Value = "No" Range("k10").Value = "Am" Range("h10") = timeh.Value Range("j10") = timemin.Value Range("f10").Value = "since:" Range("i10").Value = ":" DTPicker1.Format = dtpShortDate Range("g10") = DTPicker1.Value Range("e10").Font.ColorIndex = 3 Unload Me UserForm5.Show Windows("datatracking.xlsm").Activate Sheets("feuil1").Select Range("i8").Value = "No" Range("n8").Value = "Am" Range("k8") = timeh.Value Range("m8") = timemin.Value Range("l8").Value = ":" DTPicker1.Format = dtpShortDate Range("j8") = DTPicker1.Value Else Beep Label7.Caption = "Choise Am or PM" End If Else Beep Label7.Caption = "Choise time" End If Else Beep Label7.Caption = "Choise time" End If Else Beep Label7.Caption = "Choise Yes or No" End If If Buttonno = True Then If Not timeh.Value = "" Then If Not timemin.Value = "" Then If Buttonpm = True Then Sheets("feuil1").Select Range("e10").Value = "No" Range("k10").Value = "Pm" Range("h10") = timeh.Value Range("j10") = timemin.Value Range("f10").Value = "since:" Range("i10").Value = ":" DTPicker1.Format = dtpShortDate Range("g10") = DTPicker1.Value Range("e10").Font.ColorIndex = 3 Unload Me UserForm5.Show Windows("datatracking.xlsm").Activate Sheets("feuil1").Select Range("i8").Value = "No" Range("n8").Value = "Pm" Range("k8") = timeh.Value Range("m8") = timemin.Value Range("l8").Value = ":" DTPicker1.Format = dtpShortDate Range("j8") = DTPicker1.Value Else Beep Label7.Caption = "Choise Am or PM" End If Else Beep Label7.Caption = "Choise time" End If Else Beep Label7.Caption = "Choise time" End If Else Beep Label7.Caption = "Choise Yes or No" End If End Sub Private Sub back2_Click() Unload Me UserForm3.Show End Sub
Code:Private Sub back9_Click() Unload Me UserForm10.Show End Sub Private Sub validation_Click() Unload Me Dim Chemin$, Client$, Fichier$ Chemin = "C:\Users\jimmy\Desktop\" Client = Sheets("feuil3").Range("f1") Fichier = Sheets("feuil1").Range("k1") & ".xlsm" If Dir(Chemin & Client, 16) = "" Then MkDir Chemin & Client ActiveWorkbook.SaveAs Chemin & Client & "\" & Fichier Sheets("feuil1").PrintOut Application.Quit End Sub Private Sub Closewithoutsaving_Click() ActiveWorkbook.Saved = True Application.Quit End Sub
Images passées en pièces jointes. Merci de lire http://forums.futura-sciences.com/lo...ges-forum.html
JPL, modérateur
-----
