Exporter valeurs de certaines cellules dans .csv avec sép

Bonjour au forum,

Je cherche à créer un code me permettant d'exporter la valeur de certaines cellules dans un fichier .csv ou .txt avec le point virgule comme séparateur (le but étant d'importer ensuite les données dans un automate).

C'est un fichier qui me permet d'analyser la qualité du LCR chez les patients, j'aimerais donc qu'à chaque nouvel export, le nom du fichier créé soit le numéro d'échantillon (ex : 023568.csv ou .txt)

J'ai testé plusieurs codes mais je ne trouve définitivement pas la solution...

Ci-joint un fichier exemple avec quelques explications.

Merci d'avance pour votre aide !

Nico.

EDIT : 20.10.2016 : j'ai modifié légèrement ma demande et remplacé le fichier joint car je me suis rendu compte que l'accès au code était protégé...

Bonjour,

As tu tenté la concatenation (&) ?

ca donnerait

=b10&";"&c23&";"c24&";"c25

Teten1

Bonjour Teten1,

Merci pour ta réponse mais j'ai besoin d'automatiser la manipulation, et donc de passer par une macro.

J'ai finalement trouvé une solution, pour ceux qui seraient interessés :

Sub Export()

  Close
  Chemin = "O:\blabla\Xantho - LH\"
  Fichier = ""Xantho - échantillon n° ".txt"
  Open Chemin & Fichier For Output As #1
  Print #1, Worksheets("Xantho").Range("B10")
  Print #1, Worksheets("Xantho").Range("C23")
  Print #1, Worksheets("Xantho").Range("C24")
  Print #1, Worksheets("Xantho").Range("C25")

  Close

End Sub