Créer un fichier : cas épineux

[Joyeux Ragondin]

Bonjour,

En bref, je n'arrive pas, depuis Excel, à créer dans C:\temp un fichier texte avec un contenu variable.

L'opération devrait être totalement transparente pour l'utilisateur, et le ticket ID est contenu dans une cellule de ma feuille.

Dans ma feuille :
en C1 : HD01111111
en C2 : HD02222222
en C3 : HD03333333
en C4 : HD04444444

si l'utilisateur clique sur c3 j'aimerais créer un fichier qui contient :

[Shortcut]
Name = HPD:HelpDesk
Type = 0
Server = art_prod3
Ticket = HD03333333

Le pire, c'est que ce fichier (texte) devrait avoir l'extension .ARTask

Merci à tous, je pédale dans le yaourt
JR

 

[Hervé]

Re : Créer un fichier : cas épineux

bonjour

pas sur d'avoir compris, mais ce type de code crée un fichier nommée test.ARTask dans le répertoire temp;

il inscrit ensuite ton texte et place pour le Ticket la valeur de la cellule C3

Sub Bouton1_QuandClic()

Open "c:\temp\test.ARTask" For Output As #1
Print #1, "[Shortcut]"
Print #1, "Name = HPD: HelpDesk"
Print #1, "Type = 0"
Print #1, "Server = art_prod3"
Print #1, "Ticket = " & Range("c3")
Close

End Sub

salut

 

[Joyeux Ragondin]

Re : Créer un fichier : cas épineux

Ca marche super, merci beaucoup Hervé.

Pour les intéressés, voilà le résultat final :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column = 3) Then
valTicket = Selection.Value
nameOfFile = "c:\temp\" & Selection.Value & ".ARTask"
Open nameOfFile For Output As #1
Print #1, "[Shortcut]"
Print #1, "Name = HPD: HelpDesk"
Print #1, "Type = 0"
Print #1, "Server = art_prod3"
Print #1, "Ticket = " & valTicket
Close
End If

Bonne soirée à tous,
JR