Discussion :

[Invité]

Concernant le dialogue vous n’êtes pas obligé d'importer les APIs de windows et tout le tralala qui peut causer il est possible de sélectionner un fichier via le dialogue natif de l'application:

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
 
Public Function OuvrirUnFichier(Handle As Long, _
                                Titre As String, _
                                TypeRetour As Byte, _
                                Optional TitreFiltre As String, _
                                Optional TypeFichier As String, _
                                Optional RepParDefaut As String) As String
  Dim sFiltre, I As Long, sAll As Boolean
  sFiltre = Split(TitreFiltre, "|")
  With Application.FileDialog(1)
      .Title = Titre
      .Filters.Clear
      sAll = False
      If TitreFiltre <> "" Then
         For I = 0 To ((UBound(sFiltre) + 1) \ 2 - 1) Step 2
           .Filters.Add sFiltre(I), sFiltre(I + 1)
           If Not sAll And (sFiltre(I + 1) = "*.*") Then
              sAll = True
           End If
         Next
      End If
      If Not sAll Then: .Filters.Add "Tout les fichiers", "*.*"
      .InitialFileName = RepParDefaut
      If .Show <> 0 Then
          OuvrirUnFichier = .SelectedItems(1)
      End If
  End With
End Function

Pour éviter l'activation manuelle des références utiliser plutôt CreateObjet à la place de New
Chercher les instances de New et remplacez les dans le code
Exemple:

Code :

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

1
2
3
4
5
6
7
  Dim objOutlook As Outlook.Application
 ..
  Dim objWord As Word.Application
 
  'Assigner l'objet Outlook et Word
  Set objOutlook = New Outlook.Application
  Set objWord = New Word.Application

à remplacer par

Code :

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

1
2
3
4
5
6
7
 Dim objOutlook  
 ..
  Dim objWord  
 
  'Assigner l'objet Outlook et Word
  Set objOutlook = CreateObject("Outlook.Application")
  Set objWord = CreateObject("Word.Application")

si CreateObject échoue cela veut dire que les bibliothèques ne sont pas installés
bonne chance

[MAKET93]

Bonjour rMist2024
Je vous remercie pour vos précieux conseils. Nous avons cherché à résoudre ce problème mais il faut le dire nous avons échoué. Alors j'ai cédé à la facilité d''Office 2013 je suis passé sur Office 2016. Installé sur 3 PC, le premier W11, le second W10 et le troisième W7.. les trois fonctionnent parfaitement. Se pose la question de la compatibilité avec W11 d'association PGM ?.
Merci en tout cas à toute l'équipe

[MAKET93]

Bonjour à tous, depuis 2016 j'utilise le soft initialisé par Claude http://claudeleloup.developpez.com/t...s/association/. J'ai adapté ce soft à mon utilisation (non commerciale) Il fonctionne parfaitement cependant une fonctionnalité m'intéresserait particulièrement. Ce soft permet d'envoyer un email à un usager, sur le même principe je souhaiterais envoyer un sms avec une API comme TWILIO. Quelqu'un a t il travaillé ce sujet? Merci pour vos réponses Marc

[hyperion13]

Bonjour

Peut-être devriez-vous créer un nouveau fil pour capter l'attention des contributeurs de DEV

En faisant une recherche via gogole est mon ennemi, on trouve des réponses pour ms Access et ms Excel.