Macro pour récupérer données classeur fermé...

[Christian0258]

Bonjour à tout le forum,
Je souhaiterais, à nouveau, votre aide sur cette macro (de Bengîle);

Sub RécupérerPatients()

'ouvre le classeur sans erreur qu'il ait ou non un mot de passe
On Error GoTo Erreur
Workbooks.Open "C:\Users\Chantal\Desktop\CHRISTIAN\Suivi d'Activité 2018.xlsm", Password:="foto"
On Error GoTo 0
'recopie les valeurs de la source à la cible, à adapter
Workbooks("Imprimer feuille soin.xls").Worksheets("Base").Range("F2").Value = _
Workbooks("Suivi d'Activité 2018.xlsm").Worksheets("Saisies").Range("AX2").Value

Exit Sub
Erreur:
Workbooks.Open "C:\Users\Chantal\Desktop\CHRISTIAN\Suivi d'Activité 2018.xlsm"
Resume Next

End Sub

Cette macro plante sur les deux lignes Workbooks...

Pourriez-vous me dire ce qui cloche ?

Merci pour votre aide.
Bien à vous,
Christian

 

[Lone-wolf]

Bonjour Christian

Essaie comme ceci

Sub RécupérerPatients()
Dim WkbSource As Workbook, WkbDest As Workbook, _
chemin As String, fichier As String

chemin = "C:\Users\Chantal\Desktop\CHRISTIAN\"
fichier = "Suivi d'Activité 2018.xlsm"

Set WkbSource = Workbooks.Open(chemin & fichier, Password:="foto")
Set WkbDest = ThisWorkbook

'recopie les valeurs de la source à la cible, à adapter
WkbDest.Sheets("Base").Range("F2").Value = WkbSource.Sheets("Saisies").Range("AX2").Value

ActiveWorkbook.Close True
End Sub

 

[Christian0258]

Re, le forum, Lone-wolf,

Un grand merci, Lone-wolf, pour ton code qui fonctionne parfaitement.

Bien à toi,
Christian