grotsblues
XLDnaute Occasionnel
Bonsoir
J'ai 2 fichiers
1 nommé "onglets".xlsx qui détient plusieurs feuilles
1 nommé "maquette import 2067".xlsm qui est le modèle
Je souhaiterai qu'elle copie les cellules du fichier "onglets".xlsx feuille 123 et 124 vers le fichier "maquette import 2067".xlsm feuille "convert"
cellules F4 et G4 "feuille 123 dans cellule B3 "convert"
cellules H4 "feuille 123 dans cellule C3 "convert"
cellules K4 "feuille 123 dans cellule K3 "convert"
et une fois la feuille 123 copiée, elle l'enregistre au nom de la cellule A3 puis elle passe à l'onglet suivant.....
j'ai trouvé sur les forums un code vba mais je n'arrive pas à l'adapter
Je joint un fichier comme exemple pour plus de compréhension
Merci à tous pour vos réponses
Sub CreationSynthese()
' Initialisation
' --------------
Cells.Delete
Range("A1") = "noms onglets"
Range("B1") = "nom"
Range("C1") = "prenom"
Range("D1") = "emploi"
Range("E1") = "brut secu"
JaunePale = 13434879
Range("A1:C1").Interior.Color = JaunePale
Range("A1:C1").Font.Bold = True
' Parcours de tous les fichiers
' -----------------------------
ChDir "E:\2067 2015"
onglets = Dir("E:\2067 2015\onglets.xlsx")
While Len(onglets) > 0
Workbooks.Open onglets
AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count - 1
Range("A2:B" & AvantDerniereLigne).Copy
Workbooks("maquette import 2067.xlsm").Activate
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Range("B" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste
Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = onglets
Workbooks(onglets).Close
onglets = Dir
Wend
End Sub
J'ai 2 fichiers
1 nommé "onglets".xlsx qui détient plusieurs feuilles
1 nommé "maquette import 2067".xlsm qui est le modèle
Je souhaiterai qu'elle copie les cellules du fichier "onglets".xlsx feuille 123 et 124 vers le fichier "maquette import 2067".xlsm feuille "convert"
cellules F4 et G4 "feuille 123 dans cellule B3 "convert"
cellules H4 "feuille 123 dans cellule C3 "convert"
cellules K4 "feuille 123 dans cellule K3 "convert"
et une fois la feuille 123 copiée, elle l'enregistre au nom de la cellule A3 puis elle passe à l'onglet suivant.....
j'ai trouvé sur les forums un code vba mais je n'arrive pas à l'adapter
Je joint un fichier comme exemple pour plus de compréhension
Merci à tous pour vos réponses
Sub CreationSynthese()
' Initialisation
' --------------
Cells.Delete
Range("A1") = "noms onglets"
Range("B1") = "nom"
Range("C1") = "prenom"
Range("D1") = "emploi"
Range("E1") = "brut secu"
JaunePale = 13434879
Range("A1:C1").Interior.Color = JaunePale
Range("A1:C1").Font.Bold = True
' Parcours de tous les fichiers
' -----------------------------
ChDir "E:\2067 2015"
onglets = Dir("E:\2067 2015\onglets.xlsx")
While Len(onglets) > 0
Workbooks.Open onglets
AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count - 1
Range("A2:B" & AvantDerniereLigne).Copy
Workbooks("maquette import 2067.xlsm").Activate
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Range("B" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste
Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = onglets
Workbooks(onglets).Close
onglets = Dir
Wend
End Sub