1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Copie mise en forme excel

AReS097
Messages postés
24
Date d'inscription
mercredi 11 mars 2009
Statut
Membre
Dernière intervention
14 janvier 2021
 - Modifié le 22 sept. 2017 à 19:04
Whismeril
Messages postés
17336
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
20 mai 2022
 - 22 sept. 2017 à 23:45
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.

3 réponses

Réponse 1 / 3
Whismeril
Messages postés
17336
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
20 mai 2022
 596
22 sept. 2017 à 11:26
Bonjour

c'est un fichier xls ou xlsx?
0
Réponse 2 / 3
AReS097
Messages postés
24
Date d'inscription
mercredi 11 mars 2009
Statut
Membre
Dernière intervention
14 janvier 2021
22 sept. 2017 à 23:18
c'est un fichier xlsx

--
0
Réponse 3 / 3
Whismeril
Messages postés
17336
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
20 mai 2022
 596
22 sept. 2017 à 23:44
Alors à moins d'avoir besoin de voir évoluer le contenu du fichier au fur et à mesure, passer par l'automation est plus lent que de créer (ou modifier) le document et l'ouvrir ensuite.

J'ai écrit un petit wrapper openxml, qui permet entre autre de copier un format http://codes-sources.commentcamarche.net/source/102062-excel-avec-openxml
0
Whismeril
Messages postés
17336
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
20 mai 2022
 596
22 sept. 2017 à 23:45
Ps: merci à NHenry d'avoir éditer ta question pour y mettre la coloration syntaxique
0