Bonjour,

J'ai crée un petit code vba qui me permet de selectionner une valeur de cellule dans plusieurs fichiers d'une même repertoir et de coller ces valeur dans un autre fichier excel ( copie en colonne B).
La valeur à copier se trouve toujours dans la cellule E12 des fichiers (onglet "Livraison Conforme).

On me demande maintenant de selectionner également la date de ces même fichiers et de les coller dans le fichier excel (colonne A ).
La date à copier se trouve toujours dans la cellule E9 des fichiers du même repertoire.

Or je ne sais pas comment selectionner en même temps deux cellules d'une même fichier et de coller ces cellules dans le fichier excel en sachant que la cellule date doit etre en B1 et la valeur en A1..

Voici le code vba que j'ai crée pour selectionner uniquement la valeur contenue dans la cellule E12

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub Transferer()
 
Dim jour As Date
Dim dossier As Object, Fichier As Object, Chemin As String, Lg As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = True
 
DerLg = Range("B65536").End(xlUp).Row + 1
 
Range("B2:B" & DerLg).Delete
 
 
Chemin = "P:adresse du repertoire"
FName = Dir(Chemin & "\" & "*.xls")
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
Lg = 2
 
 
 
For Each Fichier In dossier.Files
NomFichier = Fichier.Name
If Not Fichier.Name = "fichier excel.xls" Then
Workbooks.Open Filename:=Chemin & "/" & NomFichier
 
On Error Resume Next
 
With Workbooks(NomFichier)
.Sheets("Livraison Conforme").Range("E11").Copy
.Close False
 
 
Workbooks("fichier excel.xls").Worksheets("feuil1").Activate
Range("B" & Lg).PasteSpecial
 
Lg = Lg + 1
 
 
End With
 
Lg = Lg + 1
 
 
End If
 
Next
 
End Sub