Discussion :

[goldfinger13]

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

[SfJ5Rpw8]

Bonsoir,

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

[goldfinger13]

bonsoir,
ça bloque toujours en ligne 4

[SfJ5Rpw8]

bonsoir,
ça bloque toujours en ligne 4

il faut lire le message d'erreur !!

[goldfinger13]

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!

[Theze]

Bonjour,

De cette façon peut être :

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
 
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é.

[casefayere]

bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

imaginons

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et attention aux espaces éventuels