Discussion :

[alexkickstand]

Bonjour, une derniere question :


jai un fichier Excell qui s'appelle "RESULTS.xls" dans ce fichier il y a une feuille qui se nomme "toto" j'aimerais renommer "toto" en "tata" depuis Access en VBA

merci d'avance

Alex

[Mat.M]

Soit avec les API Windows voir le MSDN
soit avec File System Object si dispo sous Access

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
The following code illustrates the use of the Name property:
 
Sub ShowFileAccessInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = f.Name & " on Drive " & UCase(f.Drive) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified  
    MsgBox s, 0, "File Access Info"
End Sub

Avec la propriété Name de File on peut renommer un fichier

[alexkickstand]

j'ai trouvé une fonction qui permet de renommer une feuille d'un fichier Excel depuis Access en VBA :


apell de la fonction depuis un formulaire :

Code :

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

1
2
 
Call renomer_feuille_xls.RenommeFeuilleExcel("chemin_complet_du_fichier_Excel\fichier.xls", "nom de la feuille a renommer", "nouveau nom de la feuille souhaité")

créer un nouveau module dans access le nommer : "renomer_feuille_xls"

ne pas oublier d'activer la référence :

Référence : Microsoft Excel 11.0 Library Objects ou équivalent.

copier ce code dans le module :

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
 
Public Function RenommeFeuilleExcel(ByVal sMonBook As String, _
                            ByVal sNomFeuilleARemplacer As String, _
                            ByVal sNouveauNomFeuille As String) As Boolean
 
If IsExist(sMonBook) Then
 
    Dim xlApp        As Excel.Application
    Dim xlBook      As Workbook
    Dim i              As Integer
    Dim bFlag       As Boolean
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(sMonBook)
    RenommeFeuilleExcel = False
 
    For i = 1 To xlBook.Sheets.Count
        If xlBook.Sheets(i).Name = sNomFeuilleARemplacer Then bFlag = True: Exit For
    Next i
 
    If bFlag Then
        Sheets(sNomFeuilleARemplacer).Name = sNouveauNomFeuille
        RenommeFeuilleExcel = True
    Else
        MsgBox "Ce nom de feuille n'existe pas !", vbCritical
    End If
 
    xlBook.close True
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
 
Else
    MsgBox "Le fichier n'existe pas, vérifier le chemin !", vbCritical
End If
 
End Function
 
 
Private Function IsExist(ByVal StrFileName As String) As Boolean
    On Error GoTo Xe
    Open StrFileName For Input As #1
    Close #1
    IsExist = True
Xi: Exit Function
Xe: 'MsgBox Err.Description, vbCritical
    Resume Xi
End Function

et voila tout devrais fonctionner correctement

Alex