Discussion :

[Léponge85]

Boujour encore moi lol

je suis sur la réalisation d'une macro et j'ai une erreur d'execution : objet requit
Je débute dans le VBA et j'oré besoin de vous pour m'aider a coriger ce probleme.
Voici le 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
Sub test()
 
Dim Nfeuille As Integer
 
 
Sheets.Add after:=Worksheets(Worksheets.Count)
Nfeuille = activesheets.Name
 
    For i = 1 To Sheets.Count - 1
 
        Sheets(i).Columns("D:D").Select.Copy Destination:=Sheets(Nfeuille).Range("E1")
    Next i
 
 
End Sub

Merci d'avance

[ouskel'n'or]

Il n'y a rien qui te choque ?

Dim Nfeuille As Integer
'...
Nfeuille = activesheets.Name

[Léponge85]

a oui OUPS
merci encore

[Léponge85]

Je viens de corriger mon erreur et ca me fait la même erreur : Objet requis
Peut tu m'aider stp
Merci

[Jean-Pierre49]

Plusieurs erreur

Test (pas testé)

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
Sub test()
 
Dim Nfeuille As String
Dim i As Integer
 
Sheets.Add After:=Worksheets(Worksheets.Count)
Nfeuille = ActiveSheet.Name
 
    For i = 1 To Sheets.Count - 1
 
        Sheets(i).Columns("D:D").Copy Destination:=Sheets(Nfeuille).Range("E1")
    Next i
 
 
End Sub

Tu dis

[Léponge85]

Merci de ton aide Jean Pierre je n'est plus d'erreur. Cependand cette macro doit normallement extraire une colonne d'une feuille vers une autre feuille et ca ne marche pas.
Peut tu m'aider stp.
Merci

[Jean-Pierre49]

Copier une colonne et essayer de la coller a partir d'une cellule, tu peux effectivement avoir un problème.

[Léponge85]

D'accord donc si je veux coller une colonne je doit la coller dans une autre colonne.
Donc je remet:

Code :

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

Columns("D:D")

a la place de:

Code :

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

Range("E1")

Merci encore

[Jean-Pierre49]

Oui par exemple

et comme tu copie une seule colonne

Code :

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

 Sheets(i).Columns("D").Copy Destination:=Sheets(Nfeuille).Columns("D")

[Léponge85]

Je viens d'essayer et ce ne marche pas.
Ca ne copie pas le contenu de la colonne vers une autre colonne d'une autre feuille

[Jean-Pierre49]

Le probleme que tu as :

Code :

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

1
2
3
    For i = 1 To Sheets.Count - 1
        Sheets(i).Columns("D").Copy Destination:=Sheets(Nfeuille).Columns("D")
    Next i

Fait que tu ecrase a chaque copie ce que tu avais copié avant:
le résultat tu copie sur ta NvFeuille la colonne de la précédente

Avant tu parlais de morceau de colonne (sur ton autre post)

[Léponge85]

Oui pour l'instant je fait des test comme je suis débutant sinon oui je doit faite une macro qui extrait une colonne d'une feuille cependant la colonne a extraire dans la même feuille n'est pas toujour la même.
J'avou pour moi qui suit debutant c'est compliker.


Si je veux l'extraire vers wordpad j'ai testé sa mais sa ne marche pas :

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
Sub test()
 
Dim Nfeuille As String
Dim i As Integer
Dim wordpad As word.Application
 
Sheets.Add After:=Worksheets(Worksheets.Count)
Nfeuille = ActiveSheet.Name
 
    For i = 1 To Sheets.Count - 1
            Set worpad = New wordpad.Application
            Sheets(i).Columns("D").Copy worpad
    Next i
 
 
End Sub

Peut tu m'aider stp je suis vraiment a la ramasse totale
Merci

[Jean-Pierre49]

La s'est sur ça va pas marcher.

La tu veux ecrire ds un fichier text
Plus de copier-Coller c'est tout autre chose.

Plus rien a voir avec le titre du post
Tu as de nombreux exemples sur le forum

Bon un petit exemple avec un fichier Csv (c'est pareil)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
                            Dim Appli                   As Object
                            Dim Ouverture               As Object
                            Dim CompA                   As Long
                            Dim Enregistrement          As String
 
    Set Appli = CreateObject("Scripting.FileSystemObject")
    Set Ouverture = Appli.OpenTextFile("C:\monfichier.Csv", 8)
 
        For CompA = 2 To Range("D65536").End(xlUp).Row
            Ouverture.Write Cells(CompA, 4) & vbCrLf
        Next CompA
    Ouverture.Close
DoEvents

Mais la je décroche (réunion oblige)

[Léponge85]

Merci pour ton aide mais serieux je comprend pas tout