XL 2013 Insérer un fichier texte dans un dossier

[coline741]

Bonjour aux développeurs aguerris
La partie de macro ci-dessous ouvre le dossier Téléchargements. Elle se trouve dans un fichier de démarrage excel

Sub Chemin_Downloads()
Dim Downloads As String
Downloads = "C:\Users\user\Downloads"
Shell Environ("WINDIR") & "\explorer.exe " & Downloads, vbNormalFocus
…
Mais j'aimerais que cette fenêtre comporte une indication supplémentaire comme ceci :

Après choix du dossier, ouverture de celui ci et création d'un fichier texte nommé desktop.txt

Sub Desktop()
Dim numfich As Integer
Dim us As String, Fichier$
'creation du fichier vide = desktop.txt dans ThisWorkbook.Path ?
Fichier = ThisWorkbook.Path & "\desktop.txt"
If Dir(Fichier) = "" Then
    numfich = FreeFile
    Open Fichier For Output As #numfich
    Print #numfich, "[.ShellClassInfo]"
    Print #numfich, "IconResource=C:\WINDOWS\System32\SHELL32.dll,110"
    Print #numfich, "[ViewState]"
    Print #numfich, "Mode="
    Print #numfich, "Vid="
    Print #numfich, "FolderType = Music"
    Close #numfich
End If
End Sub

Le problème est que je n'arrive pas à trouver la commande pour ouvrir le dossier choisi, de plus la macro "Desktop" ne fonctionne que si elle se trouve dans le dossier choisi
et non dans le fichier de démarrage excel

Merci d'avance!

 

[herve62]

Bonsoir
ton fichier est corrompu ! de plus xls avec macro .... euh ?? xlsm plutôt non ?
sinon c'est le paramètre APPEND ( traduire Ajouter) qu'il faut utiliser
style par ex :
Au besoin Tu peux faire un inputbox ( variable )afin de demander le chemin pour OPEN

 FileNumber = FreeFile    ' Lit le numéro de fichier inutilisé du rep.
    LogFile = "C:\DATA\Report.txt"
    Open "C:\DATA\Report.txt " For Append As #FileNumber ' ICI  le APPEND
    Print #FileNumber, "Fin du traitement à : " & Now()
    Print #FileNumber, vbLf
    Print #FileNumber, "-----------------------------"
    Close #FileNumber

 

[coline741]

Bonsoir
ton fichier est corrompu ! de plus xls avec macro .... euh ?? xlsm plutôt non ?
sinon c'est le paramètre APPEND ( traduire Ajouter) qu'il faut utiliser
style par ex :
Au besoin Tu peux faire un inputbox ( variable )afin de demander le chemin pour OPEN

 FileNumber = FreeFile    ' Lit le numéro de fichier inutilisé du rep.
    LogFile = "C:\DATA\Report.txt"
    Open "C:\DATA\Report.txt " For Append As #FileNumber ' ICI  le APPEND
    Print #FileNumber, "Fin du traitement à : " & Now()
    Print #FileNumber, vbLf
    Print #FileNumber, "-----------------------------"
    Close #FileNumber

Merci, mais désolé je n'ai rien compris! Sans doute trop vieux

 

[herve62]

Bonjour
On ne peut pas ouvrir ton fichier > corrompu , donc message d' Excel qui bloque l'ouverture car ça dit : peut endommager votre ordinateur . Comme normalement ici dans ce forum les gens ne joignent pas de fichier "virus" !! j'ai quand même ouvert mais c'est vide
Et normalement un fichier avec des macros s'enregistre en ".xlsm" ( depuis office 2010)
Sinon c'est le bout de code à utiliser au moment de la création donc à mettre au bon endroit dans la macro
Voilà infos sup d'un autre vieux !!

 

[coline741]

Bullshit! Voici le fichier en xlsm. Je regrette xl 1.5 de 1989 ou 1990 et les versions suivantes. Les macros étaient réalisées avec les fonctions.

Mais sur ce site d'entraide on m'a dit que c'était obsolète! Alors je m'essaie malhabilement avec le vba grâce à l'amabilité et à la patience de contributeurs passionnés et performants. (cirage!)