VBA - ajout d'un copier/coller

Bonjour à tous,

Le code VBA ci dessous, copie et colle dans le fichier "Saisie_masse_0667_SIRH.xlsx" un tableau composé de 6 colonnes.

J'aurais souhaité que simultanément la création de ce fichier, la macro puisse créer un fichier "liste_matricule_0667.txt" avec à l'intérieur uniquement la colonne A de Ws = Sheets("Saisie_masse_0667_SIRH")

Merci par avance de votre participation.

Cordialement.

Sub InjectionGlobal_0667()
Dim Chemin As String, Fichier As String
Dim Ws As Worksheet
Dim NbLg As Long
Dim i As Long

ActiveWorkbook.Unprotect Password:="200997"

  Application.ScreenUpdating = False
  Set Ws = Sheets("Saisie_masse_0667_SIRH")
  Chemin = ThisWorkbook.Path & Application.PathSeparator
  Fichier = "Saisie_masse_0667_SIRH.xlsx"
  If Dir(Chemin & Fichier) = "" Then
    Ws.Visible = xlSheetVisible
    Ws.Copy
    Ws.Visible = xlSheetHidden
    ActiveSheet.DrawingObjects.Delete
    Application.DisplayAlerts = False
       Range("A2:E1000").
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 
    Range("A2").Select
  For i = Range("E65536").End(xlUp).Row To 1 Step -1
   If Cells(i, 5) = 0 Then Rows(i).Delete
  Next i
    ActiveWorkbook.SaveAs Chemin & Fichier, FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.Close
  Else
    NbLg = Ws.Range("A" & Rows.Count).End(xlUp).Row
    If NbLg > 1 Then
      With Workbooks.Open(Chemin & Fichier)
        Ws.Range("A2:E" & NbLg).Copy .Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
               Range("A2:E1000").Select 
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 
    Range("A2").Select
  For i = Range("E65536").End(xlUp).Row To 1 Step -1
   If Cells(i, 5) = 0 Then Rows(i).Delete
  Next i
        .Close savechanges:=True
      End With

    End If
  End If
  ActiveWorkbook.Protect Password:="200997"

End Sub

bonjour

en général, on n'a pas besoin de copier des données d'un fichier à un autre

de simples liaisons suffisent. Elles se mettent à jour très facilement quand tu en as besoin.

pas besoin de VBA

ou bien tu as un besoin très spécial : lequel ?