Variable Non reconnue par ma Sub

Bonjour

J'ai un Userform dont le code est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click()   Dim FichierChoisi As String FichierChoisi = Application.GetOpenFilename   Dim j As Integer Dim con As ADODB.Connection   With con .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FichierChoisi & _ ";Extended Properties=""Excel 12.0;HDR=YES;""" .Open End With   Call ImportDonnées   End Sub

---

et j'ai ma sub nommée ImportDonnées contenue dans un module dont le code est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub ImportDonnées()   Dim wbContrepartie As Workbook Dim n3 As Integer   Set wbContrepartie = Workbooks.Open(FichierChoisi) Sheets(Feuil1).Select n3 = Workbooks("TP8").Sheets.Count Sheets(Feuil1).Copy After:=Workbooks("TP8.xlsm").Sheets(n3)   wbContrepartie.Close Set wbContrepartie = Nothing   Workbooks("TP8").Sheets(Feuil1).Select   End Sub

---

le problème c'est que ma macro s'arrête à ce niveau

Code:

---

Set wbContrepartie = Workbooks.Open(FichierChoisi)

---

en me disant que ma variable FichierChoisi n'est pas définie.

Je ne sais pas comment la déclarer dans ma sub. Merci de m'apporter votre aide.

Bonjour,

1- il faut passer le nom du fichier en parametre

Code:

---

1 2	Call ImportDonnées(FichierChoisi)

---

2- la syntaxe pour declarer le classeur FichierChoisi est:

Code:

---

1 2	Set wbContrepartie = Workbooks(FichierChoisi)

---

et non pas

Code:

---

1 2	Set wbContrepartie = Workbooks.Open(FichierChoisi)

---

Par contre il faut que le fichier "FichierChoisi" soit ouvert.

Et c'est justement parce que je veux l'ouvrir que je mets

Code:

---

Set wbContrepartie = Workbooks.Open(FichierChoisi)

---

je vais éssayer de le remplacer par

Code:

---

1 2	Set wbContrepartie = Workbooks(FichierChoisi) wbContrepartie.Open

---

et voir ce que ça donne. Mais il faut dabord que cette étape fonctionne

Code:

---

1 2	Call ImportDonnées(FichierChoisi)

---

En fait, il me remet le même code d'erreur à ce niveau quand je passe FichierChoisi en paramètre.

Code:

---

Call ImportDonnées(FichierChoisi)

---

Code:

---

1 2 3 4 5 6 7 8 9

Sub ImportDonnées(FichierChoisi As String) Set wbContrepartie = Workbooks.Open(FichierChoisi)   wbContrepartie.Sheets("Feuil1").Copy After:=Workbooks("TP8.xlsm").Sheets(Workbooks("TP8.xlsm").Sheets.Count)   wbContrepartie.Close False Set wbContrepartie = Nothing   End Sub

---

Si je ne me trompe pas, pour ouvrir un fichier on peut utiliser:

Code:

---

1 2	workbook.open(cheminFichier & nomFichier)

---

et une fois le fichier ouvert, tu peux le declarer

Code:

---

1 2	Set wbContrepartie = Workbooks(FichierChoisi)

---

Code:

---

Call ImportDonnées(cheminFichier & nomFichier)

---

exactement.
La variable FichierChoisi contient à la fois le chemin et le nom du fichier
entre autre

FichierChoisi=CheminFichier & NomFichier.

En fait j'ai toujours le même message d'erreur. En fait mon appelle de Sub

Code:

---

Call ImportDonnées(FichierChoisi)

---

est dans une Private Sub ListBox1_Click() soit j'ai ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub ListBox1_Click() Dim Feuil1 As String, i As Integer For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then Feuil1 = ListBox1.List(i) End If Next i   Call ImportDonnées(FichierChoisi, Feuil1)   End Sub

---

le problème c'est que si j'ajoute ceci

Code:

---

Dim FichierChoisi As String

---

dans ma private sub, il va m'initiliser la variable FichierChoisi

et lorsque je vais vouloir ouvrir mon fichier à partir d'ici

Code:

---

Set wbContrepartie = Workbooks.Open(FichierChoisi)

---

j'aurai un message d'erreur parce que FichierChoisi sera égal à ""

désolé de n'avoir pas mis le programme entier, je n'ai pas pensé que le problème aurai pu se matérialiser sur ma private sub.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Click() If ComboBox1.ListIndex <> -1 Then Feuil1 = ListBox1.List(ComboBox1.ListIndex) Call ImportDonnées(FichierChoisi, Feuil1) End If End Sub Sub ImportDonnées(FichierChoisi As String, Feuil1 As String) 'Code '.... End Sub

---

Donc si FichierChoisi = chemin + le nom du fichier il faut que tu mette dans une variable ton nom de fichier seul ( sans le chemin)

Code:

---

1 2 3

Set wbContrepartie = Workbooks(NomFichierChoisi)

---

D'après ton code, devrais-je changer ma ListBox par une ComboBox?

En fait je met le code dans la private sub ListBox_Click parce que ma lisbox contient des éléments, et ces éléments sont des noms de feuilles apartenant à un classeur.

L'utilisateur en cliquant sur un des noms de feuilles dans la ListBox permettra à ma sub ImportDonnées d'ouvrir mon classeur, de copier cette feuille et de l'insérer dans le classeur "TP8.xlsm"

Je ne sais pas si tu trouves mon idée bonne ou trop longue, mais c'est en fait ça que je veux ffaire.

J'aurai du juste faire ceci

Code:

---

1 2 3 4 5

Option Explicit Dim FichierChoisi As String 'définir ma variable en dehors de la private sub   Private Sub CommandButton1_Click() FichierChoisi = Application.GetOpenFilename

---

ensuite

Code:

---

Call ImportDonnées(FichierChoisi, Feuil1)

---

et enfin

Code:

---

Sub ImportDonnées(FichierChoisi As String, Feuil1 As String)

---

Merci pour vos aides.