Discussion :

[MamaB]

Bonjour,
Je reviens sur mon sujet précèdent, je dois traiter un fichier HTML pour récupérer certaine données et les placées dans ma feuille principale en ajoutant un nouvel onglet.
Variable LMot correspond au nouvel onglet que j’ai crée dans mon classeur principal(fonctionne)
Variable Fichier correspond au fichier HTML(ouverture fonctionne)
Remarque, il se positionne correctement sur ma ligne, ce qui ne fonctionne pas la copie, sachant que dans la syntaxe de la copie la variable Monfichier correspond à l’onglet du fichier HTML et la variable Lmot correspond à l’onglet de ma feuille principal
Merci de votre retour sur mon problem

Voir code ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
            Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = LMot
 
            Workbooks.Open Fichier
 
            For I = 1 To Sligne
                If Range("a" & I).Value Like "Rule ID" = True Then
                    a = a + 1
                    Worksheets(MonFichier).Range("A" & I & ":" & "E" & I).Copy _
                            Destination:=Worksheets(LMot).Range("A" & a & ":" & "E" & a)
 
                End If
            Next I

[Theze]

Bonjour,

Plutôt qu'une boucle, je verrai bien un filtrage puis copie du résultat (je n'ai rien testé et il te faut adapter chemin et noms !) :

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
 
Sub Copier()
 
    Dim Cls As Workbook
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Fichier As String
    Dim LMot As String
 
    Fichier = "C:\Dossier\Mon classeur.xlsx" 'adapter
 
    LMot = "Nomfeuille" 'adapter
 
    Set Fe = ThisWorkbook.Worksheets.Add(, Sheets(Sheets.Count))
 
    Fe.Name = LMot
 
    Set Cls = Workbooks.Open(Fichier)
 
    'sur colonne A à partir de A1. Adapter le nom de la feuille cible (ici Feuil1)
    With Cls.Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    'filtrage
    Plage.AutoFilter 1, "Rule ID"
 
    'copie du résultat (avec les entêtes) sur la nouvelle feuille à partir de A1
    Cls.Worksheets("Feuil1").AutoFilter.Range.EntireRow.Copy Fe.Range("A1")
 
End Sub

[MamaB]

Bonsoir,

Je viens de tester ton code et cela me convient parfaitement et merci pour ton aide.
J’ai une question et si je veux garder le même format que ma cellule mère que je copie ?

Bien cordialement

[Menhir]

J’ai une question et si je veux garder le même format que ma cellule mère que je copie ?

Normalement, la méthode Copy utilisée ainsi copie aussi le format (excepté la taille de cellule).
Il faudrait que tu en dises plus sur ce qui ne se copie pas.