Un petit souci: ExecuteExcel4Macro

[YANN-56]

Bonsoir à tous

J'utilise ceci pour récupérer des valeurs dans certains fichiers ".xls"

Private Sub CommandButton1_Click()

'(A ne pas oublier de cocher "Microsoft ADO Ext. 2.7 for DDL and Sécurity dans les Références)

Feuille = " 'C:\BIBLIO\[AUTEURS]LIVRES"
'(AUTEURS étant le Classeur, et LIVRES la Feuille)
For i = 1 To 3

Worksheets("LISTE").Cells(5 + i, 3).Value = ExecuteExcel4Macro((Feuille) & "'!R" & i & "C" & 1)

Next i

End Sub

Cela fonctionne bien, mais dans mon projet, j’aimerais pouvoir
Remplacer « AUTEUR » par une variable « Public » définie dans
un évènement précédent
(Genre AUTEUR = UserForm1.ListView1.SelectedItem.Text)

J'ai épuisé une caisse de Guillemets et d'Apostrophes en vain...

Merci d'avance pour votre aide.

Bonne soirée.

Yann

 

[Compte Supprimé 979]

Re : Un petit souci: ExecuteExcel4Macro

Salut Yann-56,

Si dans une feuille de classeur tu fais référence à une cellule d'un autre classeur, tu obtiens la formuel suivante : =[Classeur1.xls]Feuil1!$A$1

De là, tu peux en tirer toutes les explications

Dans ton code, il te faut un truc du genre :

Private Sub CommandButton1_Click()
  ' Par rapport à la formule "'[Classeur1.xls]Feuil1"
  Feuille = "'C:\BIBLIO\[" & Auteur & ".xls]LIVRES"
  '(AUTEURS étant le Classeur, et LIVRES la Feuille)
  For I = 1 To 3
    Worksheets("LISTE").Cells(5 + I, 3).Value = ExecuteExcel4Macro((Feuille) & "'!R" & I & "C" & 1)
  Next I
End Sub

A+

 

[YANN-56]

Re : Un petit souci: ExecuteExcel4Macro

Bonsoir à tous,
Bonsoir BrunoM45

Merci à toi de m'avoir répondu.

A lire ta version, le Fichier "AUTEUR" correspondant à l'écrivain
(Chargé dans une liste préalable) ne semble pas être issu
d'une variable, mais d'un nom fixe de Classeur.

Sans doute ma demande manquait de clareté..

Je vais cependant tenter de remoudre ma bidouille en
utilisant ta syntaxe.

Merci encore,

Et bonne soirée

Yann

 

[Compte Supprimé 979]

Re : Un petit souci: ExecuteExcel4Macro

Re,

Non, je puis te l'assurer, il s'agit bien d'une variable !
Que tu auras par avant, initialisée par une instruction comme :

Auteur = UserForm1.ListView1.SelectedItem.Text

Voilà, très cher 😉

 

[YANN-56]

Re : Un petit souci: ExecuteExcel4Macro

Sans doute troublé de toujours mettre mes variables en MAJUSCULES
dans mes "Projets" ............

Je te rassure, je n'ai douté que de moi.

Il en va encore pour preuve de n'avoir pas su lire !!!

Yann...! Ecoute ce que l'on te dit.grrrrr!

Merci (x 2) Bruno, j'y retourne certain d'aboutir.

Bonne semaine et au plaisir.

Yann

 

[YANN-56]

Re : Un petit souci: ExecuteExcel4Macro

Un seul mot qui veut en dire plus: "Gagné"