XL 2016 Exporter des données d'un classeur à un autre classeur vba

Stefbarbu

XLDnaute Nouveau
Bonjour,
j'ai beau chercher, je n'arrive pas à trouver.
je voudrais copier (exporter) des données de la Fiche EVS vers Suivi EVS à la suite dans les colonnes A à C.

ça semble si simple mais je n'y arrive pas.

Merci pour votre aide
 

Pièces jointes

  • Fiche EVS test.xlsm
    125.4 KB · Affichages: 4
  • Suivi EVS test.xlsm
    188.4 KB · Affichages: 3

job75

XLDnaute Barbatruc
Téléchargez les 2 fichiers joints dans le même dossier (le bureau).

La macro du bouton pour réaliser le transfert :
VB:
Private Sub CommandButton2_Click()
Dim dossier$, dat&, CT As Range, h&, lig&
dossier = [S2]
If dossier = "" Then MsgBox "Renseignez S2...": Exit Sub
dat = [T6]
Set CT = Range("C20", Range("C" & Rows.Count).End(xlUp))
If CT.Row < 20 Then Exit Sub
h = CT.Rows.Count
Application.ScreenUpdating = True
Application.DisplayAlerts = False
With Workbooks.Open(ThisWorkbook.Path & "\Suivi EVS test.xlsm") 'ouvre le fichier
    With .Sheets("Heures CO - Chauffeurs").ListObjects(1).Range
        lig = .Rows.Count + 1 '1ère ligne vide
        .Cells(lig, 1).Resize(h) = dossier
        .Cells(lig, 2).Resize(h) = dat
        .Cells(lig, 2).Resize(h).NumberFormat = "dd/mm/yyyy"
        .Cells(lig, 3).Resize(h) = CT.Value
        If .Cells(2, 1) = "" Then .Rows(2).Delete xlUp 'si la 2ème est vide
    End With
    .Close True 'enregistre et ferme le fichier
End With
End Sub
On peut si nécessaire supprimer les doublons mais vous ne l'avez pas demandé.

Edit : J'ai supprimé les MFC et décoché l'option avancée pour masquer les valeurs zéro.

Bonne nuit.
 

Pièces jointes

  • Fiche EVS test.xlsm
    133.1 KB · Affichages: 6
  • Suivi EVS test.xlsm
    28.6 KB · Affichages: 4
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
299 728
Messages
1 978 785
Membres
206 391
dernier inscrit
patcaudron62