Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1811 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copie de lignes avec format dans VBA

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Copie de lignes avec format dans VBA

n°2003144
dkside01
Posté le 20-06-2010 à 23:17:06  profilanswer
 

Bonjour,
 
'ai écrit du code pour générer un fichier excel via une macro, j'arrive bien à copier le contenu des cellules en appliquant la règle que je souhaite (filtre sur valeur de la 1èere colonne) mais je voudrais également conserver le format (largeur colonne, police, ...), comment dois je procéder ?
 
Voici mon code :
 
Sub Creation_fichier_partenaire(CodPar As String, FicPar As String)
Dim xls As Excel.Application
Dim xlsfeuille As Excel.Worksheet
Dim xlsclasseur As Excel.Workbook
Dim Num1, Num2 As Integer
 
Set xls = CreateObject("Excel.Application" )
Set xlsclasseur = xls.Workbooks.Add
Set xlsfeuille = xlsclasseur.Worksheets(1)
 
xlsfeuille.Rows(1).Value = Worksheets("Fichier" ).Rows(1).Value
xlsfeuille.Cells(2, 1).ColumnWidth = Worksheets("Fichier" ).Cells(2, 1).ColumnWidth
Num1 = 2
Num2 = 2
Do While Worksheets("Fichier" ).Cells(Num1, 1) <> ""
    If Worksheets("Fichier" ).Cells(Num1, 1).Value = CodPar Then
        xlsfeuille.Rows(Num2).Value = Worksheets("Fichier" ).Rows(Num1).Value
        Num2 = Num2 + 1
    End If
    Num1 = Num1 + 1
Loop
xlsfeuille.Columns(1).Delete
xlsclasseur.SaveAs ("E:\" + FicPar)
xls.Application.Quit
Set xls = Nothing
 
End Sub
 
 
Merci d'avance pour vos réponses.
 
Cordialement,

mood
Publicité
Posté le 20-06-2010 à 23:17:06  profilanswer
 

n°2003206
olivthill
Posté le 21-06-2010 à 10:36:20  profilanswer
 

Je n'ai pas la réponse, mais voici des pistes :

xlsfeuille.Range("A1:P1" ).EntireColumn.Autofit
xlsfeuille.Cells(Num1, 1).NumberFormat = "dd/mm/yyyy"
xlsfeuille.Cells(Num1, 1).NumberFormat = "##########0.00"
xlsfeuille.Cells(Num1, 1).Style="Normal"
xlsfeuille.Cells(Num1, 1).Font.Color = wdColorGray625


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copie de lignes avec format dans VBA

 

Sujets relatifs
Comment supprimer un bouton sur userfom avec du code VBA ?PHP & MySQL : date_format()
VBA : Problème recherchev VlookupProbleme sur la copie de fichier
Depouillement sondage VBAverouillage partiel cellules Excel /via VBA
VBA-Bouton dynamique-Petit coup de pouce[VBA] erreur 13
FTP copie de répertoireVBA création d'une liste de validation
Plus de sujets relatifs à : Copie de lignes avec format dans VBA


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR