FlexGrid to ExcelRésolu

Question

bonjour à tous, je suis en train de coder un bête export flexgrid vers excel et la colonne date se transforme en anglais , si quelqu'un à une idée je lui serait considérablement reconnaissant. 

ci dessous le code en vb6 qui fonctionne (sauf la date) en colonne 'A' : 

Sub ExportXL()

Dim xls As Object 'pour éviter d'avoir la référence à excel.application :-)
Dim i As Long
Dim j As Long

Set xls = CreateObject("Excel.Application")   ' création d'une nouvelle instance vierge de l'application Excel

xls.Visible = True                ' visible à l'écran
xls.ShowWindowsInTaskbar = True   ' visible dans la barre de tâches
xls.DisplayFormulaBar = True      ' affichage de la barre de formule

xls.Workbooks.add     ' ajout d'un classeur Excel sinon vous aurez une instance d'Excel mais pas de classeur
xls.Worksheets(1).name = "Détail" 'nom de l'onglet pour faire joli

'le titre (rien d'intéressant)
xls.Worksheets(1).Range("A1") = "Factures du " & Text1(0) & " au " & Text1(1)
xls.Worksheets(1).Range("A1:K2").merge
xls.Worksheets(1).Range("A1:K1").Font.name = "Comic sans ms"
xls.Worksheets(1).Range("A1:K1").Font.Size = 18

Vu.FloodPercent = 0
Vu.Visible = True
DoEvents

'copier ...
Clipboard.Clear 'Clear the Clipboard
With Grid1(0)
    .Col = 0 
    .Row = 0 
    .ColSel = .Cols - 1
    .RowSel = .Rows - 1
    Clipboard.SetText .Clip
End With
            
'coller
With xls.ActiveWorkbook.ActiveSheet
    .Range("A4").Select 'Select Cell A1 (will paste from here, to different cells)
    .Paste              'Paste clipboard contents
End With

Vu.Visible = False
xls.Visible = True                ' visible à l'écran
xls.ShowWindowsInTaskbar = True   ' visible dans la barre de tâches
xls.DisplayFormulaBar = True      ' affichage de la barre de formule

End Sub

NHenry · Accepted Answer

Bonjour, 

Essayes d'enregistré une macro sur Excel pour voir comment changer le format de date.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---

cs_elska · Answer

merci pour la réponse, mais cela ne fonctionne pas comme cela ... j'ai trouvé, il suffit de mettre dans le grid la date sous la forme yyyy-mm-dd et ensuite excel le remets à l'endroit :-)

a bientot et merci encore

FlexGrid to Excel

2 réponses

Votre réponse

Discussions similaires