Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sauvegarder en txt

Sauvegarder en txt

17 réponses
Avatar
Ayrton [ASC]
Bonjour à tous,

Voilà, je viens de finir une application qui tourne bien ; pour terminer
et faciliter la vie aux utilisateurs, j' aimerais qu'ils puissent faire
une sauvegarde e nfichier texte en cliquant sur un bouton.
J'ai bien mis le bouton mais je sèche sur la syntaxe.
Voici ce que j'iamerais bien faire :
L'utilisateur ouvre le classeur , fait sa saisie et rempli les cellules
concernées et avant de quitter il click sur le bouton et cela crée un
fichier texte de ce qu'il vaint de faire ; j'aimerai que ce fichier se
place directememt dans un repertoire ( par ex ; C;\Documents And
Settings\Axe\Mes documents\Sauvegarde Excel ) ; l'ideal serait que le
nom du fichier ait la même valeur que la cellule B12 ( Par 3012.txt ).
Si je demande ça, c'est que la cellule B12 affiche un nouveau numéro
systématiquement à chaque ouverture de classeur.

Je ne sais pas si j'ai été bien clair ;-) et surtout est ce que je
demande est réalisable ? J'ai besoin d'un petit coup de main car je ne
maîtrise pas assez VBA pour me débrouiller tout seul pour ça.

Un grand merci d'avance à vous.

Bonne fêtes de fin d'année à vous tous

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
isabelle
bonjour Ayrton,

ActiveWorkbook.SaveAs Filename:= _
"C;Documents And SettingsAxeMes documentsSauvegarde Excel& [B12] & _
", FileFormat:=xlText, CreateBackup:úlse

isabelle, qui souhaite à tous un très joyeux temps des fêtes.


Bonjour à tous,

Voilà, je viens de finir une application qui tourne bien ; pour terminer
et faciliter la vie aux utilisateurs, j' aimerais qu'ils puissent faire
une sauvegarde e nfichier texte en cliquant sur un bouton.
J'ai bien mis le bouton mais je sèche sur la syntaxe.
Voici ce que j'iamerais bien faire :
L'utilisateur ouvre le classeur , fait sa saisie et rempli les cellules
concernées et avant de quitter il click sur le bouton et cela crée un
fichier texte de ce qu'il vaint de faire ; j'aimerai que ce fichier se
place directememt dans un repertoire ( par ex ; C;Documents And
SettingsAxeMes documentsSauvegarde Excel ) ; l'ideal serait que le
nom du fichier ait la même valeur que la cellule B12 ( Par 3012.txt ).
Si je demande ça, c'est que la cellule B12 affiche un nouveau numéro
systématiquement à chaque ouverture de classeur.

Je ne sais pas si j'ai été bien clair ;-) et surtout est ce que je
demande est réalisable ? J'ai besoin d'un petit coup de main car je ne
maîtrise pas assez VBA pour me débrouiller tout seul pour ça.

Un grand merci d'avance à vous.

Bonne fêtes de fin d'année à vous tous

Cordialement



Avatar
isabelle
bonjour Ayrton,

ActiveWorkbook.SaveAs Filename:= _
"C;Documents And SettingsAxeMes documentsSauvegarde Excel" & [B12] & _
, FileFormat:=xlText, CreateBackup:úlse

isabelle, qui souhaite à tous un très joyeux temps des fêtes.

Bonjour à tous,

Voilà, je viens de finir une application qui tourne bien ; pour
terminer et faciliter la vie aux utilisateurs, j' aimerais qu'ils
puissent faire une sauvegarde e nfichier texte en cliquant sur un bouton.
J'ai bien mis le bouton mais je sèche sur la syntaxe.
Voici ce que j'iamerais bien faire :
L'utilisateur ouvre le classeur , fait sa saisie et rempli les
cellules concernées et avant de quitter il click sur le bouton et cela
crée un fichier texte de ce qu'il vaint de faire ; j'aimerai que ce
fichier se place directememt dans un repertoire ( par ex ;
C;Documents And SettingsAxeMes documentsSauvegarde Excel ) ;
l'ideal serait que le nom du fichier ait la même valeur que la cellule
B12 ( Par 3012.txt ).
Si je demande ça, c'est que la cellule B12 affiche un nouveau numéro
systématiquement à chaque ouverture de classeur.

