Discussion :

[potenco]

Bonjours à tous
Alors voici mon petit soucis. Je n'arrive pas à créer un boucle pour copier un tableau dans plusieur feuilles excel . Voici mon début de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim Wb As Workbook
    Dim Ws As Worksheet
    Dim Cell As range
 
    For Each Wb In Application.Workbooks
     For Each Ws In Wb.Worksheets
 
        For Each Cell In Ws.range("a1")
            Cells.Select
            Selection.Copy
            Sheets("210100S-1").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,     SkipBlanks _
            :=False, Transpose:=False
 
            If Ws.Name = "210880" Then Exit For
           Next
         Next
    Next

Merci beaucoup de vos réponse .

[casefayere]

Bonjour le forum, potenco


Quelles sont les dimensions de ton tableau (de quelle cellule à quelle cellule) et dans quelle feuille ?

A partir de quelle cellule, les autres feuilles doivent recevoir les données ?
la feuill "210880" contient-elle ces données ?

[potenco]

Alors en faite j'ai pris une nouvelle voie pour mon projet je m'explique:

-je dois créer une macro qui à pour but d'ouvrir une requete
-Une fois cette requete ouverte je dois la copier dans mon classeur(donc copier/coller)
-Les dimension du tableaux depende de ma requete (donc aléatoire )
-je veux copier toute les cellules du tableaux(tableaux : TCD)

Premiers probleme que je rencontre à chaque fois que je lance ma macro il ouvre bien la requete mais veut pas la copier car la requete s'ouvre dans un nouveaux classeur a chaque fois donc il reconnais pas le numero du classeur car celui si change a chaque fois

je met le code ici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Macro1()
'
' Macro1 Macro
'
 
'
    ChDir "O:\gti\Requête excel\plannif"
    Workbooks.OpenDatabase Filename:= _
        "O:\gti\Requête excel\plannif\testplanif.dqy", CommandText:=Array( _
        "SELECT `EXTRACTION$`.SSAA_Fab, `EXTRACTION$`.OF_LIG_IND, `EXTRACTION$`.Lig_Nomenc, `EXTRACTION$`.Qte_Cde, `EXTRACTI" _
        , _
        "ON$`.Del_expé, `EXTRACTION$`.Code_PF, `EXTRACTION$`.N_Plan, `EXTRACTION$`.`Designat°`, `EXTRACTION$`.Tps_Prevu, `EX" _
        , _
        "TRACTION$`.Tps_Real, `EXTRACTION$`.Reste_Fab, `EXTRACTION$`.Valeur_Cde, `EXTRACTION$`.Stock_PF, `EXTRACTION$`.Nom, " _
        , _
        "`EXTRACTION$`.Client, `EXTRACTION$`.Ref_Cde1, `EXTRACTION$`.Code_Barre  FROM `O:\gti\production1`.`EXTRACTION$` `EX" _
        , "TRACTION$`  WHERE (`EXTRACTION$`.Code_Compo=?)"), CommandType:=xlCmdSql, _
        ImportDataAs:=xlTable
 
    Cells.Select
    Selection.Copy
      ActiveWindow.WindowState = xlMinimized
    ActiveWindow.WindowState = xlMaximized
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.WindowState = xlMinimized
    Windows("Classeur11").Activate
    ActiveWindow.Close
    ActiveWindow.WindowState = xlMaximized
 
 
end sub

Merci pour le moderateur qui a changer mon message de rubrique et mis mon code dans une fenetre pour le post .
Merci de vos réponse j'essais d'etre le plus clair possible alors heisitez pas a demander des complément d'information .