Discussion :

[com-ace]

Bonjour

Je cherche simplement à partir d'une requête d'aller chercher la valeur d'une cellule sur un autre fichier excel
Le nom du fichier est contenu sur la cellule F de chaque ligne de la liste
La liste s’arrête quand colonne A est vide

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
 
Sub MAJ_propal()
    Sheets("Propositions en cours").Activate
    For i = 5 To 40
        If Range("A" & i).Value = "" Then Exit Sub
        Fichier = Range("F" & i).Value
 
        'Ouverture du classeur source
        Workbooks.Open Fichier
 
        Range("G" & i).Value = Workbooks(Fichier).Sheets("Simulateur").Range("Prixvente").Value
        Workbooks.Close Fichier
    Next
 
End Sub

J'obtiens sur la dernière ligne 'Range("G"...) erreur 9 l'indice ne fait partie de la sélection
Je cherche une solution simple depuis quelques temps.
Quelqu'un pourrait il m'aider ?
Merci de votre action

[Jean-Philippe André]

Salut,

il faut faire attention lorsqu'apparaissent plusieurs niveaux des classeurs (classeur>feuille>cellule)

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
Sub MAJ_propal()
    dim Wbk As Workbook
    With Worksheets("Propositions en cours")
    For i = 5 To 40
        If .Range("A" & i).Value = "" Then Exit Sub
        Fichier = .Range("F" & i).Value
 
        'Ouverture du classeur source
        set wbk =Workbooks.Open (Fichier)
 
        .Range("G" & i).Value = wbk.Worksheets("Simulateur").Range("Prixvente").Value
        wbk.Close False
    Next
 
End Sub

[com-ace]

Merci de ta réponse
Cela fonctionne