Je ne sais pas si j'ai été bien clair ;-) et surtout est ce que je
demande est réalisable ? J'ai besoin d'un petit coup de main car je ne
maîtrise pas assez VBA pour me débrouiller tout seul pour ça.

Un grand merci d'avance à vous.

Bonne fêtes de fin d'année à vous tous

Cordialement





Avatar
Ayrton [ASC]
Bonjour *isabelle*
Dans ton message de
news:,
tu nous envoyais cette missive :-(*)

bonjour Ayrton,


Bonjour Isabelle,

ActiveWorkbook.SaveAs Filename:= _
"C;Documents And SettingsAxeMes documentsSauvegarde Excel& [B12]
& _ ", FileFormat:=xlText, CreateBackup:úlse


Merci 1000 fois pour cette aide et cette rapidité ;-)

isabelle, qui souhaite à tous un très joyeux temps des fêtes.


Moi aussi je vous souhaite à tous de très bonnes fêtes de fin d'année

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

Avatar
Ayrton [ASC]
Bonjour *isabelle*
Dans ton message de
news:,
tu nous envoyais cette missive :-(*)
bonjour Ayrton,


Re Isabelle,

ActiveWorkbook.SaveAs Filename:= _
"C;Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12] & _ , FileFormat:=xlText, CreateBackup:úlse


J'ai un messge d'ereur ! Ca me génère " Erreur de Compilation " et
lasyntaxe se met en rouge avec un carré gris autour de lapremière
virgule ( entre le _ et FileFormat ).
Je ne sais pas trop quoi faire......

Merci

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

Avatar
Daniel
Bonsoir.
Essaie :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents And SettingsAxeMes documentsSauvegarde Excel" & [B12],
_
FileFormat:=xlText, CreateBackup:úlse
Cordialement.
Daniel
"Ayrton [ASC]" a écrit dans le message de news:
%23x5inB$
Bonjour *isabelle*
Dans ton message de
news:,
tu nous envoyais cette missive :-(*)
bonjour Ayrton,


Re Isabelle,

ActiveWorkbook.SaveAs Filename:= _
"C;Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12] & _ , FileFormat:=xlText, CreateBackup:úlse


J'ai un messge d'ereur ! Ca me génère " Erreur de Compilation " et
lasyntaxe se met en rouge avec un carré gris autour de lapremière virgule
( entre le _ et FileFormat ).
Je ne sais pas trop quoi faire......

Merci

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm





Avatar
Ayrton [ASC]
Bonjour *Daniel*
Dans ton message de
news:eyH%23Is$,
tu nous envoyais cette missive :-(*)
Bonsoir.


Bonsoir Daniel ;-)
Essaie :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12], _
FileFormat:=xlText, CreateBackup:úlse


Merci encore une fois pour ton aide ; j'ai pris ta syntaxe mais ce coup
ci j'ai une belle fenêtre qui s'ouvre avec une croix rouge et 400 ( je
pense que ça doit vouloir dire Erreur 400 ).
Le problème est que si je click sur Aide, je n'ai rien ; juste une
fenêtre blanche ;-(
A titre d'info, dans " ThisWorkbbook " j'ai fait :
Sub Test ()
ActiveWorkbook.SaveAs Filename:= _
"C:Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12], _
FileFormat:=xlText, CreateBackup:úlse
End Sub

Volià, c'est toutes les infos que je peux donner.
pour l'instant, je galère.......

Merci quand même
Bonne fin de soirée

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm






"Ayrton [ASC]" a écrit dans le message de news:
%23x5inB$
Bonjour *isabelle*
Dans ton message de
news:,
tu nous envoyais cette missive :-(*)
bonjour Ayrton,


Re Isabelle,

ActiveWorkbook.SaveAs Filename:= _
"C;Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12] & _ , FileFormat:=xlText, CreateBackup:úlse


J'ai un messge d'ereur ! Ca me génère " Erreur de Compilation " et
lasyntaxe se met en rouge avec un carré gris autour de lapremière
virgule ( entre le _ et FileFormat ).
Je ne sais pas trop quoi faire......

Merci

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm





Avatar
Daniel
Rendons à César ce qui est à César, j'ai simplement corrigé une faute de
frappe dans le code d'Isabelle.
Par contre, ce code fonctionne correctement chez moi.
Cordialement.
Daniel
"Ayrton [ASC]" a écrit dans le message de news:
ecidu7$
Bonjour *Daniel*
Dans ton message de
news:eyH%23Is$,
tu nous envoyais cette missive :-(*)
Bonsoir.


Bonsoir Daniel ;-)
Essaie :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12], _
FileFormat:=xlText, CreateBackup:úlse


