rhadamanthe
XLDnaute Junior
Bonjour a tous,
J'ai bien fait mes devoirs et ecrit un code qui me parait tres bien : helas il ne marche pas....
Dans la feuille liste, j'ai 205 clients pour lesquels je mets a jour un tableau MAJ que j'exporte en CSV. Rien de bien complexe.
Tout se met bien a jour increment par increment mais quand j'insere l'export en CSV (qui fonctionne aussi en independant) : ca ne marche plus. J'ai bien l'increment au niveau des noms mais plus la mise a jour de mon tableau de donnees, ce qui me donne 205 CSV avec un titre different mais le meme contenu...
Un oeil averti aurait il la bienveillance de m'indiquer ce qui cloche ?
Merci d'avance,
rhad
J'ai bien fait mes devoirs et ecrit un code qui me parait tres bien : helas il ne marche pas....
Dans la feuille liste, j'ai 205 clients pour lesquels je mets a jour un tableau MAJ que j'exporte en CSV. Rien de bien complexe.
Tout se met bien a jour increment par increment mais quand j'insere l'export en CSV (qui fonctionne aussi en independant) : ca ne marche plus. J'ai bien l'increment au niveau des noms mais plus la mise a jour de mon tableau de donnees, ce qui me donne 205 CSV avec un titre different mais le meme contenu...
Code:
Sub SaveAsCSV()
Dim strName As String
fin = Sheets("List").Range("A:A").Rows.Count
fin = Range("A" & fin).End(xlUp).Row
For i = 2 To fin
Code = Sheets("List").Range("A" & i)
Name = Sheets("List").Range("B" & i)
Sheets("List").[E4].Value = Code
'Rafraichissement des calculs
Sheets("MAJ").Select
ActiveWorkbook.RefreshAll
'Export en CSV
Application.ScreenUpdating = False
strName = ThisWorkbook.Path & "\" & Format(Date, "yy_mm_dd") & "_" & Code & "_" & Name & ".csv"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=strName, FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
'Fin d'export
CreateObject("Wscript.shell").Popup "File has been Created and Saved as: " & vbCr & strName, 1, "Copy & Save Report"
Next i
End Sub
Un oeil averti aurait il la bienveillance de m'indiquer ce qui cloche ?
Merci d'avance,
rhad