Discussion :

[Zep37]

Bonjour à tous,

Dans Excel 2007, en VBA.

Je cherche à obtenir une chaine qui contienne lecaractère "

L'idée est d'avoir au final la chaine suivante (adresse, nomfichier sont des variables)

"TABLE","ADRESSE","NOMFICHIER",0




J'ai essayé """ & "TABLE" &.....

Merci pour l'astuce.

[ouskel'n'or]

Je ne sais pas ce que tu veux obtenir mais à tout hasard...

Code :

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

MsgBox """TABLE""" & "," & """ADRESSE""" & "," & """NOMFICHIER""" & "," & "0"

[ucfoutu]

Bonjour,

Je ne vois pas non plus où tu veux en venir....

A tout hasard, cependant : serait-ce pour alimenter un fichier texte ?
Si oui, il faut procéder autrement avec Open ....
Tu dis...

[Zep37]

Merci,

La question était mal posée, mais la réponse est bonne....


C'est effectivement pour créer un fichier texte par la suite.


Je fabrique en fait des fichiers DDF pour lire d'anciens fichiers Btrieve.

J'utilise Excel pour automatiser une partie du travail. Ensuite je n'ai plus qu'à faire un copier-coller et le tour est joué.

Merci pour vos réponses pertinentes et rapides.

[Maxence HUBICHE]

sinon, tu peux concaténer le caractère n°34

Code :

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

"Chaine 1" & chr(34) & "Chaine2" & chr(34)

donnera donc, en résultat

Code :

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

Chaine 1"Chaine2"

[ucfoutu]

Un fichier texte, hein ?... (ma boule de crystal n'est donc pas mauvaise) ...

Regarde ce que fais ceci

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  Open "c:\gloup.txt" For Output As #1
    Write #1, "toto", "tata", "titi"
  Close #1
End Sub

Lance puis ouvre c:\gloup.txt depuis l'esplorateur et observe ...

Et afin qu'il n'y ait aucune confusion dans ton esprit , regarde également ce ceci :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
  Dim toto As String, titi As String
  toto = "bonjour"
  titi = "salut"
  Open "c:\gloup.txt" For Output As #1
    Write #1, toto, titi
  Close #1
End Sub