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