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

Christian0258

XLDnaute Accro
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

XLDnaute Barbatruc
Bonjour Christian

Essaie comme ceci

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510