goldfinger13
XLDnaute Occasionnel
Bonsoir à tous,
J'ai besoin de votre aide pour le début de ce code.
J'ai un classeur ouvert : classeur destination à partir duquel s’exécute ma macro.
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
merci d'avance pour votre aide
J'ai besoin de votre aide pour le début de ce code.
J'ai un classeur ouvert : classeur destination à partir duquel s’exécute ma macro.
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:
Sub recherche()
Dim ClasseurSource As String, ClasseurDestination As String
Set ClasseurSource = Workbooks("SourceDonnees.xlsm") 'ça bloque ici mais je suppose qu'il doit y avoir autre chose
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"