Discussion :

[hortencia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Bonjour
Comment est généré ton fichier? Est il un .csv?

[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.

[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/

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hortencia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.