Discussion :

[Anthelm]

Bonjour,

J'ai créé un formulaire sur Outlook, dans lequel je souhaiterai avoir une liste déroulante,
et dont la "Rowsource" serait une plage Excel. (L'emplacement du classeur est connu)

Dans la propriété "Rowsource" de la liste déroulante, j'ai essayé différentes "formules", mais la liste reste vide...

Auriez vous une solution svp?

Code :

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

1
2
3
Private Sub Userform1_Initialize()
LISTETEST.RowSource = "C:\Users\****\Desktop\DossierTest\Essai\Try2.xlsx"
End Sub

J'ai essayé ça mais je ne sais pas trop comment spécifier une plage ou des cellules...

Merci beaucoup!


Edit: J'en suis la, mais ça ne marche pas:

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
Private Sub UserForm_Initialize()
 
On Error Resume Next
 
Dim XlApp, XlClas
Set XlApp = CreateObject("Excel.Application")
Dim FichierExcel As String
 
    'Fichier Excel À DEFINIR:
    FichierExcel = "C:\Users\****\Desktop\DossierTest\Essai\Try.xlsx"
 
'Ouverture du classeur
Set XlClas = XlApp.Workbooks.Open(FichierExcel)
 
**ERREUR SUR CETTE LIGNE***
Me.SaisAdv.RowSource = XlClas.Worksheets("Feuil1").Range("A1:A4").Value
 
 
'Sauvegarde des modifications et fermeture du classeur
XlClas.Close True
'On quitte Excel
XlApp.Quit
'On libère la mémoire des variables
Set XlClas = Nothing
Set XlApp = Nothing
 
 
End Sub

[Oliv-]

Rowsource attend une adresse en texte et non en objet

comme dans une formule

Code :

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

"'[fichier.xlsm]Feuille'!A1:A4"

[Anthelm]

Rowsource attend une adresse en texte et non en objet

comme dans une formule

Code :

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

"'[fichier.xlsm]Feuille'!A1:A4"

Merci beaucoup pour ta réponse!

J'ai tryhard cet après midi en récupérant d'autres bouts de codes sur google, merci à vous tous car beaucoup de choses viennent de ce forum.

Pour cette partie, j'ai fait ça:

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
Private Sub UserForm_Initialize()
On Error Resume Next
 
'Charger une plage  d'un classeur Excel
'pour l'utiliser dans une combobox
 
Dim XlApp, XlClas
    'Création d'un Excel
    Set XlApp = CreateObject("Excel.Application")
    'Ouverture du classeur
    Set XlClas = XlApp.Workbooks.Open("D:\Profils_RDS\a.derid\Bureau\TEST\Listederoulante.xlsx")
 
    Dim maTab
    maTab = (XlClas.Worksheets("Feuil1").Range("A1:A5").Value)
 
    Me.ComboBox1.List() = maTab
    ComboBox1.ListIndex = 2
 
    'Sauvegarde des modifications et fermeture du classeur
    XlClas.Close True
    'On quitte Excel
    XlApp.Quit
    'On libère la mémoire des variables
    Set XlClas = Nothing
    Set XlApp = Nothing
 
End Sub

[Anthelm]

En fait, je suis parti de ce code la, trouvé sur le net et modifié un peu.
Il ajoute une ligne entre des valeurs dans un classeur excel, sans l'ouvrir.

Il vaut mieux utiliser On error resume next en début de macro je crois car sinon, Excel reste ouvert dans les processus (mais invisible)
Du coup, le fichier sera en lecture seule, car déjà utilisé par sa propre session! Il faut donc que la macro aille au bout, jusqu'à la fermeture d'Excel.

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
'Ecrire dans un classeur Excel existant
Sub EcritDansExcel()
 
'Variables
Dim XlApp, XlClas
Set XlApp = CreateObject("Excel.Application")
Dim FichierExcel As String
 
    'Fichier Excel À DEFINIR:
    FichierExcel = "C:\Users\****\Desktop\DossierTest\Essai\Try.xlsx"
 
'Ouverture du classeur
Set XlClas = XlApp.Workbooks.Open(FichierExcel)
 
 
    'Insérer une ligne
    XlClas.Worksheets("Feuil1").Rows("2").Insert Shift:=xlDown
 
    'Ecriture
    XlClas.Worksheets("Feuil1").Range("A2").Value = "Chantier"
    XlClas.Worksheets("Feuil1").Range("B2").Value = "Client"
    XlClas.Worksheets("Feuil1").Range("C2").Value = "Commentaire"
    XlClas.Worksheets("Feuil1").Range("D2").Value = Now()
 
'Sauvegarde des modifications et fermeture du classeur
XlClas.Close True
'On quitte Excel
XlApp.Quit
'On libère la mémoire des variables
Set XlClas = Nothing
Set XlApp = Nothing
 
End Sub