FlexGrid to Excel [Résolu]

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

Votre réponse

2 réponses

Meilleure réponse
Messages postés
14321
Date d'inscription
vendredi 14 mars 2003
Dernière intervention
13 décembre 2018
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 a aidé 104 internautes ce mois-ci

Commenter la réponse de NHenry
Messages postés
5
Date d'inscription
vendredi 29 août 2003
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.