Probleme declaration variable classeur

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:

---

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

Bonsoir,

string c'est "Chaîne de caractère" pour classeur c'est Workbook ;)

bonsoir,
ça bloque toujours en ligne 4

bonsoir,

ça ne serait pas une erreur d'orthographe
plutot que

Code:

---

1 2	Dim ClasseurSource As Workbook, ClasseurDestination As Workbook Set ClasseurSource = Workbooks("SourceDonnees.xlsm")

---

imaginons

Code:

---

1 2	Dim ClasseurSource As Workbook, ClasseurDestination As Workbook Set ClasseurSource = Workbooks("SourceDonnées.xlsm")

---

et attention aux espaces éventuels

Citation:

---

Envoyé par goldfinger13

bonsoir,
ça bloque toujours en ligne 4

---

:koi: il faut lire le message d'erreur !!

En fait mon classeur source n'était pas ouvert.
L'opération d'ouverture se fait après ne faudrait il pas que je décale le SET après l'ouverture en ligne 13
Ensuite en ligne 17 je ne suis pas du tout sur de la syntaxe.
merci pour ton aide!

Bonjour,

De cette façon peut être :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub recherche()   Dim ClasseurSource As Workbook Dim ClasseurDestination As Workbook   Set ClasseurDestination = ThisWorkbook   'ouverture du fichier SourceDonnees MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*")   If MonFichier <> False Then Set ClasseurSource = Workbooks.Open(MonFichier) '...   End Sub

---

Hervé.