Merci encore une fois pour ton aide ; j'ai pris ta syntaxe mais ce coup ci
j'ai une belle fenêtre qui s'ouvre avec une croix rouge et 400 ( je pense
que ça doit vouloir dire Erreur 400 ).
Le problème est que si je click sur Aide, je n'ai rien ; juste une fenêtre
blanche ;-(
A titre d'info, dans " ThisWorkbbook " j'ai fait :
Sub Test ()
ActiveWorkbook.SaveAs Filename:= _
"C:Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12], _
FileFormat:=xlText, CreateBackup:úlse
End Sub

Volià, c'est toutes les infos que je peux donner.
pour l'instant, je galère.......

Merci quand même
Bonne fin de soirée

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm






"Ayrton [ASC]" a écrit dans le message de news:
%23x5inB$
Bonjour *isabelle*
Dans ton message de
news:,
tu nous envoyais cette missive :-(*)
bonjour Ayrton,


Re Isabelle,

ActiveWorkbook.SaveAs Filename:= _
"C;Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12] & _ , FileFormat:=xlText, CreateBackup:úlse


J'ai un messge d'ereur ! Ca me génère " Erreur de Compilation " et
lasyntaxe se met en rouge avec un carré gris autour de lapremière
virgule ( entre le _ et FileFormat ).
Je ne sais pas trop quoi faire......

Merci

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm








Avatar
Ayrton [ASC]
Bonjour *Daniel*
Dans ton message de
news:%,
tu nous envoyais cette missive :-(*)

Rendons à César ce qui est à César, j'ai simplement corrigé une faute
de frappe dans le code d'Isabelle.


Oui j'ai vu la petite difference et je croyais que cela me sauverais ! !

Par contre, ce code fonctionne correctement chez moi.


Donc c'est chez moi que ça ne va pas ! pourtant quand je compile le
code, apparement c'est bon ; c'st au moment du click sur le bouton
qu'apparait la fenêtre Visaul Basic avec la croix rouge et 400.
Mais bon, je nevais pas me prendre la tête juste pour ça ; je veux bien
me donner du mal mais quand ça veux pas..............
Je réessaierai demain puisuqe qu'apparement le code est bon ; j'espère
que je ne fais pas d'erreur de placement ; je fais une Sub test () dans
ThisWorkbook puis je tape le code et ensuite je vais chercher la macro
pour l'affecter au bouton.
Je suis sous Excel 2002 ; j'espère que ça ne pose pas de problème par
rapport à ce code.

En tout cas merci encore une fois de ton aide et donc de l'info comme
quoi le code est bon.

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm




"Ayrton [ASC]" a écrit dans le message de news:
ecidu7$
Bonjour *Daniel*
Dans ton message de
news:eyH%23Is$,
tu nous envoyais cette missive :-(*)
Bonsoir.


Bonsoir Daniel ;-)
Essaie :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12], _
FileFormat:=xlText, CreateBackup:úlse


