FlexGrid to Excel [Résolu]

Messages postés
5
Date d'inscription
vendredi 29 août 2003
Statut
Membre
Dernière intervention
23 avril 2012
- - Dernière réponse : cs_elska
Messages postés
5
Date d'inscription
vendredi 29 août 2003
Statut
Membre
Dernière intervention
23 avril 2012
- 23 avril 2012 à 09:18
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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
14568
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
19 octobre 2019
136
3
Merci
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
---

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 194 internautes nous ont dit merci ce mois-ci

Commenter la réponse de NHenry
Messages postés
5
Date d'inscription
vendredi 29 août 2003
Statut
Membre
Dernière intervention
23 avril 2012
0
Merci
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
Commenter la réponse de cs_elska