[VBA] Probleme déclaration de variable

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:

---

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

Il n'y a rien qui te choque ?

Citation:

---

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

---

a oui OUPS
merci encore

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

Plusieurs erreur

Test (pas testé)

Code:

---

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

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

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

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

Code:

---

Columns("D:D")

---

a la place de:

Code:

---

Range("E1")

---

Merci encore

Oui par exemple

et comme tu copie une seule colonne

Code:

---

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

---

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

Le probleme que tu as :

Code:

---

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)

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:

---

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

La s'est sur ça va pas marcher. :mouarf:

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:

---

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)

Merci pour ton aide mais serieux je comprend pas tout