Merci encore une fois pour ton aide ; j'ai pris ta syntaxe mais ce
coup ci j'ai une belle fenêtre qui s'ouvre avec une croix rouge et
400 ( je pense que ça doit vouloir dire Erreur 400 ).
Le problème est que si je click sur Aide, je n'ai rien ; juste une
fenêtre blanche ;-(
A titre d'info, dans " ThisWorkbbook " j'ai fait :
Sub Test ()
ActiveWorkbook.SaveAs Filename:= _
"C:Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12], _
FileFormat:=xlText, CreateBackup:úlse
End Sub

Volià, c'est toutes les infos que je peux donner.
pour l'instant, je galère.......

Merci quand même
Bonne fin de soirée

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm






"Ayrton [ASC]" a écrit dans le message de
news: %23x5inB$
Bonjour *isabelle*
Dans ton message de
news:,
tu nous envoyais cette missive :-(*)
bonjour Ayrton,


Re Isabelle,

ActiveWorkbook.SaveAs Filename:= _
"C;Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12] & _ , FileFormat:=xlText, CreateBackup:úlse


J'ai un messge d'ereur ! Ca me génère " Erreur de Compilation " et
lasyntaxe se met en rouge avec un carré gris autour de lapremière
virgule ( entre le _ et FileFormat ).
Je ne sais pas trop quoi faire......

Merci

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm









Avatar
isabelle
oups désolé pour la faute de syntaxe,
essaie comme ça.

ActiveWorkbook.SaveAs Filename:= _
"C;Documents And SettingsAxeMes documentsSauvegarde Excel" & [B12] & _
"", FileFormat:=xlText, CreateBackup:úlse

isabelle



Bonjour *Daniel*
Dans ton message de
news:eyH%23Is$,
tu nous envoyais cette missive :-(*)

Bonsoir.



Bonsoir Daniel ;-)

Essaie :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12], _
FileFormat:=xlText, CreateBackup:úlse



Merci encore une fois pour ton aide ; j'ai pris ta syntaxe mais ce coup
ci j'ai une belle fenêtre qui s'ouvre avec une croix rouge et 400 ( je
pense que ça doit vouloir dire Erreur 400 ).
Le problème est que si je click sur Aide, je n'ai rien ; juste une
fenêtre blanche ;-(
A titre d'info, dans " ThisWorkbbook " j'ai fait :
Sub Test ()
ActiveWorkbook.SaveAs Filename:= _
"C:Documents And SettingsAxeMes documentsSauvegarde Excel" &
[B12], _
FileFormat:=xlText, CreateBackup:úlse
End Sub

Volià, c'est toutes les infos que je peux donner.
pour l'instant, je galère.......

Merci quand même
Bonne fin de soirée

Cordialement




Avatar
Ange Ounis
Je réessaierai demain puisuqe qu'apparement le code est bon ; j'espère
que je ne fais pas d'erreur de placement ;


Si, probablement : c'est dans un module ordinaire que tu dois placer ta
procédure Test avec le code fourni et non dans un module de classe (ThisWorkbook
est un module de classe).

----------
Ange Ounis
----------

Bonjour *Daniel*
Dans ton message de
news:%,
tu nous envoyais cette missive :-(*)

Rendons à César ce qui est à César, j'ai simplement corrigé une faute
de frappe dans le code d'Isabelle.



Oui j'ai vu la petite difference et je croyais que cela me sauverais ! !

Par contre, ce code fonctionne correctement chez moi.



Donc c'est chez moi que ça ne va pas ! pourtant quand je compile le
code, apparement c'est bon ; c'st au moment du click sur le bouton
qu'apparait la fenêtre Visaul Basic avec la croix rouge et 400.
Mais bon, je nevais pas me prendre la tête juste pour ça ; je veux bien
me donner du mal mais quand ça veux pas..............
Je réessaierai demain puisuqe qu'apparement le code est bon ; j'espère
que je ne fais pas d'erreur de placement ; je fais une Sub test () dans
ThisWorkbook puis je tape le code et ensuite je vais chercher la macro
pour l'affecter au bouton.
Je suis sous Excel 2002 ; j'espère que ça ne pose pas de problème par
rapport à ce code.

En tout cas merci encore une fois de ton aide et donc de l'info comme
quoi le code est bon.

Cordialement




1 2