Bonsoir à tous,
J'ai besoin de votre aide pour le début de ce code.
J'ai un classeur ouvert : classeur destination
je souhaite que l'utilisateur puisse choisir le dossier dans lequel il va trouver le classeur source
je souhaiterais remplacer le nom du classeur par sa variable afin de simplifier par la suite la mise à jour du code.

et je bloque sur l'écriture du code notamment sur la déclaration des variables


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
 
Sub recherche()
Dim ClasseurSource As String, ClasseurDestination As String
Set ClasseurSource = Workbooks("SourceDonnees.xlsm")
Set ClasseurDestination = ThisWorkbook
'ouverture du fichier SourceDonnees
MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*")
If MonFichier <> False Then
Workbooks.Open Filename:=MonFichier
Else
End If
 
'intégrer les données
    Windows("DestinationDonnees.xlsm").Activate
    'recherche la valeur
   Range("B1").Select
    ActiveCell.FormulaR1C1 = "='ClasseurSource.fiabilisé'!R3C2:R3C5"
merci d'avance pour votre aide