Discussion :

[subzero25]

Boniour,

Je cherche a récuperer les colonnes A F G H P Q U V W X Y EG EP, d'un excel fermé vers mon excel ouvert dans les colonne spécifié.
Mais mon code ne fonctionne pas :

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
23
24
25
Sub importPlaf()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
titre = "\\pysn41\_LSI\Applilsi\HEBERGE\bdd\APPLIS_PRY\PLAF_PYVV\Fichiers_utilisateurs\PLAF_LOG - XXlog.xlsx"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre) ' jouvre le classeur (titre)
wbk1.Sheets(1).Range("A4").Value = wbk2.Sheets(1).Range("A6").Value
wbk1.Sheets(1).Range("B4").Value = wbk2.Sheets(1).Range("F6").Value
wbk1.Sheets(1).Range("C4").Value = wbk2.Sheets(1).Range("G6").Value
wbk1.Sheets(1).Range("D4").Value = wbk2.Sheets(1).Range("H6").Value
wbk1.Sheets(1).Range("E4").Value = wbk2.Sheets(1).Range("P6").Value
wbk1.Sheets(1).Range("F4").Value = wbk2.Sheets(1).Range("Q6").Value
wbk1.Sheets(1).Range("G4").Value = wbk2.Sheets(1).Range("U6").Value
wbk1.Sheets(1).Range("H4").Value = wbk2.Sheets(1).Range("V6").Value
wbk1.Sheets(1).Range("I4").Value = wbk2.Sheets(1).Range("W6").Value
wbk1.Sheets(1).Range("J4").Value = wbk2.Sheets(1).Range("X6").Value
wbk1.Sheets(1).Range("K4").Value = wbk2.Sheets(1).Range("Y6").Value
wbk1.Sheets(1).Range("L4").Value = wbk2.Sheets(1).Range("EG6").Value
wbk1.Sheets(1).Range("M4").Value = wbk2.Sheets(1).Range("EP6").Value
wbk2.Close
End Sub

Voici l'erreur affichée qui surlige la ligne en rouge dans le code :