Discussion :

[Nad777]

Bonjour,

J'ai lu cette discussion.
Pour ma part, j'aimerais réaliser l'inverse. Si dans son exemple, il voulait toutes les feuilles sauf celle de "statistiques" comment peut-on modifier son codage??

De plus, j'ai essayé d'insérer à plusieurs endroits la fonction
PasteSpecial Paste:=xlPasteValues que j'ai trouvé dans une autre discussion, toutefois je ne sais pas exactement ou l'intégrer dans ce codage (je voudrais que les données récupérées dans ma "feuilcumul" soient sans formule).

Merci beaucoup, votre aide est grandement appréciée.

[fring]

Bonjour,

Tu peux essayer d'être un peu plus explicite sur ce que tu souhaiterais obtenir stp.

"Je voudrais copier les valeurs des cellules X à Z de la feuille Toto vers la feuille Titi à tel endroit"

Plus il y aura d'info, moins il y aura d'échange de messages avant d'arriver à une solution adéquate

[Nad777]

J'ai une situation similaire à Philoux34, mon codage est le même que celui donné par Ouskel'n'or (c'est la raison pour laquelle j'ai mis un lien à leur discussion). Toutefois, je veux que toutes mes feuilles que je récupère pour réaliser ma feuille cumulative soit collé en valeur (je ne veux pas avoir les formules). J'ai essayé d'inclure la fonction "paste special" mais ça ne fonctionne pas (j'imagine que je ne dois pas l'insérer au bon endroit).

De plus, le codage de Ouskel'n'or fait une copie de toutes les feuilles des classeur d'un répertoire. Je veux que mon classeur sommaire copie toutes les feuilles de mes fichiers de mon répertoire sauf la feuille instruction (qui se retrouve dans chacun des fichiers). Là aussi mes essais n'étaient pas très concluants...

Merci beaucoup, en espérant être plus explicite.

[ouskel'n'or]

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
Sub Copie(FL1 As Worksheet, Fichier)
Dim CL2 As Workbook
Dim FL2 As Worksheet
Dim i As Byte, Rep$, NoLigne As Long
 
     Set CL2 = Workbooks.Open(Fichier)
 
        'Parcours des feuilles de chaque classeur
        For Each FL2 In CL2.Worksheets
          If lcase(FL2.name) <> "instruction" Then 'à laisser en minuscules
            'Dernière ligne où coller les données copiées dans FL2
            NoLigne = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
 
            'Copie de la plage renseignée de chaque feuille du classeur
            FL2.Range(FL2.Cells(1, 1), _
                FL2.Cells(FL2.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row, _
                FL2.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row)).Copy
                FL1.Range("A" & NoLigne).pasteSpecial paste:=XlValues
            DoEvents
            Set FL2 = Nothing
          endif
        Next
        CL2.Close False 'fermeture du classeur copié
        DoEvents
        Set CL2 = Nothing
End Sub

Bonne soirée
A+

[AlainTech]

c'est la raison pour laquelle j'ai mis un lien à leur discussion

T'es gonflé...

C'est moi qui ai sorti ton message d'une discussion qui n'était pas la tienne.

[ouskel'n'or]

[Nad777]

Merci beaucoup,
Je vais essayer ce codage mais il devrait fonctionner et j'en suis très heureuse.

Je croyais qu'on pouvait ajouter des questions à une discussion existante (ce que j'avais fait), mais ce n'est pas le cas. Effectivement, je ne prendrai pas le crédit pour avoir moi-même fait le lien sur la discussion (désolé, car ce n'était pas mon intention). Merci AlainTech de l'avoir fait et je vais avouer franchement que je serai probablement incapable de le faire.

Merci à vous deux