Créer Fichier avec FileCopy 2nd fichier + donnés 3éme fichier ??? Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
T
Tayh
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 12 septembre 2019
Version d'Excel : Excel 2013

Message par Tayh » 16 septembre 2019, 15:06

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 ??? :bof:
transferts données.png
T
Tayh
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 12 septembre 2019
Version d'Excel : Excel 2013

Message par Tayh » 16 septembre 2019, 15:13

L'image du fichier de suivi de fiche avec les lignes et colonnes,
c'est mieux :lole:
transferts données- fichier de suivi avec es colonnes et lignes.png
transferts données- fichier de suivi avec es colonnes et lignes.png (12.13 Kio) Vu 96 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message