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 ???