Discussion :

[Invité]

Bonjour le forum,

Je viens vers vous parce que j'ai un problème avec une macro que j'utilise:
Dans un classeur [CopierCellule.xls] j'ai des chiffres dans une colonne D et un nom en colonne A correspondant à ces chiffres.
Ce que souhaite c'est que lorsque je rentre un chiffre en colonne D, une copie se fait dans le fichier dont le nom est donné en colonne A.
Voici le code que j'utilise:

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
Sub RecopieDates(Kase As Range)
Application.EnableEvents = False
Dim Chemin As String, Fichier As String
Chemin = "" & Application.PathSeparator ' suivant l'emplacement prévu
Fichier = Range("A" & (((Kase.Row - 1) \ 6) * 6) + 2)
If Dir(Chemin & Fichier) = "" Then
   MsgBox "Le fichier " & Fichier & " est introuvable"
   Exit Sub
  End If
Application.ScreenUpdating = False
With Workbooks.Open(Chemin + Fichier)
    With .Sheets(1)
        With .Range("H" & 85 + ((Kase.Row) Mod 6))
            .Value = Kase
            .NumberFormat = "m/d/yyy"
         End With
     End With
    .Close savechanges:=True
  End With
Application.EnableEvents = True
End Sub

Le problème est qu'il y'a un "saut" à la deuxième ligne, ce qui créer un décallage.
Je mets un exemple en PJ

Merci à vous et bonne journée
Cdlt
aure_8