Bonjour,

J'aimerai copier la valeur d'une cellule d'un classeur B (ouvert mais non visible) vers mon classeur A (où est placé ma macro).

Voici mon code, celui-ci ne marche pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set fichier = appxl.Windows(stFile)
Voici le code complet :

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
Sub maj_ancien()
Dim wb1, wb2, stFile, nameFile, commentaire, statut, test1, test2 As String
Dim nbre_ligne1, nbre_ligne2, compteur_ligne1, compteur_ligne2, compteur_colonne1, compteur_colonne2 As Integer
 
 
 
 
Dim appxl As Excel.Application
Dim fichier As Window
Dim feuille As Worksheet
Set appxl = CreateObject("Excel.application")
Dim read As Variant
 
nameFile = ThisWorkbook.Name
 
stFile = Sheets("Lien_PN_ancien").Cells(1, 2).Value
 
With appxl
    .Workbooks.Open stFile
    .Visible = False
End With
 
 
 
 
 
Set fichier = appxl.Windows(stFile)
fichier.Activate
Set feuille = appxl.Sheets("Pièce Nouvelle")
 
Workbooks(nameFile).Sheets("Lien_PN_ancien").Cells(10, 1).Value = Workbooks(stFile).Sheets("Pièce Nouvelle").Cells(3, 1).Value
 
 
appxl.Workbooks(stFile).Close
 
 
 
End Sub
merci pour votre aide.

Bonne journée