P
paul
Guest
Bonsoir a tous,
Voila en quette pour mon problème (pour rappel Insertion ligne...suite voir post <http://www.excel-downloads.com/html/French/forum/messages/1_59277_59277.htm>) et j'en profite pour demander encore une fois HELP ME PLEASE à tous les pros d'excel-downloads j'ai trouve ca :
Sub xl2php()
nom_fichier = "tempo.csv"
site_web="http://www.site.fr/page_contenant_script.php"
dossier = Environ("TEMP")
ChDir dossier
Range("A1").CurrentRegion.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
For i = 2 To Worksheets.Count
Worksheets(Worksheets.Count).Delete
Next i
ActiveWorkbook.SaveAs Filename:=nom_fichier, FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close
Shell ("ftp -i -n -v -s:comm_ftp.txt")
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate (site_web)
Do While IE.readystate <> 4
Loop
IE.Quit
End Sub
.... vous avez le descriptif avec la création pour la connexion ftp et ....tout le descriptif la : <http://cherbe.free.fr/xl2mysql.html>.
....en espèrant aider qq'un qui c'est posé la question (comme moi 😉) comment faire ......je vous souhaite une bonne nuit
PS : PENSEZ A MOI SVP 🙁
Voila en quette pour mon problème (pour rappel Insertion ligne...suite voir post <http://www.excel-downloads.com/html/French/forum/messages/1_59277_59277.htm>) et j'en profite pour demander encore une fois HELP ME PLEASE à tous les pros d'excel-downloads j'ai trouve ca :
Sub xl2php()
nom_fichier = "tempo.csv"
site_web="http://www.site.fr/page_contenant_script.php"
dossier = Environ("TEMP")
ChDir dossier
Range("A1").CurrentRegion.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
For i = 2 To Worksheets.Count
Worksheets(Worksheets.Count).Delete
Next i
ActiveWorkbook.SaveAs Filename:=nom_fichier, FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close
Shell ("ftp -i -n -v -s:comm_ftp.txt")
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate (site_web)
Do While IE.readystate <> 4
Loop
IE.Quit
End Sub
.... vous avez le descriptif avec la création pour la connexion ftp et ....tout le descriptif la : <http://cherbe.free.fr/xl2mysql.html>.
....en espèrant aider qq'un qui c'est posé la question (comme moi 😉) comment faire ......je vous souhaite une bonne nuit
PS : PENSEZ A MOI SVP 🙁
