Discussion :

[chachaboy]

Bonjour, voilà je vous expose mon problème que je n'arrive pas à solutionner maigres mes recherches.
J'essai d'ouvrir un classeur depuis un autre classeur.
l'dresse du classeur à ouvrir est contenue en Cellule [F3].
Ce code marche pourtant bien sur un autre classeur . Je ne comprends pas. Peut etre un probleme de reference manquante ...? Merci

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
 
Sub copier_importer()
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
Dim fichier_source As String
Dim wbk1 As Workbook
Dim wbk0 As Workbook
 
fichier_source = ThisWorkbook.Sheets("pl").Range("f3").Text
MsgBox titre 'test de variable
 
Set wbk0 = Workbooks.Open(fichier_source) ' jouvre le classeur source contenant les données à récuperer
Set wbk1 = ThisWorkbook 'classeur ou sont copiées les donnés
 
With wbk0.Sheets(1)
    .Range("a1:b2").Copy
    wbk1.Sheets(1).Range("a1").PasteSpecial Paste:=xlPasteValues
End With
 
wbk0.close
 
End Sub

Un message d’erreur survient alors:
" erreur de compilation dans module caché thisworkbook....Incompatibilité de plateforme ou architecture.... "
Le module thisworkbook ne comporte pas de macro anormale et même en effaçant tout le contenu s'y trouvant l'erreur persiste.
Le fichier s'ouvre bien mais le reste du code bug sur "WorkBooks.Open(fichier_source)"

Cordialement

W10 PRO 64 bits , Excel 2016 32 bits

[Ardus Petus]

Bonjour,

Quelle est la ligne qui provoque l'erreur ?
Quel est le message d'erreur ?

A-priori, le code ne comporte pas d'erreur.

Bon apréme,
--
AP

[chachaboy]

c'est la ligne 14

[Menhir]

Quel message d'erreur est affiché ?
Quelle ligne de code est désignée par le débugage ?

[chachaboy]

par contre le code fonctionne parfaitement si je laisse les 2 classeur ouverts .

[chachaboy]

ligne 14
Pièce jointe 552760

[chachaboy]

oups désolé j'ai pas trouvé pour raccourcir l'image ....

[Menhir]

L'erreur la plus évidente serait que la variable fichier_source ne contient pas de nom de fichier existant ou qu'il y a une erreur dans le chemin.

[chachaboy]

non l'adresse est juste.
j'ai fait un test avec ce code pour verifier :
[f3]=application.getopenfilename()

[chachaboy]

message d'erreur renvoyé lors de l'execution:

" erreur de compilation dans module caché thisworkbook....Incompatibilité de plateforme ou architecture.... "

[chachaboy]

Effectivement il y avait bien une erreur dans le module (thisworkbook) .
Mais il s'agissait du module de l'autre fichier (source) ouert par instruction :

Code :

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

Set wbk0 = Workbooks.Open(fichier_source)

et non pas le fichier en cours contenant la procedure d'appel.

[Résolu]

cordialement