DATES : Inversions mois et jours

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai un gros soucis avec une macro que j' exécute.
Je suis débutante en VBA.

PAR AVANCE, MERCI A CEUX QUI POURRONT M'AIDER.

Lorsque j'ouvre un classeur à partir d'un autre classeur à l'aide d'une macro, automatiquement toutes les dates du fichier sont modifiées.
Dès l'ouverture du classeur.
Les jours et les mois sont inversés.

pourriez vous m'aider S'IL VOUS PLAÎT????

Ci joint le fichier à ouvrir d'un autre classeur.
Voici le bout de code à exécuter d'un autre classeur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub Test() 'Déclaration des variables Dim Wbk1 As Workbook Dim Wbk2 As Workbook Set Wbk1 = ThisWorkbook Rep = MsgBox("Veuillez choisir le fichier ", vbOKCancel, "Chargement du Fichier de mise à jour") If Rep = vbCancel Then Exit Sub ChDrive ("C") ChDir "C:\EMPLACEMENT DU FICHIER" fichier = Application.GetOpenFilename("Excel files(*.xls), C:\EMPLACEMENT DU FICHIER*.xls") On Error Resume Next Workbooks.Open Filename:=fichier On Error GoTo 0 MsgBox "Le fichier " & x & " est ouvert" End Sub

16/06/2011, 15h45
mercatog

Bonjour
Comment est généré ton fichier? Est il un .csv?
16/06/2011, 15h55
hortencia

Merci de ta réponse.

C'est un fichier cpt que je convertit en .xls.
C'est du à ça???

Mais comment puis je faire pour que ça fonctionne correctement?

Car ceci n'est que le début de ma macro.
Je manipule ces dates tout au long de mon travail et ça me pose un gros problème.

Merci encore.

Cordialement.
16/06/2011, 16h09
kiki29

Salut,passer par menu Données/Données Externes/Importer des données etc et l'enregistreur de macros
A voir également un tuto http://didier-gonard.developpez.com/...-excel-et-vba/

Adapté de l'enregistreur de macro
(En fait, j'importe les données du fichier vers Feuil7)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Macro1()
Dim Sh As Worksheet
Dim Fichier As Variant
Dim Chemin As String
 
Application.ScreenUpdating = False
Chemin = "C:\Documents and Settings\Administrateur\Bureau"
ChDrive "C:"
ChDir Chemin
Fichier = Application.GetOpenFilename("Excel files(*.xls),.xls")
If Fichier <> False Then
    Set Sh = ThisWorkbook.Worksheets("Feuil7")
    With Sh.QueryTables.Add(Connection:="TEXT;" & Fichier, Destination:=Sh.Range("A1"))
        .Name = Replace(Mid(Fichier, InStrRev(Fichier, "\") + 1), ".xls", "")
        .TextFileColumnDataTypes = Array(4, 4, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With
    Set Sh = Nothing
End If
End Sub

Bonjour,

Tout d'abord MERCI BEAUCOUP pour vos réponses.

Sachez qu'il n'y avait là, aucun manque d'intérêt de ma part.
Cela fait simplement une semaine environ que j'étais dans l'impossibilité de vous répondre.

Je viens à peine de voir vos réponses.
Je vois ce que vous m'avez conseillé et je vous dis si c'est bon.

Encore merci de l'attention que vous portez à mon problème.

Bonjour Kiki29.
Merci pour le lien.

Je suis aller sur le lien dans la catégorie Mise en application simple sur un format date, non homogène après import de Données.

Voici le code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub AppliTuto() With Columns("D:D") .Insert Shift:=xlToRight '.select '' ne pas mettre dans le code surtout, ''à activer pour compréhension de la suite si besoin... ''le with column("D:D") pointe vers la colonne E apparente suite à l'insertion, ''mais qui représente toujours l'objet d'origine à savoir la colonne pointée via l'instruction With... .Offset(0, -1).FormulaR1C1 = "=IF(RC[1]<>"""",RC[1]*24/24,"""")" .Offset(0, -1).NumberFormat = "m/d/yyyy" .Offset(0, -1).Copy .Offset(0, -1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False .Delete End With End Sub
Est ce ce que je dois intégrer dans mon code?
J'ai bien l'impression que ça fait référence au même problème que moi.
Pourrais tu m'expliquer un peu le code?

S'il te plaît.
Il faut dire que je suis loin d'être une experte.

Bonjour mercatog.

Merci de ta réponse.
Donc si je comprends bien, le simple fait d'importer les données sur une autre feuille va rétablir un format correct pour mes dates????

Cordialement.

24/06/2011, 14h51
hortencia

Bonjour kiki29.

J'ai utiliser le bout de code que j'avais récupérer du lien que tu m'avais envoyé.
Et ça marche super bien.
Merci.

Mais je t'avouerai que je ne comprends pas comment.
J'aurais bien aimé que tu m'explique.
Si jamais tu as un peu de temps....

Cordialement.

Oh!!!!!!!!!!!!!Mon Dieu.

Le bout de code que j'ai pris dans le lien que vous m'avez envoyé ne marche pas .

Les dates entre le 1er et le 12 du mois continues à être inversées.
Je suis désespérée.

Aidez moi s'il vous plaît.