macro VBA pose problème demande aide Fermé

Question

Bonjour
je cherche actuellement une macro qui me permettrait de reporter des informations sur une feuille excel. cependant je n'arrive pas à conserver les informations que je reporte précedemment. voila mon code est ce que vous pouvez me dire si y a une erreure svp

'dans le classeur "Saisie" feuille "Paramètre"
Workbooks("Saisie.xls").Sheets("Paramètre").Activate
'recherche de la première ligne et enregistre tous les nom des fournisseur dans le fichier "Saisie.xls" onglet "Paramètre"
    ligne = 1
While Not IsEmpty(Cells(ligne, 1))
    ligne = ligne + 1
Wend
   Workbooks("Saisie.xls").Sheets("Paramètre").Cells(ligne, 9).Value = valeur

merci d 'avance

Configuration: Windows 2000 / Internet Explorer 5.5

Bidouilleu_R · Answer

ben! c'est normal!
explication ...

ligne = 1  ' là c'est ta variable
While Not IsEmpty(Cells(ligne, 1))  ' tant que la ligne n'est pas vide ...boucle
ligne = ligne + 1  ' incrémente 
Wend 
et je sort quand la ligne est vide ; )

Workbooks("Saisie.xls").Sheets("Paramètre").Cells(ligne, 9).Value = valeur 
' ici j'écris une ligne vide.

je suppose que tu voulais écrire la dernière ligne pleine parce que vide ça sert pas à grand chose.

j'aurai écris....
sub test()
      Range("a65535").End(xlUp).Select
      maValeur = activecell.value
      numligne=activecell.row
end sub

lermite222 · Answer

Bonjour,
'recherche de la première ligne et enregistre tous les nom des fournisseur dans le fichier "Saisie.xls" onglet "Paramètre"

Beh oui... Mais "tous les noms des fournisseurs" y sont où ?
A+

Bidouilleu_R · Answer

bon je reprends ... ton programme ne fais qu'écrire un vide et rien d'autres.
j'ai essayé de te l'expliquais.
mais je reconnais que je n'ai pas lu ton commentaire mis en évidence par lermite222 .

pour avancer ... tu dis ce qu'il y a dans la collone A B C D.... et I 

Ah oui! dans ton programme "valeur" n'est jamais renseigné.

gab · Answer

salut,

si j'ai bien compris ce que tu veux faire, voici une ou 2 pistes pour avancer un peu : il faut donc que ta macro ouvre tes 10 fichiers, dans ce cas la syntaxe c'est :Workbooks.Open Filename:="Chemin
omfichier1.xls" ensuite tu dois recuperer la valeur de chaque cellule A1 puis mettre cette valeur dans ton fichier de parametre : 
workbooks("Saisie".xls").Sheets("Paramètre").Range("A1").Value=workbooks("nomfichier1.xls").Sheets("nomfeuil").Range("A1").Value   et ainsi de suite. A partir de ca, tu peux faire une boucle pour ne pas repeter 10 fois la manip. Du genre :
Dim nomfic(10) as string
nomfic(1)= "chemin
omfichier1"
nomfic(2)= "chemin
omfichier2"
 ...
for i = 1 to 10
Workbooks.Open Filename:=nomfic(i) workbooks("Saisie".xls").Sheets("Paramètre").Range("A" & i).Value=workbooks(nomfic(i)).Sheets("nomfeuil").Range("A1").Value
next

je n'ai pas tester, donc a verifier et il faut aussi adapter en fonction de tes noms de fichiers... 
a+

gab · Answer

Salut pixel,
deja petite rectification, il y avait un guillemet de trop et une autre erreur :-) :
 
Dim repfic(10) as string 'ici tu declare un tableau contenant 10 chaines de caracteres : il s'agit du repertoire de chaque fichier
Dim nomfic(10) as string 'ici tu declare un tableau contenant 10 chaines de caracteres : il s'agit du nom de chaque fichier

'ici tu remplit ton tableau avec les noms de tes 10 fichiers..
nomfic(1)= "nomfichier1.xls" 
nomfic(2)= "nomfichier2.xls"
'ici tu remplit ton tableau avec les noms des repertoires de tes 10 fichiers..
repfic(1)= "repfichier1"
repfic(2)= "repfichier2"

 ...
'boucle sur les 10 fichiers:
for i = 1 to 10
'ouverture du fichier
Workbooks.Open Filename:=repfic(i) & "\" & nomfic(i) 
'on recupere la valeur qu il y a dans A1 et on la met dans le fichier paramètre ( il faut que tes 10 feuilles aient le meme nom sinon il faudrat un peu modifier le code...)
workbooks("Saisie.xls").Sheets("Paramètre").Range("A" & i).Value=workbooks(nomfic(i)).Sheets("nomfeuil").Range("A1").Value
next


a+ 
gab

lermite222 · Answer

Sur un poste plus haut tu dis...     
y son sur un fichier nommer "mensuel" onglet "Feuil1     
Donc : ce serait le classeur.. Mensuel.xls   sheets("Feuil1")  colonne "A"   ?     

Tu dis ensuite...    
J'ai 10 fichier excel sur lequel j'ai le nom d'un fournisseur ( qui se trouve dans la cellule A1 de tous les fichiers)     

Là il y a une contradictions entre tes deux versions, faudrait essayer d'être plus précis, et surtout plus clair.     
Répond POSEMENT et en REFLECHISSANT.     
Où sont les noms des clients que tu veux saisir ????     

Et jusqu'à présent, le but de la manoeuvre n'est toujours pas définit ??  

L'expérience instruit plus sûrement que le conseil. (André Gide)       
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

J'ai regardé tes deux classeurs,
en essayant de comprendre...
Mais Puiffff, que tu complique les choses... Pour faire une appli un peu complexe tu ferais bien d'abord d'un peu apprendre le VBA.
Pas besoin d'autant de classeurs que de fournisseurs, mémoriser toutes les données dans une feuille ligne par ligne en numérotant (ou pas) les fournisseurs.

Facile ensuite de retrouver quelque chose.
Avant de te lancer dans une appli tu doit savoir exactement ce que tu veux faire et pas avancer le nez en l'air.

Une piste pour te donner des idées !
A+

gab · Answer

J ai aussi regardé tes 2 classeurs (sans essayer de tout comprendre), j'ai fait un test et il y a bien la valeur fournisseur qui se stocke dans ta premiere ligne non vide de la feuille Paramètre (cad la valeur qui est entre dans une textbox=>  ca marche et je ne vois pas le lien avec le deuxieme fichier, puisque la valeur est recupéré d une textbox: UserForm1.TextBox17.Text, d autant plus que le 2eme fichier est créé après avoir ecrit la valeur dans la feuille paramètre)  ... je ne comprend pas ou est ton probleme (toujours pas....)

Macro VBA pose problème demande aide

8 réponses

Discussions similaires