Discussion :

[labinocle81]

Bonjour je souhaite suite au telechargement d'un fichier, l'enregistrer a un emplacement fixe sur mon disque dur (C:\Temp) avec un nom fixe (csv_exploit.csv)

Pour le moment je telecharge comme ca

Ma fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub telecharger()
Dim strURL As String
strURL = "http://www.cti-sud.cnamts.fr/ctisud/cpam_versions.php?fic=1"
Workbooks.Open Filename:=strURL
End Sub

Mon Bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton2_Click()
Call telecharger
End Sub

J'aimerais incorporer a ce meme bouton l'enregistrement et la fermeture du fichier téléchargé

[Krovax]

Bonjour
Un peu de vocabulaire ce n'est pas une fonction mais une procédure, une fonction renvoie une valeur et est défini ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function(var1 as ....) as Variant

un code a tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub telecharger()
Dim strURL As String
dim W as workbook
strURL = "http://www.cti-sud.cnamts.fr/ctisud/cpam_versions.php?fic=1"
set W = Workbooks.Open(Filename:=strURL)
w.saveas ENVIRON("TEMP") & "\csv_exploit.csv"
'environ permet de récupéré la variable d'environnement du fichier temporaire mais tu peu directement utiliser
'w.saveas  "c:\Temp\csv_exploit.csv"
w.close false
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub CommandButton2_Click()
 telecharger
'je n'aime pas le call il force a utiliser des parenthèse qui ont un sens particulier lors d'un appelle direct
End Sub

[labinocle81]

Ca marche par contre il faut que je laisse le Call sinon rien ne se passe

Merci encore !

[Krovax]

Arf trop rapide j'avais édité pour rajouté les parenthèse mais visiblement trop tard.
Regarde la nouvelle version. Comme tu demande de renvoyer une valeur (avec le set = ) il faut les mettre. Et ne pas en mettre quand tu ne demande rien comme tu l'avais fait

[labinocle81]

Bon comme tu le vois sur mon post plus haut ca marche mais bien sur j'ai une autre question

Je veux lancer une macro qui va mettre une mise en forme mon petit csv et tous cela dans ma "procédure" (tu as vu que je retient mes erreurs )

2 questions se pose a moi

--> Le code pour inserer une macro devrait etre le suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub telecharger()
Dim strURL As String
Dim W As Workbook
strURL = "http://www.cti-sud.cnamts.fr/ctisud/cpam_versions.php?fic=1"
Set W = Workbooks.Open(Filename:=strURL)
Application.Run "MacroMiseEnFormeCSV"
W.SaveAs "c:\Temp\csv_exploit.csv"
'environ permet de récupéré la variable d'environnement du fichier temporaire mais tu peu directement utiliser
'w.saveas  "c:\Temp\csv_exploit.csv"
W.Close False
End Sub

C'etait la premiere question

Où réaliser la macro (dans quelle feuille, classeurs ou autre terme que je ne maitrise peut etre pas ...)

Voila pour la deuxieme

[Krovax]

Pourquoi utiliser application.run alors que juste avant tu utilisé call et que je t'ai dit que même le call est inutile?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set W = Workbooks.Open(Filename:=strURL)
MacroMiseEnFormeCSV

Par contre je pense que tu devrais signaler a ta macro sur quel classeur travaille et lui passer w en argument, normalement le dernier classeur ouvert est le classeur actif mais je ne sais pas comment tu compte te débrouiller au cas ou tu met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MacroMiseEnFormeCSV W

et tu met pour ta procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sub MacroMiseEnFormeCSV(W as workbook)

Sinon met ta macro dans un module standard