|
|
|
|
|
bonjour
dans vba lorsque tu mets une formule par exemple : ActiveCell.FormulaR1C1 = SI(C7="";"";RANG(C7;C$3:C$27;0)) elle ne fonctionne pas. mais celle ci fonctionne : ActiveCell.FormulaR1C1 = SI(C7="","",RANG(C7,C$3:C$27,0)) car vba ne connait pas ; et exige , de toute façon si ton fichier CSV est avec virgule, cela ne l'empêche pas de fonctionner. toujours zen |
|
Merci pour ta réponse mais le pb est que j' ai absolument besoin de ";" comme séparateur pour un upload ultérieur. QQ1 connait-il le moyen de choisir le séparateur à l'enregistrement par macro au format csv ???
Merci |
|
Bonjour,
pb résolu : Sub SaveAsCSV(période) Dim Range As Object, Line As Object, Cell As Object Dim StrTemp, chemin As String Dim Separateur As String chemin = ThisWorkbook.Path & "" Separateur = ";" Set Range = ActiveSheet.UsedRange Open chemin & "JDEreport" & période & ".csv" For Output As #1 For Each Line In Range.Rows StrTemp = "" For Each Cell In Line.Cells StrTemp = StrTemp & CStr _ (Cell.Text) & Separateur Next Print #1, StrTemp '= " " Next Close End Sub Merci qd même, Tom |
Résultats pour [Excel vba]enregistrement au format csv
Résultats pour [Excel vba]enregistrement au format csv
Résultats pour [Excel vba]enregistrement au format csv
Résultats pour [Excel vba]enregistrement au format csv
Résultats pour [Excel vba]enregistrement au format csv