XL 2013 Insérer un fichier texte dans un dossier

coline741

XLDnaute Junior
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 :
choix dossier.png

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

VB:
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!
 

Pièces jointes

  • Macro_ini - Copie.xls
    61 KB · Affichages: 5
Dernière modification par un modérateur:

herve62

XLDnaute Barbatruc
Supporter XLD
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

VB:
 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
 
Dernière édition:

coline741

XLDnaute Junior
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

VB:
 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

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Junior
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!)
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo