[RESOLU]* Macro Copie Feuille ou Ligne

[Lord_Kerrigan]

Bonjour,

Après mainte recherche et essai infructueux, je me décide à demander de l'aide, même si je sais que le sujet à déjà été exploité mainte et mainte fois.

Je vous explique ce que j'aimerais

Je dispose d'un fichier "Template - Horaire" (format .xltx) avec plusieurs ongletset un fichier "Planning" (Format .xlsx)

il faudrait quand cliquant sur un bouton que toutes les lignes de l'onglet "Clients" (Classeur fermé et mis à jour souvent) en supprimant les lignes vides (environ 150 lignes dont 1/3 de vide) se colle dans l'onglet "projets" du fichier "Planning V2" à partir de la ligne 5. et qu'a chaque fois que je clic sur ce bouton, toutes les données en dessus de la ligne 5 s'efface et ce remplace par ce nouveau copier/coller

Merci de votre aide

Cordialement

*Resolu par moi même
mais merci quand même

 

[Lord_Kerrigan]

Re : Macro Copie Feuille ou Ligne

[RESOLU] Voici le Code que j'utilise pour le moments


Sub MISEaJOUR()
'
' Mise à jour des projets suivant le template pointage
'

'
Sheets("Projets").Select
Range("A2: D500").Select
Selection.ClearContents
Workbooks.Open Filename:= _
"C:\Pointages.xltx" _
, Editable:=True
Sheets("Projets").Select
Range("A1: D500").Select
Range("D1").Activate
Selection.Copy
Windows("Planning.xlsx").Activate
Range("A2").Select
ActiveSheet.Paste
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
Windows("Pointages.xltx").Close SaveChanges:=False
ActiveWindow.Close
Sheets("Planning").Select
Range("A1:B2").Select
End Sub