Macro pour Copie de Excel vers NotePade++

[pmfontaine]

Bonjour,
Mon message : Excel et la programmation en php - 19/01/2006 13:37 n’ayant eu aucune réponse, je le reformule sous un autre titre en espérant inspirer quelques-uns un d’entre vous.
J’ai mis un fichier exemple pour être plus explicite.
Mon but est donc d’automatiser la copie des colonnes de la feuille Excel vers Notepad++
Copie colonne A collage dans Notepad++ puis copie de la cellule A164 et enregistrement de Notepad++ sous le nom copié en A164 (pour colonne A : A164 = « base_fleur_aconitnapel.php »
Puis recommencer pour colonne B puis C, D,.. …….etc.
J’en ai environs 300 à faire.
Merci de me dire si cela n’est pas possible.
Merci d’avance pour votre aide.
Patrick [file name=Excel_et_notepad.zip size=26306]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Excel_et_notepad.zip[/file]

 

[SKYMAN]

Bonjour,

Ceci n'est pas un macro Excel mais un script Vbs, elle peut etre facilement importer dans excel

Set fso = CreateObject('Scripting.FileSystemObject')
Set Excel_Objet = CreateObject('Excel.Application')
Set out=Fso.CreateTextFile('base_fleur_aconitnapel.php', True)
Excel_Objet.Visible = True
Excel_Objet.DisplayAlerts = False
Excel_Objet.Workbooks.Open ('detailparfleur.xls'), , True ' On Ouvre Le Fichier Excel En Lecture Seul
For Colone =1 to 10
        For Ligne=1 To 164
            Out.Writeline Excel_Objet.Sheets(1).Cells(Ligne, Colonne).Text
        Next
Next
Out.close

Excel_Objet.ActiveWindow.Close
Excel_Objet.Quit
Excel_Objet.DisplayAlerts = True
Excel_Objet.Visible = True

cela devrais t'aider

 

[pmfontaine]

Merci SKYMAN pour ton aide, mais en faite j'ai un collègue qui a résolu mon problème avec :

Private Sub CommandButton1_Click()
' Déclaration des variables
Dim i, j As Integer
Dim str, nom_fichier As String
Dim f, fs
' Déclaration des constantes
Const Chemin = 'C:\\temp\\'
Const NombreColonnes = 2
Const NombreLignes = 165

' Code
On Error Resume Next
Set fs = CreateObject('Scripting.FileSystemObject')
For i = 1 To NombreColonnes
' On crée le fichier
nom_fichier = Chemin + ActiveSheet.Cells(NombreLignes - 2, i).Text
Set f = fs.CreateTextFile(nom_fichier, True)
' On écrit dedans
For j = 1 To NombreLignes
str = ActiveSheet.Cells(j, i).Text
f.writeline str
Next j
' On ferme le fichier
f.Close
Next
MsgBox 'Fin de création des fichiers...'
End Sub