Discussion :

[allergique]

Bonjour,

Dans mon programme j'essaye d'ouvrir un fichier excel ayant un accent circonflexe dans son nom, mais ça ne fonctionne pas.

J'ai vu comment supprimer les accents dans la faq, mais je ne trouve pas comment ouvrir les fichiers avec accents.

Est-ce que quelqu'un sait comment faire svp?

Merci par avance

[SfJ5Rpw8]

on peu voir ton code d'ouverture ?

[allergique]

Voici le code en ligne 16:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub listemacros()
 
'Nécessite d'activer la référence
    '"Microsoft Visual basic For Application Extensibility 5.3"
Dim Ajout As Integer
Dim VBCmp As VBComponent
Dim cdMod As CodeModule
Dim Wb As Workbook
Dim Debut As Long
 
'Active la combo1
Combo1.Enabled = True
 
'Indiquez le nom du classeur ouvert
'Set Wb = ThisWorkbook
Set Wb = Application.Workbooks.Open(lienfichier)
 
Ajout = 1
 
'Boucle sur tous les composants du projet :
    'Modules standards
    'Modules de feuilles et de classeur
    'Modules de classe
    'UserForms
For Each VBCmp In Wb.VBProject.VBComponents
    Set cdMod = VBCmp.CodeModule
 
    With cdMod
        Debut = .CountOfDeclarationLines + 1
        Do Until Debut >= .CountOfLines
            'Nom de la procédure
            'Debug.Print .ProcOfLine(Debut, vbext_pk_Proc)
            typedemacro = .Lines(.ProcBodyLine(.ProcOfLine(Debut, vbext_pk_Proc), vbext_pk_Proc), 1)
            'Copie que les sub et public sub
            If Left(typedemacro, 3) = "Sub" Or Left(typedemacro, 10) = "Public Sub" Then
                Combo1.AddItem .ProcOfLine(Debut, vbext_pk_Proc)
            End If
 
            Debut = Debut + _
                .ProcCountLines(.ProcOfLine(Debut, _
                vbext_pk_Proc), vbext_pk_Proc)
            Ajout = Ajout + 1
        Loop
    End With
 
Next VBCmp
 
End Sub

[SfJ5Rpw8]

et c'est quoi : "lienfichier"

PS : est-tu sur d'utiliser VB6 et pas VBA pour Excel ?

[allergique]

"lienfichier" est une variable public, contenant le chemin du fichier à ouvrir pris avec "CommonDialog1".

Oui, à la base ce code est issu d'une des macros excel, et fonctionne aussi pour les accents.
Par contre, dans VB6 le code ne fonctionne que quand il n'y a pas d'accents

[petit rabot]

Pourquoi tu n'ouvre pas directement avec la référence excel, j'ai fais un essai avec un nom composé d'accents, et mon fichier s'ouvre très bien.

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim xlapp As Excel.Application  'Application Excel
Dim xlbook As Excel.Workbook    'Classeur Excel
Dim xlsheet As Excel.Worksheet  'Feuille Excel
 
Set xlapp = CreateObject("Excel.Application")   'Ouverture de l'application Excel
Set xlbook = xlapp.Workbooks.Open("C:\éàùêëè.xlsx") 'nom du fichier avec accents
Set xlsheet = xlbook.Sheets("Feuil1")           'Ouverture de la feuille1 du fichier Excel
xlapp.Visible = True                            'Rend visible l'application Excel

[allergique]

Je ne connaissais pas cette méthode pour ouvrir les classeurs excel.

Ton code fonctionne très bien,

Merci beaucoup