Discussion :

[DébutantAccess]

Bonjour à tous,
J'aimerais créer un bouton qui me permettrait d'ouvrir un fichier Excel.
Je vous explique, j'ai un dossier avec plusieurs fichiers clients qui sont sous Excel, leur dénomination est la même pour tous: Suivi "Nom client".xls (exemple de nom de fichier : Suivi Dupont Claude.xls)
J'aimerais que dans mon formulaire il y ai une zone de texte où l'on taperais le nom du client et un bouton permettant d'accéder à sa fiche Excel.
Jusqu'à maintenant je n'arrive qu'à ouvrir un fichier spécifique avec un chemin complet, mon code VBA ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande49_Click()
     Dim AppliExcel As Excel.Application
  Dim wb As Excel.Workbook
 
  Set AppliExcel = New Excel.Application
  Set wb = AppliExcel.Workbooks.Open(FileName:="C:\Users\LALALA\Desktop\Suivi\Dupont Claude\Suivi Dupont Claude.xlsx")
  AppliExcel.Visible = True
End Sub

Là ça m'ouvre le suivi de Dupont Claude mais j'aimerais que ça m'ouvre aussi pour ceux que je souhaite.

J'espère avoir été assez clair, en espérant un peu d'aide.
Merci d'avance

[leinadjan]

Bonjour à tous,
J'aimerais créer un bouton qui me permettrait d'ouvrir un fichier Excel.
Je vous explique, j'ai un dossier avec plusieurs fichiers clients qui sont sous Excel, leur dénomination est la même pour tous: Suivi "Nom client".xls (exemple de nom de fichier : Suivi Dupont Claude.xls)
J'aimerais que dans mon formulaire il y ai une zone de texte où l'on taperais le nom du client et un bouton permettant d'accéder à sa fiche Excel.
Jusqu'à maintenant je n'arrive qu'à ouvrir un fichier spécifique avec un chemin complet, mon code VBA ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande49_Click()
     Dim AppliExcel As Excel.Application
  Dim wb As Excel.Workbook
 
  Set AppliExcel = New Excel.Application
  Set wb = AppliExcel.Workbooks.Open(FileName:="C:\Users\LALALA\Desktop\Suivi\Dupont Claude\Suivi Dupont Claude.xlsx")
  AppliExcel.Visible = True
End Sub

Là ça m'ouvre le suivi de Dupont Claude mais j'aimerais que ça m'ouvre aussi pour ceux que je souhaite.

J'espère avoir été assez clair, en espérant un peu d'aide.
Merci d'avance

Bonjour, vous ne pouvez créer un objet Excel.Application de cette façon. Regarder le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
   
  Set xla = GetObject(, "Excel.Application")
 
 
   If Err.Number <> 0 Then
       Err.Clear
       Set xla = CreateObject("Excel.Application")       
       xla.Workbooks.Add
   End If
 
   xla.Windows(xla.ActiveWorkbook.Name).Activate
   xla.Visible = True

J'ai un bug avec le GetObject, mais le CreateObject fonctionne très bien,