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: 12
  • Suivi EVS test.xlsm
    28.6 KB · Affichages: 10
Dernière édition:

AlexandrB

XLDnaute Nouveau
bonjour , j'aimerai une macro pour aller chercher des colonnes dans un fichier Excel secondaire fichier JTO-306355-0 ( titre des colonne : Libellé(FR) (colonne G) , outil de contrôle ( colonne M) , valeur mini ( Colonne P) pour les incorpore sous un autre Excel JTO-Gamme PVC , Feuille en fichier excel en colonne C , D et E ?
 

Pièces jointes

  • JTO-306355-0 GammeComplete KC-V2.xlsx
    65.4 KB · Affichages: 2

job75

XLDnaute Barbatruc
Bonjour AlexandrB, bienvenue sur XLD,

Il aurait été mieux de créer une nouvelle discussion mais bon.

Téléchargez les fichiers joints dans le même dossier (le bureau) et voyez la macro du bouton :
VB:
Sub Copier_Colonnes()
Dim w As Worksheet
Application.ScreenUpdating = False
Set w = Workbooks.Open(ThisWorkbook.Path & "\JTO-Gamme PVC.xlsx").Sheets(1) 'à adapter éventuellement
With ThisWorkbook.Sheets("V2")
    .Range("G:G,M:M,P:P").Copy w.[C1]
    w.Columns("C").ColumnWidth = .Columns("G").ColumnWidth
    w.Columns("D").ColumnWidth = .Columns("M").ColumnWidth
    w.Columns("E").ColumnWidth = .Columns("P").ColumnWidth
End With
w.Parent.Close True 'enregistre et ferme le fichier
End Sub
A+
 

Pièces jointes

  • JTO-306355-0 GammeComplete KC-V2.xlsm
    74.5 KB · Affichages: 5
  • JTO-Gamme PVC.xlsx
    8.4 KB · Affichages: 5

AlexandrB

XLDnaute Nouveau
merci . Y a t-il possibilité que la macro aille chercher le document dans avoir a ouvrir les 2 document en même temps , sachant qu'il son dans le même dossier ? sa me met cette erreur , fichier joint . je pense avoir comprit mon erreur se quoi dois être copier dois aller dans un volet spécifique de ma gamme JTO-Gamme PVC , et le nom de se fichier c'est : Fichier Exel , me manque cette référence du coup dans la macro .
 

Pièces jointes

  • erreure macro.jpg
    erreure macro.jpg
    40.8 KB · Affichages: 15
Dernière édition:

Discussions similaires

Réponses
2
Affichages
110

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs