Crée un fichier .txt sans fenêtre à valider
Résolu
Esteban13
-
Christof422 Messages postés 871 Date d'inscription Statut Membre Dernière intervention -
Christof422 Messages postés 871 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis débutant, et bricoleurs.
Mon but est de crée l'arborescence (si elle n'existe pas) et de placer dedans plusieurs fichier .txt (vide) pour servir de modèle pour des vrai fichiers.
Les noms et les chemins sont prédéfinit par une codification sur une feuille de calcul Open Office.
J'arrive à faire cela, mais suivant la finalité du fichier à créer, je peux avoir jusqu'à 5 fichiers à créer (donc 5 fenêtres d'affilé à valider).
Je sollicite votre aide pour ne pas avoir l'affichage de la boite de dialogue "Enregistrer sous" et donc la validation du nom à effectuer par le bouton "Enregistrer".
Si ce n'est pas possible, il serait bien de crée au pire un seul fichier et de le copier/renommé (dans des répertoires de niveau différents), mais je n'arrive pas à le faire.
Merci
Je suis débutant, et bricoleurs.
Mon but est de crée l'arborescence (si elle n'existe pas) et de placer dedans plusieurs fichier .txt (vide) pour servir de modèle pour des vrai fichiers.
Les noms et les chemins sont prédéfinit par une codification sur une feuille de calcul Open Office.
J'arrive à faire cela, mais suivant la finalité du fichier à créer, je peux avoir jusqu'à 5 fichiers à créer (donc 5 fenêtres d'affilé à valider).
Je sollicite votre aide pour ne pas avoir l'affichage de la boite de dialogue "Enregistrer sous" et donc la validation du nom à effectuer par le bouton "Enregistrer".
Si ce n'est pas possible, il serait bien de crée au pire un seul fichier et de le copier/renommé (dans des répertoires de niveau différents), mais je n'arrive pas à le faire.
Merci
A voir également:
- Crée un fichier .txt sans fenêtre à valider
- Fichier bin - Guide
- Ethernet n'a pas de configuration ip valide - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Creer un fichier .bat - Guide
11 réponses
Petites précisions:
j'utilise LibreOffice (que je considère peut-être à tort comme identique à OOO)
j'ai mis le code avant Application.GetSaveAsFilename
mais la fenêtre de VB LibreOffice 3.5 me renvoie
************************
* Erreur de syntaxe BASIC. *
* Symbole inattendu::=. *
************************
et me surligne : displayAlerts
j'utilise LibreOffice (que je considère peut-être à tort comme identique à OOO)
j'ai mis le code avant Application.GetSaveAsFilename
mais la fenêtre de VB LibreOffice 3.5 me renvoie
************************
* Erreur de syntaxe BASIC. *
* Symbole inattendu::=. *
************************
et me surligne : displayAlerts
J'utilise l'éditeur de LibreOffice
Au début du fichier, (avant Sub) j'ai ajouté la ligne Option VBASupport 1
(par rapport à l'utilisation du code récupéré d'excel par endroit et je ne me rappel plus pour quelle fonction)
Si je l'écris comme cela: Application.displayAlerts=false
il ne m'indique pas d'erreur, mis j'ai quand même la fenêtre d'enregistrement qui apparait
Au début du fichier, (avant Sub) j'ai ajouté la ligne Option VBASupport 1
(par rapport à l'utilisation du code récupéré d'excel par endroit et je ne me rappel plus pour quelle fonction)
Si je l'écris comme cela: Application.displayAlerts=false
il ne m'indique pas d'erreur, mis j'ai quand même la fenêtre d'enregistrement qui apparait
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Alors, placé avant l'enregistrement, cela ne change rien.
Si je le place à la fin de la commande GetSave, je n'ai plus de fenêtre, mais il ne crée plus les fichiers.
voici un bout du code
Si je le place à la fin de la commande GetSave, je n'ai plus de fenêtre, mais il ne crée plus les fichiers.
voici un bout du code
Dim fFilename As String
Dim folder As String, path As String, nommage As String
Dim path_Index As String
With Worksheets("Macro")
C = Range("A2:A6")
End With
'creation Index
folder = Range("c_Index").Value
' nom fichier
nommage = Range("n_Index").Value
path = folder+nommage
MkDir (folder)
application.Saved=true '(sans effet)
fFilename = _
Application.GetSaveAsFilename(InitialFileName:=path, _
fileFilter:="Text Files (*.txt), *.txt",application.Saved=true)
Open fFilename For Output As #1
Close #1
Regarde ce lien, tu trouvera peut être une réponse.
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#enreg_oblige
Il ne faut pas utiliser la fonction getsaveasfilename car celle-ci affiche automatiquement cette boite de dialogue.
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#enreg_oblige
Il ne faut pas utiliser la fonction getsaveasfilename car celle-ci affiche automatiquement cette boite de dialogue.
Je crois que c'est là que s'arrête ma compréhension.
Si j'ai bien compris, cette macro fonctionne avec le bouton enregistrer.
-Si le fichier n'est pas dans c:\mes documents, il ouvre la boite de dialogue "enregistrer sous" dans c:\mes documents.
-Si le fichier est déjà dans le bon répertoire, il enregistre sans rien dire (ce qui est le fonctionnement normal)
En tout cas, je ne suis pas plus avancé car je ne sais pas l'appliquer à mon export.
Peut-être qu'il me faut me rabattre sur ma deuxième idée de n'en créer qu'un seul et de le copier/renommé.
Mais je ne trouve pas comment faire ces manip.... :-(
Si j'ai bien compris, cette macro fonctionne avec le bouton enregistrer.
-Si le fichier n'est pas dans c:\mes documents, il ouvre la boite de dialogue "enregistrer sous" dans c:\mes documents.
-Si le fichier est déjà dans le bon répertoire, il enregistre sans rien dire (ce qui est le fonctionnement normal)
En tout cas, je ne suis pas plus avancé car je ne sais pas l'appliquer à mon export.
Peut-être qu'il me faut me rabattre sur ma deuxième idée de n'en créer qu'un seul et de le copier/renommé.
Mais je ne trouve pas comment faire ces manip.... :-(
Open "C:\nomdetonfichier.txt" For Append As #1 'Cellule à copier Print #1, Cells(1, 1).Value Close #1