Discussion :

[Fabyfabzzz]

Bonjour, j'ai un code qui permet de copier / coller la valeur de la cellule B2 d'un classeur fermé vers la cellule D6

Je recherche comment rajouter en complément d'autres cellules à copier au sein du même code.

Par ex B3 qui se collerai dans D8
et B4 qui se collerai dans D9


voici mon code initial

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
Sub copie()
 
 
 
        Dim Fichier As String
 
 
        Worksheets("RECAP").Activate
 
      Fichier = "D:\aide\SY.xlsm"
 
      If Dir(Fichier) = "" Then
        MsgBox "Fichier " & Fichier & " introuvable"
        Exit Sub
      End If
 
      With Workbooks.Open(Fichier)
        .Sheets("feuil1").Range("B2").Copy
        ThisWorkbook.Sheets("RECAP").Range("D6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
       .Close savechanges:=False
 
      End With
End Sub

Merci du coup de main

[a_diard]

Bonjour

peut être en répétant 3 fois ton code

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
Sub copie()
         Dim Fichier As String
         Worksheets("RECAP").Activate
        Fichier = "D:\aide\SY.xlsm"
       If Dir(Fichier) = "" Then
        MsgBox "Fichier " & Fichier & " introuvable"
        Exit Sub
      End If
 
      With Workbooks.Open(Fichier)
        .Sheets("feuil1").Range("B2").Copy
        ThisWorkbook.Sheets("RECAP").Range("D6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 .Sheets("feuil1").Range("B3").Copy
        ThisWorkbook.Sheets("RECAP").Range("D8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 .Sheets("feuil1").Range("B4").Copy
        ThisWorkbook.Sheets("RECAP").Range("D9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
       .Close savechanges:=False
 
      End With
End Sub

[Patrice740]

Bonjour, j'ai un code qui permet de copier / coller la valeur de la cellule B2 d'un classeur fermé vers la cellule D6
[...] voici mon code initial [...]

Bonjour,

Ton code ne copie pas la valeur d'un classeur fermé, il ouvre le classeur fermé, copie la valeur et referme le classeur !

Voici un code qui permet de lire tes données dans le classeur fermé (sans l'ouvrir) :

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
Sub copie()
Dim NomFichier As String
Dim Chemin As String
Dim Formule As String
    Chemin = "D:\aide\"
    NomFichier = "SY.xlsm"
    If Dir(Chemin & NomFichier) = "" Then
        MsgBox "NomFichier " & NomFichier & " introuvable"
        Exit Sub
    End If
    Formule = "='" & Chemin & "[" & NomFichier & "]Feuil1" & "'!"
    With ThisWorkbook.Worksheets("RECAP")
      .Range("D6").Formula = Formule & "B2": .Range("D6").Value = .Range("D6").Value
      .Range("D8").Formula = Formule & "B3": .Range("D8").Value = .Range("D8").Value
      .Range("D9").Formula = Formule & "B4": .Range("D9").Value = .Range("D9").Value
      .Activate
    End With
End Sub