Créer Fichier avec FileCopy 2nd fichier + donnés 3éme fichier ???

Bonjour,

Explication de la démarche

J'ai créer une fiche standard (trame à remplir) et un fichier de suivi de ces fiches.

Dans le fichier de suivi, j'ai créer un bouton permettant de créer une copie (FileCopy) de la trame, sous un nouveau nom

Pas de soucis de ce coté là

Mais il y à 2 choses que je n'arrive pas à faire (voir image jointe) :

  • (Fichier de suivi) Copier les données dans la colonne en les transposant dans la ligne* (*le numéro de ligne s’incrémente de +1 à chaque création de fiche)
  • Copier ces données,à partir de la colonne ou de la ligne, dans le fichier créé avec FileCopy sous le format décrit dans l'image jointe.

Voici mon programme, les commentaires indique ce que je souhaite ajouter :

Sub Créer_Une_FED()

Dim Suivi_FED As String

Dim TrameFED As String

Dim Nom_New_FED As String

Dim Dossier_New_FED As String

Dim New_FED As String

'- - - - - - - - - - - - - -

Dim Projet As String

Dim Date_du_jour As Date

Dim Date_FED As String

Dim Index As Long

Dim Num_FED As String

Dim Num_ligne_FED As Long

'________________________________________________________________________________________________________________________

Suivi_FED = "D:\Users\chemin_fichier_de_suivi\Fichier de suivi.xlsm"

TrameFED = "D:\Users\chemin_trame_fiche\Trame_FED.xlsx"

Dossier_New_FED = "D:\Users\Chemin_sauvegarde_new_fed\"

'--------------------------

Projet = Range("B2")

Date_du_jour = Format(Now, "dd/mm/yyyy")

Date_FED = Format(Date_du_jour, "yyyymmdd")

Index = Range("K11").CurrentRegion.Rows.Count - 10

Num_FED = Format(Index, "0000")

Num_ligne_FED = Index + 11

'--------------------------

Nom_New_FED = "FED-" & Projet & "-" & Date_FED & "-" & Num_FED & ".xlsx"

New_FED = Dossier_New_FED & Nom_New_FED

Range("K" & Num_ligne_FED) = Nom_New_FED

' + Range des données colonne dans la ligne de la fiche créée

'_______________________________________________________________________________________________________________________

FileCopy TrameFED, New_FED

'+ copie de données du fichier de suivi dans la fiche créée

Workbooks.Open New_FED

End Sub

Avez vous des idées ???

transferts donnees

L'image du fichier de suivi de fiche avec les lignes et colonnes,

c'est mieux

transferts donnees fichier de suivi avec es colonnes et lignes
Rechercher des sujets similaires à "creer fichier filecopy 2nd donnes 3eme"