J
Jean P.
Guest
Bonjour à tous
Grace a votre aide (et ce qu vous m'avez appris et que je continue a apprendre) j'ai pratiquement complétée toute mon application. Il me reste encore quelques détails à règler.
Situation:
Dans un classeur source (compilation mensuelle.xls) j'ai deux feuilles sources (modèle facture et modèle historique, le classeur contient aussi 8 autres feuilles) que j'utilise pour créer des nouvelles feuilles dans deux classeurs cilbes différents (Facturation Cartierville.xls et Historique Cartierville.xls). Avec l'aide d'une inputbox, je saisie le nom de la nouvelle feuille (il s'agit du nom d'un nouveau client et celui-ci doit être le même dans les deux classeurs cibles) et celle-ci est créer dans les deux classeurs cibles.
Problématique:
Est-ce qu'il serait possible de faire une boucle qui me demande si je veux créer d'autres nouveaux clients avant de sauvegarder et fermer les classeurs avec les nouvelles feuilles
Code:
Sub AjoutClientCartierville1()
Dim Msg As String, Title As String, Default As String
Dim MyValue As Variant
Dim WBCible1 As Workbook
Dim WBCible2 As Workbook
Dim WSSource1 As Worksheet
Dim WSSource2 As Worksheet
Set WBCible1 = Workbooks("Facturation Cartierville.xls")
Set WBCible2 = Workbooks("Historique Cartierville.xls")
Set WSSource1 = Workbooks("Compilation mensuelle.xls").Worksheets("modèle facture")
Set WSSource2 = Workbooks("Compilation mensuelle.xls").Worksheets("modèle historique")
Msg = "Quel est le nom du nouveau client ?"
Title = "AJOUT DE NOUVEAU CLIENT"
Default = ""
MyValue = InputBox("Quel est le nom du nouveau client ?", "APPELLATION DE LA FEUILLE", "")
If MyValue = "" Then Exit Sub
WSSource1.Copy after:=WBCible1.Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
ActiveWorkbook.Close SaveChanges:=True
WSSource2.Copy after:=WBCible2.Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
ActiveWorkbook.Close SaveChanges:=True
End Sub
Encore une fois merci pour tous ceux qui voudront bien vouloir me répondre.
Bonne journée
Jean P.
Grace a votre aide (et ce qu vous m'avez appris et que je continue a apprendre) j'ai pratiquement complétée toute mon application. Il me reste encore quelques détails à règler.
Situation:
Dans un classeur source (compilation mensuelle.xls) j'ai deux feuilles sources (modèle facture et modèle historique, le classeur contient aussi 8 autres feuilles) que j'utilise pour créer des nouvelles feuilles dans deux classeurs cilbes différents (Facturation Cartierville.xls et Historique Cartierville.xls). Avec l'aide d'une inputbox, je saisie le nom de la nouvelle feuille (il s'agit du nom d'un nouveau client et celui-ci doit être le même dans les deux classeurs cibles) et celle-ci est créer dans les deux classeurs cibles.
Problématique:
Est-ce qu'il serait possible de faire une boucle qui me demande si je veux créer d'autres nouveaux clients avant de sauvegarder et fermer les classeurs avec les nouvelles feuilles
Code:
Sub AjoutClientCartierville1()
Dim Msg As String, Title As String, Default As String
Dim MyValue As Variant
Dim WBCible1 As Workbook
Dim WBCible2 As Workbook
Dim WSSource1 As Worksheet
Dim WSSource2 As Worksheet
Set WBCible1 = Workbooks("Facturation Cartierville.xls")
Set WBCible2 = Workbooks("Historique Cartierville.xls")
Set WSSource1 = Workbooks("Compilation mensuelle.xls").Worksheets("modèle facture")
Set WSSource2 = Workbooks("Compilation mensuelle.xls").Worksheets("modèle historique")
Msg = "Quel est le nom du nouveau client ?"
Title = "AJOUT DE NOUVEAU CLIENT"
Default = ""
MyValue = InputBox("Quel est le nom du nouveau client ?", "APPELLATION DE LA FEUILLE", "")
If MyValue = "" Then Exit Sub
WSSource1.Copy after:=WBCible1.Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
ActiveWorkbook.Close SaveChanges:=True
WSSource2.Copy after:=WBCible2.Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
ActiveWorkbook.Close SaveChanges:=True
End Sub
Encore une fois merci pour tous ceux qui voudront bien vouloir me répondre.
Bonne journée
Jean P.