Csv

bonjour,

j'ai repris une macro mais je voudrais l'adapter pour qu'elle sauvegarde mon .csv dans le dossier actif.

actuellement je le retrouve dans mes documents

je comprend le code mais cette ligne signifie quoi ?

Open "toto.csv" For Output As #1

Sub Galopin()
Dim Tablo, iR%, i%, Tmp$, Sep$

With Sheets(1)                    'On travaille directement sur la feuille export

    Sep = ","
    iR = .Range("A65500").End(xlUp).Row  'Détermine la dernière ligne
    Tablo = .Range("A1:D" & iR)          'Mémorise le tout dans un tableau
    Open "toto.csv" For Output As #1
    For i = 1 To iR
      If Tablo(i, 4) <> "" Then          'Recopie uniquement les lignes du tableau <> ""
     Tmp = ""
      For k = 1 To 4
      Tmp = Tmp & CStr(Tablo(i, k)) & Sep
      Next
      End If
    Print #1, Tmp
    Next
    DoEvents
    MsgBox "C'est fini !"
    Close #1

End With

End Sub

merci de votre aide

Bonjour

Extrait de l'aide de Open (places le curseur sur Open et appuies sur F1)

Open, instruction

Permet d'exécuter une opération d'Entrée/Sortie (E/S) sur un fichier.

Syntaxe

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

La syntaxe de l'instruction Open comprend les éléments suivants :

Élément	Description
pathname	Expression de chaîne indiquant un nom de fichier — peut comprendre un nom de répertoire ou de dossier et un nom de lecteur.
mode	Mot clé indiquant le mode d'ouverture du fichier : Append, Binary, Input, Output ou Random. S'il n'est pas indiqué, le fichier est ouvert en mode Random.
access	Facultatif. Mot clé indiquant les opérations autorisées sur le fichier ouvert : Read, Write ou Read Write.
lock	Facultatif. Mot clé indiquant les opérations restreintes sur le fichier ouvert par d'autres processus : Shared, Lock Read, Lock Write et Lock Read Write.
filenumber	Numéro de fichier valide compris entre 1 et 511, inclus. Utilisez la fonction FreeFile pour obtenir le prochain numéro de fichier disponible.
reclength	Facultatif. Nombre inférieur ou égal à 32 767 (octets). Pour les fichiers ouverts en mode Random, cette valeur représente la longueur de l'enregistrement. Pour les fichiers séquentiels, elle représente le nombre de caractères contenus dans la zone tampon.

Tu peux indiquer dans cette instruction le chemin de ton fichier

Exemple

Open ThisWorkbook.Path & "\toto.csv" For Output As #1

bonjour,

c'est exactement cela

merci de ton aide