Discussion :

[frunch]

Bonjour à tous,

Pour un début, j'aimerais recopier la cellule A1 d'un 2eme classeur fermé sur la cellule A1 d'un classeur ouvert comportant la macro.
En essayant le code de ce sujet, parmi d'autres, je n'arrive pas à ouvrir le 2éme classeur avec ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
  Dim F1 As Workbook, F2 As Workbook
  Dim chemin As String, fichier As String
  Set F1 = ActiveWorkbook
Workbooks.Open "D:\Users\FRANCK\Documents\FRANCK\EXCEL\MACROS\EXERCICES MACRO\FICHIERS\Classeur2.xlsm"  
F1.Worksheets(1).Cells(1, 1) = Classeur2.Worksheets(2).Cells(1, 1) 
  F1.Close
End Sub

Tiens la ligne en rouge n'est pas celle qui bug, mais celle d'après.
Merci de votre aide

[Franc]

Hello,
Essaie comme ceci:

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
Sub RecopierValeur()
    Dim fd As FileDialog
    Dim nomFichier As String
    Dim nomFeuille As String
    Dim cellule As String
    Dim valeur As Variant
    Dim wb As Workbook
 
    ' Crée un objet FileDialog pour sélectionner le classeur fermé
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    ' Affiche la boîte de dialogue pour sélectionner le classeur fermé
    If fd.Show = -1 Then
        ' Récupère le nom du fichier sélectionné
        nomFichier = fd.SelectedItems(1)
 
        ' Spécifiez le nom de la feuille dans le classeur fermé
        nomFeuille = "Test"
 
        ' Spécifiez la cellule à recopier dans le classeur fermé
        cellule = "A1"
 
        ' Ouvre temporairement le classeur fermé en arrière-plan
        Application.ScreenUpdating = False
        Set wb = Workbooks.Open(nomFichier, ReadOnly:=True)
 
        ' Récupère la valeur de la cellule spécifiée dans le classeur fermé
        valeur = wb.Sheets(nomFeuille).Range(cellule).Value
 
        ' Ferme le classeur sans enregistrer les modifications
        wb.Close SaveChanges:=False
        Application.ScreenUpdating = True
 
        ' Recopie la valeur dans la cellule A1 du classeur ouvert
        ThisWorkbook.Sheets("Feuil1").Range("A1").Value = valeur
    End If
End Sub

[Philippe Tulliez]

Bonjour,
En ligne 6, "Classeur2" n'est pas un objet. D'où sort-il ?
Workbooks(2) éventuellement si celui-ci est vraiment le second ouvert mais ce n'est pas la meilleure approche

[EDIT]
Comme vous avez déclaré F2 comme objet Workbook, remplacez la ligne 5 par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set F2 = Workbooks.Open(FileName:="D:\Users\FRANCK\Documents\FRANCK\EXCEL\MACROS\EXERCICES MACRO\FICHIERS\Classeur2.xlsm")

et ensuite utilisez la variable objet F2 en lieu et place de Classeur2

écrit de mémoire donc non testé

[frunch]

Bonjour Franc et Philippe,
Franc çà fonctionne merci
Philippe, çà bug ici

[Philippe Tulliez]

Bonjour,

Philippe, çà bug ici

Quelle erreur avez-vous ?
Y a t'il bien deux feuilles de calcul dans le classeur F2 ?

[frunch]

Non Philippe,
Il n'y a qu'une feuille appelée 2.