Bonjour à tous et à toutes,
Je commence à coder dans vba depuis quelques semaines donc je bloque de temps en temps.
Je rencontre un problème dans une macro que je suis en train de faire.
Je souhaite ouvrir un fichier (FichierSource) et coller les données dans un autre fichier de destination (identifié comme FichierRef dans le code).
J'obtiens l'erreur suivante lorsque j'essaie de lancer la macro : "référence incorrecte ou non qualifiée".
Voici le code :
Je pense qu'il manque une instruction, il manquerait un with quelque part mais je ne sais pas comment corriger vraiment ce problème.
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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43 Option Explicit Sub Copier_données() ' ' Copier_coactivite Macro ' Dim DerniereLigneSource As Long Dim DerniereLigneRef As Long Dim FichierSource As Workbook Dim FichierRef As Workbook ' ' 'Définit le ou les fichiers à ouvrir FichierSource = Application.GetOpenFilename If VarType(FichierSource) = vbBoolean Then MsgBox "Action annulée" _ 'Else MsgBox "Fichier sélectionné : " & NomFichier Workbooks.Open (FichierSource) ' 'Sélection des données à copier DerniereLigneSource = FichierSource.Range("A" & .Row.Count).End(xlUp).Row Range(Range("A4"), DerniereLigneSource).Select Selection.Copy End With 'Passage sur le fichier sur lequel on veut coller les données Set FichierRef = ActiveWorkbook DerniereLigneRef = FichierRef.Range("A" & .Rows.Count).End(xlUp).Row FichierRef.Activate Next FichierRef.Activate Worksheets("Données importées").Select Range("G20").Select MsgBox "Veuillez coller les informations du fichier Source", vbOKOnly + vbInformation, "Copie des données source" 'Copie de la zone utilisée 'On colle des informations copiées Selection.Paste FichierSource.Close False Application.ScreenUpdating = True End Sub
Merci pour vos commentaires ou conseils.
A bientôt
Partager