MACRO enregister sous en CSV

Bonjour à tous, je débute le VBA je commence donc à pottaser votre forum

je souhaite réutiliser un code déjà présent ici :

https://forum.excel-pratique.com/excel/vba-enregistrer-sous-chemin-precis-t19887.html

( le poste de DAN)

MAIS EN L’adaptant ,

moi j'ai un excel avec plusieurs onglets, je souhaite que le dernier onglet puisse avoir une macro ( donc celle de DAN) pour que ca s'enregistre en CSV

j'ai donc repris son code

mais en mettant .csv à la place de xls..

mais marche pas

    Sub test()
    'Macro dan le 28/11/2010
    Dim fichier As String
    On Error Resume Next
    ChDir "C:\dossier1\dossier2"
    fichier = Application.GetSaveAsFilename( _
        fileFilter:="Excel Files (*.xls), *.xls")
    If fichier <> False Then ThisWorkbook.SaveAs fichier
    End Sub

comment faire

Bonjour,

GetSaveAsFilename ne permet pas de sauver un fichier mais seulement de récupérer un nom de fichier.. , revoit les options de SaveAs dans l'aide en ligne.

Ok ok.

qu'apelles tu l'aide en ligne?

j'ai tape SaveAs dans rechercher mais ca me sort les sujets du forum

J'ai regardé sur le forum j'ai trouver ce code que j'ai un peu adapté

    Sub ExtractEAM()
        Dim Tablot, iR%, i%, Tmp$, Sep$
        With Sheets("Extract to EAM")                    'On travaille directement sur la feuille export
       Sep = ";"
        iR = .Range("R65000").End(xlUp).Row  'Détermine la dernière ligne
       Tablot = .Range("R1:Z" & iR)          'Mémorise le tout dans un tableau
       Open "ExtractEAM.csv" For Output As #1
        For i = 1 To iR
          If Tablot(i, 9) <> "" Then          'Recopie uniquement les lignes du tableau <> ""
       Tmp = ""
          For k = 1 To 9
          Tmp = Tmp & CStr(Tablot(i, k)) & Sep
          Next
              Print #1, Tmp
        End If
        Next
        Close #1
    End With
    MsgBox "Extract to EAM EN .csv > OK !", vbInformation + vbOKOnly, "EXPORT DONNEES Extract to EAM"
    End Sub

ok cool ca marche si et seulement j'appuie dans l'onglet développeur sur MACRO.

comment faire pour avoir une fenêtre à l'ouverture du fichier pour qu'il demande d'autoriser les macros?

J'ai regardé sur le forum j'ai trouver ce code que j'ai un peu adapté

    Sub ExtractEAM()
        Dim Tablot, iR%, i%, Tmp$, Sep$
        With Sheets("Extract to EAM")                    'On travaille directement sur la feuille export
       Sep = ";"
        iR = .Range("R65000").End(xlUp).Row  'Détermine la dernière ligne
       Tablot = .Range("R1:Z" & iR)          'Mémorise le tout dans un tableau
       Open "ExtractEAM.csv" For Output As #1
        For i = 1 To iR
          If Tablot(i, 9) <> "" Then          'Recopie uniquement les lignes du tableau <> ""
       Tmp = ""
          For k = 1 To 9
          Tmp = Tmp & CStr(Tablot(i, k)) & Sep
          Next
              Print #1, Tmp
        End If
        Next
        Close #1
    End With
    MsgBox "Extract to EAM EN .csv > OK !", vbInformation + vbOKOnly, "EXPORT DONNEES Extract to EAM"
    End Sub

ok cool ca marche si et seulement j'appuie dans l'onglet développeur sur MACRO.

comment faire pour avoir une fenêtre à l'ouverture du fichier pour qu'il demande d'autoriser les macros?

Ps: en fait j'ai un deuxieme soucis, le fichier que je retrouve est bien en CSV mais il est vide