Saisie double

Le 06/02/2019 à 10:25

Bonjour a tous

j'etait parti sur " Importer données de plusieurs classeur dans un seul"

sur ce fil https://forum.excel-pratique.com/viewtopic.php?f=2&t=120157

mais cela pose des problémes au vu du nombre de classeurs

j'ai dix classeur identique avec plusieurs nom (qvt75.xlsm ; qvt77.xlsm ; qvt78.xlsm; etc...) qui peuvent etre traiter en même temps.

je cherche le moyen de remplir a la fois le classeur d'origine ET le classeur (qvt global.xlsm) en même temps en sachant que(qvt global.xlsm) est FERMER

Est t'il possible de modifier ce code afin d'effectuer cette action.

Private Sub cbValid_Click()
    Dim I%
    If cbxBD2.ListIndex = -1 Or lbxBD1.ListIndex = -1 Then
        MsgBox "Pas d'agent identifié !", vbCritical, "Erreur"
        cbxBD2.SetFocus: Exit Sub
    ElseIf TT1.ListIndex = -1 Then
        MsgBox "Aucun évènement défini !", vbCritical, "Erreur"
        TT1.SetFocus: Exit Sub
    End If '--------------------------------------
    Sheets("Synthese").Select
    ActiveSheet.Unprotect Password:="qvt2018*"
    With [LstEv]
        lni = .Rows.Count
        .Cells(lni, 1) = EvNiv.Value
        .Cells(lni, 2).Resize(, 16).Value = Worksheets("BDD").Cells(lnBD, 1) _
         .Resize(, 16).Value
        For I = 1 To 13
            If Controls("TT" & I).Value <> "" Then
                Select Case I
                    Case 2, 7, 11
                        .Cells(lni, I + 17) = CDate(Controls("TT" & I).Value)
                        Case 5
                        .Cells(lni, I + 17) = Controls("TT5").Caption
                    Case Else
                        .Cells(lni, I + 17) = Controls("TT" & I).Value
                End Select
            End If
        Next I
    End With
    cbFiche.Enabled = True
    cbValid.Enabled = False
    cbRéinit.Enabled = True
    MsgBox "Evénement Saisie", vbOKOnly + vbInformation, "INFORMATION"
    Unload UserForm1

Je suis ouvert a toutes proposition

ps:J'ai touver celade BAnzai64 Mais je n'arrive pas a l'adapter a mon code.

https://forum.excel-pratique.com/viewtopic.php?t=41934

Merci de votre aide

Le 06/02/2019 à 12:59

Re bonjour a tous

comme je n'ai pas de réponse je joint les fichiers qui me servent a tester

dans QVT GLOBAL

14qvt-global.xlsm (318.37 Ko)

il doit y avoir les données saisie dans QVT 92

12qvt-92.xlsm (322.05 Ko)

et QVT 95.