Bonjour,
Je cherche le code pour copier la mise en forme d'un ligne excel remplie sur la ligne juste en dessous.
le code VBA interne a excel est celui la :
Range(Cells(ligne - 1, 1), Cells(ligne - 1, 4)).Select
Selection.Copy
Range(Cells(ligne, 1), Cells(ligne, 4)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Je cherche à l’adapté dans visual studio sur mon programme VB.NET mais sans succès jusqu'ici :
Voici mon debut de code :
'ouverture de excel
ExcelObj = CreateObject("excel.application") 'Ouverture de Excel
ExcelObj.Application.Visible = False 'Excel est visible
ExcelDoc = ExcelObj.Workbooks.Open(FileDtbeServer) 'Ouverture du fichier listing
ExcelAct = ExcelObj.ActiveWorkbook.Worksheets("HEURES") 'Nom de onglet de la page
'recherhce derniere ligne
DerLine = ExcelAct.Range("A1048576").End(XlDirection.xlUp).Row
ExcelAct.Range(DerLine).Select()
ExcelAct.Selection.Copy
ExcelAct.Range(DerLine + 1).Select()
Ce code fonctionne bien pour trouver la dernier ligne remplie, mais la suite avec Range et Select ne fonctionne pas.
Merci de votre aide
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI
Merci d'y penser dans tes prochains messages.
Afficher la suite