problèmes code excel Fermé

Question

Bonjour à tous,  

Je viens vous voir car j'ai deux petits problèmes.  

Pour le premier, lorsque je clique sur mon bouton des nouveaux classeurs sont générés, correspondant au nombre de croix dans les cellules d'une colones.  
ex :  
X A  
1 X  
2  
3 X  
4 X  
5  

Donc 4 nouveaux classeurs doivent être ouvert, hors dans mon code il s'arrete au premier classeur qui souvre car c'est celui-ci qui devient actif et plus celui de base ou la recherche ce fait.  

Lorsque mon classeur s'ouvre je veux que les informations saisis dans mon classeur de base aille dedans.  

X A B  
1 x Merci  
2  
3 x Beaucoup  
4 x De votre aide  
5  

Voici mon code (qui regroupe les deux problèmes à la fois):  

Private Sub btn_valide_Click()  

Dim ligne As Integer  
Dim cel As String  
Dim nomFeuille As String  
Dim PTDM As String  

nomFeuille = ComboBox1.Value ' recupère la valeur de la liste  
For ligne = 9 To 22  
Worksheets(nomFeuille).Activate  

cel = "K" & ligne  

If Range(cel) = "x" Or Range(cel) = "X" Then  

cel = "A" & ligne  
If Range(cel) = "x" Or Range(cel) = "X" Then  
'croix dans la col A --> ouvrir ptdm  
PTDM = "C:\Documents and Settings\SML04891\Bureau\doc coor le mans\PTDM.xls"  
Application.Workbooks.Open PTDM  



End If

lermite222 · Answer

Bonjour,
Dans le code du bouton tu dois mettre .. par exemple Call OuvreClasseur
Et le corp de ta macro tu dois le mettre dans un Module Public (Module1 par exemple)
Avec
Public Sub OuvreClasseur()
    'Le code...
End Sub
A=

nordoc · Answer

Bonjour lermite, merci de te pencher sur mes problèmes ^^

je ne comprend pas tous ce que tu as marqué, dans quel ordre mettre tous ça, vu que apparement ça change pas mal la forme ce que tu me dis de faire

lermite222 · Answer

Si je te suis bien..et une chose à la fois. 
Dans la colonne K 
Les lignes 9 à 22 contiennent des noms de classeurs ? si oui, le chemin est compris ? 
Ensuite tu veux ouvrir les classeurs qui ont, dans la colonne ?? un X  ? 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques. 
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

lermite222 · Answer

Y a qu'ai chose qui me chiffonne..
Non dans ma colone K il y a des X, c'est à dire que à chaque fois que la boucle passe sur une ligne et qu'elle trouve un X, un nouveau classeur s'ouvre (ptdm.xls),
Tu ouvre chaque fois un nouveau classeur avec ce nom ???
Si oui, il écrase les autres.

lermite222 · Answer

Re,    
Pour couper court...    
Copie ce code dans l'événement Click du bouton.    
Private Sub CommandButton1_Click()    
Dim Lig As Long    
    For Lig = 9 To 22    
        If UCase(Range("K" & Lig)) = "X" Then    
            Workbooks.Open "C:\Documents and Settings\SML04891\Bureau\doc coor le mans\PTDM.xls" "    
            ThisWorkbook.Sheets("Feuil1").Range(Cells(Lig, 1), Cells(Lig, 10)).Copy Range("A1")    
            ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\SML04891\Bureau\doc coor le mans\PTDM" & Lig & ".xls"     
            ActiveWorkbook.Close    
        End If    
    Next Lig    
End Sub
Faut juste adapter les nouveaux noms de fichiers, le nom de la feuille et la/les plages à copier.   
A+    
Toute la connaissance du monde ne peu tenir dans une seul tête  (moi)    
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)    
NOTE : Je ne répond pas aux MP pour les questions techniques.    
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

lermite222 · Answer

Rectificatif : à partir d'un UF ça va plus.. changer par..
Private Sub CommandButton1_Click()
Dim Lig As Long, Wks As Worksheet
    Set Wks = ThisWorkbook.Sheets("Feuil1")
    For Lig = 9 To 22
        If UCase(Wks.Range("K" & Lig)) = "X" Then
            Workbooks.Open "C:\Documents and Settings\SML04891\Bureau\doc coor le mans\PTDM.xls"
            ActiveSheet.Range("A1").Resize(1, 9) = Wks.Cells(Lig, 1).Resize(1, 9).Value
            ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\SML04891\Bureau\doc coor le mans\PTDM" & Lig & ".xls"
            ActiveWorkbook.Close
        End If
    Next Lig
End Sub
(Merci à Eriiic !)
A+

Problèmes code excel

6 réponses