Code VBA pour garder les entetes dans les feuilles copiées

[Phiphi27700]

Bonjour
Je souhaite pouvoir garder les entêtes et la lignes surlignées en jaunes dans les feuilles qui se copient dans les répertoires par cette Macro
En ce moment je n'obtient que le contenu sous les lignes surlignées en jaune
Le résultat est en image dans le fichier
A l'avance merci

 

[camarchepas]

Re : Code VBA pour garder les entetes dans les feuilles copiées

Bonjour PhiPhi,

Pas nécessaire de changer de discussion pour ce problème , tu aurais eu la réponse plus rapidement .

Ne pas oublier de réadapter le chemin sans oublier le \ en fin

Sub Arbo()
Dim LigneFin As Long, Tourne As Long, Ligne As Long
Dim Temoin As Boolean
Dim Chemin As String, Nom As String

Chemin = "C:\Temp\"

With ThisWorkbook.Sheets("Feuil1")
 LigneFin = .Range("B" & Rows.Count).End(xlUp).Row
 For Tourne = 2 To LigneFin
  If Temoin And .Range("A" & Tourne) <> "" Then Workbooks(Nom).Close True: Temoin = False
   If .Range("A" & Tourne) <> "" Then
     Nom = Range("A" & Tourne) & "_" & Range("B" & Tourne) & ".xlsx"
     ChDir Chemin
     MkDir Nom
     Application.Workbooks.Add
     ActiveWorkbook.SaveAs Filename:=Chemin & Nom & "\" & Nom
     Temoin = True
     ThisWorkbook.Sheets("Feuil1").Range("A1:d1").Copy Destination:=Workbooks(Nom).Sheets("Feuil1").Range("A1:D1")
     ThisWorkbook.Sheets("Feuil1").Range("A" & Tourne & ":d" & Tourne).Copy Destination:=Workbooks(Nom).Sheets("Feuil1").Range("A2:D2")
     Ligne = 3
    Else
     ThisWorkbook.Sheets("Feuil1").Range("A" & Tourne & ":d" & Tourne).Copy Destination:=Workbooks(Nom).Sheets("Feuil1").Range("A" & Ligne & ":D" & Ligne)
     Ligne = Ligne + 1
   End If
   
 
Next
End With
End Sub

 

[Phiphi27700]

Re : Code VBA pour garder les entetes dans les feuilles copiées

Bonjour Camarchepas
merci pour ta réponse, comment fallait faire pour pas changer de discussion?
A+

 

[camarchepas]

Re : Code VBA pour garder les entetes dans les feuilles copiées

Et bien ,

Exactement comme tu viens de faire pour me répondre ....

 

[Phiphi27700]

Re : Code VBA pour garder les entetes dans les feuilles copiées

Ha Ok merci pour l'info
Bonne soirée