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

[Stefbarbu]

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

 

[job75]

Bonjour Stefbarbu,

Vous avez ouvert hier une discussion syr le même sujet.

Vous auriez pu vous demander pourquoi vous n'avez pas eu de réponse.

A+

 

[Stefbarbu]

Bonjour job75

effectivement !
je pensais qu'en modifiant le titre ça aiderait ma cause.

est ce que vous avez une réponse à ma demande ?

 

[job75]

Il est impossible de comprendre votre question.

Les données entre les 2 fichiers ne correspondent pas !!!

 

[Stefbarbu]

dans le fichier EVS je voudrais transférer (copier) les données de la colonne C + S2 + T8 vers le fichier Suivi EVS dans les colonnes A à C

 

[Stefbarbu]

j'ai modifié les informations pour quelles aient le même format que dans le fichier suivi EVS

 

[job75]

dans le fichier EVS je voudrais transférer (copier) les données de la colonne C + S2 + T8 vers le fichier Suivi EVS

Il n'y a rien en T8, cette cellule est fusionnée.

Et avec quel bouton voulez-vous exécuter le transfert ?

 

[Stefbarbu]

c'est la cellule T6, erreur de frappe et je voudrais associer le bouton vert "Générer les CT approuvés"

 

[job75]

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

La macro du bouton pour réaliser le transfert :

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.

 

[Stefbarbu]

Bonjour "Job75"
Merci pour l'aide apporté, c'est très apprécié.
pour ma gouverne, j'ai quelques questions
pourquoi les signes $ et & dans la ligne Dim ?
et vous mentionnez avoir supprimé les MCF ?

 

[job75]

Bonjour Stefbarbu,

Dim dossier$ c'est la même chose que Dim dossier As String

date& c'est la même chose que dat As Long

J'ai supprimé les mises en forme conditionnelles (MFC) car c'était le foutoir.

A+

 

[AlexandrB]

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 ?

 

[job75]

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 :

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+

 

[AlexandrB]

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 .

 

[job75]

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 ?

Le code est pourtant évident : la macro ouvre le fichier .xlsx du post #13.