Discussion :

[Pierre67]

Bonjour

j'obtiens une interruption d'exécution suite à ce code avec surlignageen jaune de la ligne set fd1

Code :

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

1
2
3
4
5
Dim fd1 As Worksheet
Dim wb1 As Workbook ' les concessionnaires
Chemin = ActiveWorkbook.Path
Set wb1 = Workbooks.Open(Chemin & "\GESTPV_CONC.xlsx")
Set fd1 = wb1.Sheets("GLOBAL")

où est l'erreur ?
cordialement

[Philippe Tulliez]

Bonjour,
D'après l'instruction se trouvant en ligne 5, il est vraisemblable que la feuille nommée GLOBAL est soit non présente soit est d'une orthographe différente.
Si la feuille existe, peut-être y a-t-il un caractère espacé non visible derrière ou devant ce nom.

[Pierre67]

Si la feuille existe, peut-être y a-t-il un caractère espacé non visible derrière ou devant ce nom.

la feuille existe bien et pas de caractère polluant dans le nom

[Philippe Tulliez]

Bonjour,

la feuille existe bien et pas de caractère polluant dans le nom

Si la feuille nommée GLOBAL est bien présente dans le classeur nommé GESTPV_CONC.xlsx, alors je ne vois pas ce qui pose problème