petit soucis avec le vb sous excel

Bonjour, j’ai un souci, je dois faire un document Excel permettant de trier des données provenant d’un autre document Excel. Je dois importer la feuille ‘Cles Opale’ du classeur DWN15232 dans un autre classeur qui s’appelle ‘SUIVI_CLE_OPALE.xls. J’ai pour l’instant fait dans une macro un bout de code VB qui demande le chemin du fichier DWN15232 et qui l’ouvre, mais il ouvre une deuxième fois Excel alors que moi je souhaiterai qu’il crée une autre page de mon classeur SUIVI_CLE_OPALE et qu’il le mette là.

De plus je doit ensuite lire certaines colonnes de la feuille du classeur DWN15232, il y a dedans des noms de clients (qui apparaissent parfois plusieurs fois) et je compter le nombre de fois qu’il apparaissent et garder également l’agence à laquelle ils correspondent (c’est un nombre qui est dans une autre colonne de la feuille).

Voilà si quelqu’un peut m’aider, je suis preneur
Ps : j’espere etre clair 
Merci bien

Citation:

---

Envoyé par motard_fou

...
Ps : j’espere etre clair 
...

---

ben non tu aurai pu nous montrer un peu de code ...

Re-bonjour, alors comme ça je suis pas clair ;) .J’ai deux fichiers excel avec une feuille dans chaque fichier et je veux ouvrir la feuille du fichier B dans le fichier A.
Pour le moment j’ai crée deux boutons dans le fichier A, un ‘parcourir’ qui permet de demander le chemin du fichier a ouvrir , voici le code :

Code:

---

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

Private Sub bouton_parcourir_Click() 'ouvre la fenetre d'ouverture fichier Dim NomFichier NomFichier = Application.GetOpenFilename If VarType(NomFichier) = vbBoolean Then MsgBox "Action annulée" _ Else: MsgBox "Fichier sélectionné : " & NomFichier 'met le chemin du fichier selectionné dans la case e15 Range("d15").Value = NomFichier End Sub   Et un bouton ouvrir qui pour le moment ouvre le fichier B mais pas dans mon fichier A :   Private Sub bouton_ouvrir_Click() Dim chemin chemin = Sheets("menu").[d15].Value Dim Worbk As Workbook On Error Resume Next Set Worbk = Workbooks(chemin) On Error GoTo 0 If Worbk Is Nothing Then Workbooks.Open chemin _ Else: Set Worbk = Nothing End Sub

---

Malheureusement je débute en VB et donc je ne connaît pas grand chose….
D’ailleurs je ne comprend pas ce que fait cette ligne : « Set Worbk = Workbooks(chemin) »


En fin de compte j’ai trouver ce morceau de code sur un autre topic du forum, j’ai trouvé ceci :

Code:

---

1 2 3 4 5 6 7

Dim source As Workbook Dim nom As String nom = ThisWorkbook.Path & "\SUIVI_CLEF_OPALEtest graphique.xls" Set source = Application.Workbooks.Open(chemin) Workbooks(ThisWorkbook.Name).Activate source.Sheets(1).Copy ThisWorkbook.Sheets(1) source.Close

---

cependant il ouvre la nouvelle feuille(cles opale) avant les autres qui sont 'menu' et 'feuil2' et je souhaiterai qu’il s’ouvre en troisieme position

Citation:

---

Envoyé par motard_fou

...
cependant il ouvre la nouvelle feuille(cles opale) avant les autres qui sont 'menu' et 'feuil2' et je souhaiterai qu’il s’ouvre en troisieme position

---

ben si tu est sur que ton classeur de destination n'as que 2 feuilles..

Code:

---

source.Sheets(1).Copy after:=ThisWorkbook.Sheets(2)

---

;)

OUAIS merci ça marche 8-)


cependant vu que je debute, je ferais probablement a nouveau appel a vous