Appel à une plage nommée dans un fichier ouvert par CreateObject("Excel.application")

Version imprimable

Bonjour

Je remplis une combobox (au sein d'un userform) dans une application principale avec des données qui sont dans un fichier externe.
J'utilise CreateObject("Excel Application") pour ouvrir le fichier excel.
Je n'arrive pas à sélectionner une plage nommée

Code:

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
 
        Dim appxl As Excel.Application
        Dim fichier As Window
        Dim feuille As Worksheet
        Dim tableau() As Variant
        Set appxl = CreateObject("Excel.application")
        Dim repertoire As String
        repertoire = "c:\Versioning 1-0.xlsx"
 
        Set appxl = CreateObject("Excel.Application")
 
        With appxl
             .Workbooks.Open (repertoire)
            .Visible = True
        End With
 
        Set fichier = appxl.Windows("Versioning 1-0.xlsx")
        fichier.Activate
        Set feuille = appxl.Sheets("Gestion Bugs")
        Application.Goto Reference:="Essai"
        ligneDepart = 6 'Selection.Row '1er ligne de la plage
        ligneFin = ligneDepart + Selection.Rows.Count - 1 'dernière ligne de la plage
        For i = ligneDepart To ligneFin
            tableau(i) = Range("A" & i).Value & ": " & Range("B" & i).Value
        Next i
        appxl.Workbooks("Versioning 1-0.xlsx").Close
        Versioning.indiceBug.List = tableau
    End If

L'erreur

Citation:

Nous n'avons pas trouvé de référence de plage ou de nom définie

plante sur la ligne Application.Goto.

Si vous avez une idée, je suis preneur

04/10/2018, 10h41
pijaku

Bonjour,

Application, dans Application.Goto, fait référence à l'instance Excel d'où est lancé le code.
Or, tu ouvres une seconde instance Excel (appxl) dans laquelle se situe le classeur contenant la feuille contenant ton Range nommé.

Application.Goto ne trouve pas, dans la première instance (et pour cause), le Range nommé.

Le plus simple, dans ce cas, serait de ne pas sélectionner ce Range nommé, mais de travailler avec son adresse.
Cela évite des Selections (pas évident depuis un UserForm se trouvant dans une autre instance...) inutiles.
04/10/2018, 11h04
Menhir

Citation:

Envoyé par com-ace

J'utilise CreateObject("Excel Application") pour ouvrir le fichier excel.

Il serait bien plus simple d'ouvrir ton fichier avec un simple Workbooks.Open sans passer par ta variable appxl (qui ne sert à rien).
Il serait conseillé de mettre devant un Set fichier = , "fichier" étant déclaré de type Workbook et non Windows.
Ca simplifiera beaucoup aussi le reste de ton code (par exemple le Close).

Sauf si ta macro n'est pas lancée depuis Excel.
Mais dans ce cas, tu devrais ouvrir ton fichier avec Set fichier = GetObject(repertoire).

Citation:

Je n'arrive pas à sélectionner une plage nommée

Tu n'as pas besoin de la sélectionner (ton Goto est inutile).
Il suffit d'indiquer où la trouver.
Par exemple feuille.Range("A" & i).
04/10/2018, 17h43
com-ace

Merci de votre retour
J'ai trouvé en utilisant

Code:

Set wb = Workbooks.Open(repertoire)

Mais par contre pour fermer, je ne sais pas le fermer en sauvegardant automatiquement
Je continue à chercher
05/10/2018, 09h24
Menhir
Citation:

Envoyé par com-ace

Mais par contre pour fermer, je ne sais pas le fermer en sauvegardant automatiquement
Je continue à chercher
Code:

1 2 wb.Save wb.Close
ou bien

Code:

wb.Close SaveChanges:=True