Discussion :

[Maryy]

Bonjour,

J'essaye d'ouvrir un fichier excel à partir d'un autre en VBA afin d'y copier des données. Mais lorsque j'appelle ma variable wb, j'ai un message d'erreur 438. Voici le bout de code en question :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim chemin As String
Dim wb As Workbook
 
chemin = Workbooks(ActiveWorkbook.Name).Path
 
Set wb = Workbooks.Open(chemin & "\NON_INTEGRES.xls")  
 
MsgBox ("classeur : " & wb)

Le code s'arrête sur mon Msgbox et m'indique l'erreur suivante :
Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet.

Je ne vois pas mon erreur. Merci d'avance pour votre aide !

Maryy

[Invité]

Bonjour,
Ton message d’erreur est là ?

Code :

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

chemin = Workbooks(ActiveWorkbook.Name).Path

ou la

Code :

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

Set wb = Workbooks.Open(chemin & "\NON_INTEGRES.xls")

ou la

Code :

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

MsgBox ("classeur : " & wb)

Code :

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

1
2
3
4
5
Dim chemin As String
Dim wb As Workbook
 chemin = ActiveWorkbook.Path
 Set wb = ActiveWorkbook.Application.Workbooks.Open(chemin & "\NON_INTEGRES.xls") 
MsgBox ("classeur : " & wb.Name)

[Maryy]

Sur mon Msgbox et il m'indique l'erreur suivante :
Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet.

Merci !

[Invité]

pas de () quand on n’attend pas de réponse dans une variable,mais j’ai fait la même chose.

Code :

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

1
2
3
MsgBox classeur : " & wb.Name
'ou un
call MsgBox( classeur : " & wb.Name)

[Maryy]

Ok je comprends, il faut donc utiliser wb.name et ça fonctionne. Merci pour le conseil sur le Msgbox, je le sais mais c'est plus fort que moi, il faut toujours que j'y colle des parenthèses !

Merci bcp ! Je vais essayer de ne pas faire d'indigestion de bananes !