Openfilename et Incompatibilité type

Salut les développeurs! Voici mon problème. Je suis en train de faire une macro qui va ouvrir fichiers et copier/coller dans mon fichier d'origine au fur et au mesure que le code se déroule (je dois faire ça 7 fois) mais au moment de faire la première ouverture de fichier excel j'ai une incompatibilité de type que je n'arrive a résoudre; il apparaît quand j’exécute l'ordre "application;workbooks,Open Application.GetOpenFilename(; "K6"). voici mon code:
Merci d'avance!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim t1 As Single Dim CL_overview As Workbook, Classeurcible As Workbook Dim classeursource As Worksheet   'Declaration time pour compter temps de traitement macro t1 = Timer 'Declaration feuille Rent pour nettoyage et coller données Set CL_overview = ActiveWorkbook Set classeursource = CL_overview.Sheets("Rent") Sheets("Rent").Range("A1:AF250").ClearContents   'Ouverture fichier "Etat_Loc_Finmois" et mise en forme pour coller sur "Rent" CL_overview.Activate Application.DisplayAlerts = False 'option qui permet dire OUI aux alertes sur la perte de données excel Application.Workbooks.Open Application.GetOpenFilename(, "K6") Classeurcible = ActiveWorkbook.Name 'fichier texte que je bien d'ouvrir   'selection données et copy pour les coller dans le fichier principal onglet "rent" Range("A1").CurrentRegion.Copy Windows(CL_overview).Activate

---

Je laisse le soin à des vrais développeurs te donner une bien meilleur réponse
mais si tu passe par le chemin de ton fichier

Code:

---

Workbooks.Open Filename:="c:\"

---

Ça fonctionne?

Merci! Oui ça fonctionne! j'ai fait:

Code:

---

Workbooks.Open Filename:=Range("K6")

---

Bonne continuation!

Bonjour,

Je ne comprends pas bien ce que tu veux faire ici :

Code:

---

Application.Workbooks.Open Application.GetOpenFilename(, "K6")

---

Le nom classeursource pour une feuille (worksheet) porte un peu à confusion ;)
Si déjà tu déclares une variable classeursource : utilise la jusqu'au bout -->

Code:

---

1 2	Set classeursource = CL_overview.Sheets("Rent") classeursource.Range("A1:AF250").ClearContents

---

Bon, ça va rien changer...mais c'est juste une remarque ;)
Ceci : CL_overview.Activate ne sert à rien. N'utilise pas Activate, Select... mais écris clairement les objets auxquelles tu te réferres. Par exemple

Code:

---

CL_overview.Paste

---

et pas [S]

Code:

---

1 2	CL_overview.Activate ActiveSheet.Paste

---

[/(ça n'apparaît pas dans ton code, mais c'est un exemple pour montrer comment ne pas utiliser Activate)

Code:

---

1 2	Dim Classeurcible As Workbook Classeurcible = ActiveWorkbook.Name

---

Ca ne va pas ! Tu déclares Classeurcible comme un classeur (Workbook), mais tu essaies de lui donner une chaine de caractère (String). La propriété Name donne le nom du classeur.
Soit tu fais

Code:

---

1 2	Dim Classeurcible As Workbook Classeurcible = ActiveWorkbook

---

et tu continues à utiliser Classeurcible comme un CLASSEUR.
Soit tu fais

Code:

---

1 2	Dim Classeurcible As String Classeurcible = ActiveWorkbook.Name

---

et tu continues d'utiliser Classeurcible comme le NOM du classeur.

D'ailleurs à quoi te sert cette variable que tu n'utilises jamais par la suite?