Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment ecrire "coucou" dans un notepad

  • Initiateur de la discussion babou
  • Date de début
B

babou

Guest
Bonsoir le forum,
J'aimerais ecrire a partir de vba quelque chose dans notepad et refermer ce notepad en l'enregistrant sous un nom predefini.
J'ai trouve comment lancer notepad a partir d'xl : shell ("c:\winnt\notepad.exe").
Pourriez-vous m'aider svp ?
Merci de vos reponses.
Babou.
 
F

fahd

Guest
tien un bout de mon code, je ne sais pas si ca va marcher directement si tu l'insére, mais si tu l'arrange un peu je pense ca y ira
en gros ce code te permet d'ecrire la valeur "Interval_" ds un fichier TXT ki se nomme histoconfig.txt
ya deux methodes, une pour ecrire ds le fichier, et une autre pour lire a partir du fichier
les deux autres servent a encapsuler la valeur Interval_
si ta du mal mail moi, mais essaie de cherhcer sur le web avant
bonne chance et tien moi au courant

Option Explicit

Private interval_ As Long
Private Const HistoConfig = "HistoConfig.txt"

Public Sub SaveConfig()
Open HistoConfig For Output As #1
Write #1, Interval
Close #1
End Sub

Public Sub LoadConfig()
Dim MyInterval As Integer ' Declare variable.
MyInterval = 3600
On Error GoTo FileNotFound
Open HistoConfig For Input As #1
If Not EOF(1) Then
Input #1, MyInterval
End If
Close #1
Exit Sub
FileNotFound:
Interval = MyInterval
End Sub

Public Property Get Interval() As Long
Interval = interval_
End Property

Public Property Let Interval(iInterval As Long)
interval_ = iInterval
SaveConfig
End Property
 
C

capello

Guest
Bonjour le forum

un petit bout de code tout simple

Dim LogFile As String
Dim donnees
LogFile = ("C:\SoirCal.Log")
donnees = Now
Open LogFile For Append Shared As #1
Print #1, "Fermeture du fichier le : " & donnees; ""
Print #1, "----------------------------------------------------"
Close #1

Bonne soirée

A+CAPELLO
 
B

babou

Guest
Bonjour le forum et bonjour Fahd et Capello,
Merci bcp a vous deux pour ces deux propositions. Je viens de tester la soluce de capello et ca a l'air de fonctionner. Je vais tester celle de Fahd aussi. Je pense que je vais avoir un probleme avec les noms avec espace.
Je m'explique.
A l'aide d'un script vb, je construis un fichier xl. Jusque la, tout va bien.
Je le zip et c'est la raison pour laquelle j'avais besoin d'un fichier texte dans lequel j'ecris le nom du fichier xl a zipper. Or, ce nom de fichier contient des espaces. Ex: "D:\babou\Fichier test.xls". Quant je lance le shell avec les command line winzip, il me dit qu'il ne voit pas le fichier "Fichier.xls". J'en deduis qu'il a "oublie" la fin du nom de fichier. Avez-vous une idee sur la maniere de contourner ce probleme ?
Faut-il que j'ecrive le nom du fichier a la mode DOS (i.e. avec des "~") ?
Merci a toutes et a tous de votre aide.
Babou.
 
B

babou

Guest
Re,
J'ai oublie de preciser la commande que j'utilise pour lancer winzip :

Shell (CheminWinZip & "winzip32.exe -a " & NomArchive & " @" & QuelFichier)

Et en fait, le message d'erreur de winzip est le suivant :

"Error: No files were found for this action that match your criteria - nothing to do. (D:\babou\fichier.zip)"

sachant que :

CheminWinZip = "C:\Program Files\WinZip\"
NomArchive = "D:\babou\Fichier Test.zip"
QuelFichier = "D:babou\List1.txt"

Merci encor de votre aide dans cette impasse ou je me trouve.
A+.
Babou
 
F

fahd

Guest
essaie d'abord la commande que tu passes a shell sous Dos, pour voir si elle marche ou pas , car g l'impression ke shell reconnais les espace , la preuve il prend bien en considération l'option -a , ke tu lui a passé.
ben si ta commande fonctionne parfaitement sous dos, ben je suis désolé j'ai aucune idée, à part le fait de te conseillet d'aller voir sur le web, mais je pense que tu l'a dejas fait..
essaie ce forum peut etre que tu trouvera une solution
www.vbfrance.com
tu me tien au courant car ca m'interesse, car je compte utiliser la commande shell bientot ds mon projet
a+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…