Discussion :

[aalex_38]

Re,

d'après ce que j'ai compris, tu veux mettre un bouton sur la feuille.

Le code du bouton :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
test_copieI
End Sub

Nb: Joint,un exemple qui fonctionne a adapter

[baricot]

je pense que t'es bon et c'est moi qui bugge

quel est la syntaxe de ca exactement
' Nomc = "C:\XXX\YYYl\" ' Mettre ici le chemin [
nomc = ThisWorkbook.Path
']

moi je dois atteindre le dossier
E:\DATAS\3 - production\rapport exploitation\rapports journaliers de production\2009


??

je pensais avoir bien compris apparement pas ...

[aalex_38]

Re,

Supprime toutes ces lignes et remplace par :

Code :

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

nomc = "E:\DATAS\3 - production\rapport exploitation\rapports journaliers de production\2009"

[baricot]

c'est ok

Mais en fait ce que je ne comprends pas c'est que lorsque je clique sur le bouton la listbox s'ouvre très bien. jusque la tout va bien, seulement après il devrait me demander quel onglet du classeur qui s'est ouvert je veux avoir et ensuite copier les cellules E9:E35 sur ma feuille a moi ou j'ai mon bouton.

Le programme fait seulement ouvrir un classeur (que j'ai sélectionné et stop)


Je suis désolé d'etre aussi empoté...

[aalex_38]

Dis mois ce que ça donne avec le fichier joint sans faire de modif dans un premier temps


Edit : je dois y aller, en attendant regarde ce qui se passe, si tu as des problèmes regardes dans les tutoriaux, par exemple :

http://silkyroad.developpez.com/VBA/DebuterMacros/

http://bidou.developpez.com/article/VBA/

[baricot]

ca ouvre bien le classeur, ca me demande bien l'onglet mais ca ne l'affiche pas et surtout ca ne me copie pas les valeurs dans mon nouveau tableau (la ou se trouve mon bouton)


je vais lire ce que tu m'as envoyé tranquillement ce soir pour plus à l'aise

merci

[aalex_38]

Re,

En fait le classeur est ouvert pour pouvoir copier les données, peux-tu me préciser de ou vers ou ?

L'onglet ne s'affiche pas mais c'est bien celui-ci qui est activé.

Rentre dans la procédure Traiter_onglet avec le deboggeur en mode pas à pas et tu verras que l'on traite bien l'onglet choisi.
Pour l'afficher il suffit d'utiliser la méthode activate.

Comme je l'avais mis en commentaire, le code est à adapter, dans ce que j'avais compris et c'est le code qui est en place pour l'instant, tu copies la plage "E9:E35" de l'onglet choisi dans la même plage de ton document, j'ai mis Worksheets(1) mais il vaut mieux mettre le nom de la feuille.
Dis moi ce que tu veux faire.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Traiter_onglet(ByVal Nomonglet As String)
 
Dim Fl As Worksheet
Set Fl = ActiveWorkbook.Worksheets(Nomonglet)
Fl.activate 'ajout de activate 
' a adapter
Fl.Range("E9:E35").Value = ThisWorkbook.Worksheets("nomdelafeuille").Range("E9:E35").Value 'ici ce que tu veux faire, peut être ) adapter copie dans le classeur que tu viens d'ouvrir de la plage de la feuille 1 de ton classeur actuel
Unload UserForm1
End Sub