Discussion :

[marycaLou]

Bonjour,

J'ai créé une macro qui fonctionne très bien sur tous les ordinateurs de notre bureau sauf 1.
La macro sert à classer des courriels dans un dossier sélectionné par l'utilisateur. Pour ce faire, j'appelle la fenêtre de dialogue par Excel.
Voici mon code:

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
Function fonBrowseFolderExplorer(Optional DialogTitle As String, _
    Optional ViewType As MsoFileDialogView = _
        MsoFileDialogView.msoFileDialogViewSmallIcons, _
    Optional InitialDirectory As String) As String
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '   Procédure pour ouvrir la fenêtre des dossiers/raccourcis
    '   MAJ 2014-01-31 LP
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim fDialog  As Office.FileDialog
    Dim varFile As Variant
    Dim ExcelApp
    Set ExcelApp = CreateObject("Excel.application")
 
    Call subActiveExcel(ExcelApp.hwnd) ''=== MAJ 2014-03-14 LP
    ExcelApp.Visible = False   'OBLIGATOIRE pour ne pas afficher Excel
 
    Set fDialog = ExcelApp.FileDialog(msoFileDialogFolderPicker)
    fDialog.InitialView = ViewType
    With fDialog
        If Dir(InitialDirectory, vbDirectory) <> vbNullString Then
            .InitialFileName = InitialDirectory
        Else
            .InitialFileName = CurDir
        End If
        .Title = DialogTitle
        If .Show = True Then        ' user picked a folder
            fonBrowseFolderExplorer = .SelectedItems(1)
        Else                        ' user cancelled
            fonBrowseFolderExplorer = vbNullString
        End If
    End With
    ExcelApp.Quit
End Function

Le code fonctionne bien jusqu'à la ligne "Set fDialog = ExcelApp.FileDialog(msoFileDialogFolderPicker)". J'ai un erreur no 13.
Pourtant, j'ai désinstallé la macro, recopié le code et dans le vba de Outlook, j'ai réinstallé les librairies que tout le monde a.

Mais je n'arrive toujours pas à faire afficher la boîte de dialogue.
Quelqu'un pourrait-il me dire pourquoi?

Merci.

[Oliv-]

Bonjour,
Je pense qu'il faut REPARER l’installation de OFFICE. par le panneau de configuration.