Discussion :

[com-ace]

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 :

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
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

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

[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.

[Menhir]

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).

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).

[com-ace]

Merci de votre retour
J'ai trouvé en utilisant

Code :

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

Set wb = Workbooks.Open(repertoire)

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

[Menhir]

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

Code :

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

1
2
wb.Save
wb.Close

ou bien

Code :

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

wb.Close SaveChanges:=True