copier ds un note pad

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 12 Avril 2006

• #2

Bonjour Bob

voici un code qui crée un fichier temp.txt dans le répertoire temporaire de windows et y écrit la colonne A.

Cordialement, A+

Code:

Sub essai()
    Dim Nom_Fichier As String, Cel_en_Cours As Range
    Nom_Fichier = Environ('TEMP') & '\\temp.txt'
    If Not (Dir(Nom_Fichier, vbNormal) = '') Then Kill Nom_Fichier
    On Error GoTo Fin
    Open Nom_Fichier For Output As #1
    For Each Cel_en_Cours In Range('A1:A' & Range('A65536').End(xlUp).Row)
        Print #1, Cel_en_Cours.Value
    Next Cel_en_Cours
    Close #1
    Exit Sub
Fin:
    Close #1
End Sub

 

Vote positif 0 Vote négatif

B

bob

Guest

• 12 Avril 2006

• #3

salut
peux tu m expliquer un peu ton programme je ne comprends pas ou il faut mettre le fichier notepad

 

Vote positif 0 Vote négatif

B

bob

Guest

• 12 Avril 2006

• #4

desolé 😱

 

Vote positif 0 Vote négatif

R

rno011

XLDnaute Nouveau

• 12 Avril 2006

• #5

mais comment j fais si la feuille que je veux copier n est pas celle sur laquelle je boss quand j lance ma sub essai. et si je ne veux pas le mettre ds temp mais ds un dossier plus complexe.


je lui ai mis:

Sub output_np()

Worksheets('ABQ_File').Select

Dim Nom_Fichier As String, Cel_en_Cours As Range
Nom_Fichier = Environ('work') & '\\temp.txt'
If Not (Dir(Nom_Fichier, vbNormal) = '') Then Kill Nom_Fichier
On Error GoTo Fin
Open Nom_Fichier For Output As #1
For Each Cel_en_Cours In Range('A1:A' & Range('A65536').End(xlUp).Row)
Print #1, Cel_en_Cours.Value
Next Cel_en_Cours
Close #1
Exit Sub
Fin:
Close #1
End Sub

il ne doit pas trouver work pourtant aucun message d erreur n est annoncé.

Message édité par: rno011, à: 12/04/2006 13:38

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 12 Avril 2006

• #6

Bonjour à tous

Pour ta première question:

Tu peut y mettre une selection de feuille avant le if du code:

Sheets('bla bla').activate


Temjeh

 

Vote positif 0 Vote négatif

B

bob

Guest

• 12 Avril 2006

• #7

ui c ce ke j ai fait avec le workhseet('abq_file').select mais mon ordi fait parti d un reseau et du coup il a plusieur disc. cependant le fichier dans lequel je travaille est le meme que celui dans lequel je veux envoyer le dossier

 

Vote positif 0 Vote négatif

B

bob

Guest

• 12 Avril 2006

• #8

salut j ai trouvé un dossier mais j comprends pas trop comment il faut que je l utilise [file name=FILES.zip size=352]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FILES.zip[/file]

 

Pièces jointes

• FILES.zip

  352 bytes · Affichages: 14
• FILES.zip

  352 bytes · Affichages: 20
• FILES.zip

  352 bytes · Affichages: 17

Vote positif 0 Vote négatif

B

bob

Guest

• 12 Avril 2006

• #9

j ai trouvé ca, a marche pas trop mal


Set fs = CreateObject('Scripting.FileSystemObject')
Set f = fs.createtextFile(ActiveWorkbook.Path + '\\' + abq_name + 'test.inp')

For j = 1 To i_cell + 180
f.writeline (Worksheets('ABQ_file').Cells(j, 1).Value)
Next

f.Close

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 12 Avril 2006

• #10

Re

tu mets le chemin avec le nom du fichier sur la variable Nom_Fichier.
Pour la feuille à copier, tu peux l'adresser directement, dans l'exemple
ThisWorkbook.Sheets(1)
définit la feuille 1 du classeur contenant la macro
sinon tu peux utiliser
Workbooks('nomclasseur').Sheets('Nomfeuille')

Cordialement, A+

Code:

Sub essai()
    Dim Nom_Fichier As String, Cel_en_Cours As Range
    Nom_Fichier = 'c:\\dossier\\temp.txt'
    If Not (Dir(Nom_Fichier, vbNormal) = '') Then Kill Nom_Fichier
    On Error GoTo Fin
    Open Nom_Fichier For Output As #1
    For Each Cel_en_Cours In ThisWorkbook.Sheets(1).Range('A1:A' & Range('A65536').End(xlUp).Row)
        Print #1, Cel_en_Cours.Value
    Next Cel_en_Cours
    Close #1
    Exit Sub
Fin:
    Close #1
End Sub

 

Vote positif 0 Vote négatif