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
Je te prie d'accepter toutes mes excuses ! !! Daniel avait vu la petite faute de syntaxe et malgré cela ça ne fonctionnait pas ; en y regardant de plus près, je me suis aperçu que je me trompais de cellule ! A vrai dire, la cellule B12 est vide ! ! En remplacçant B12 par D12 ( qui est la bonne cellule ), ça fonctionne super bien ! !! Je te remercie 1000 fois.
Par contre, quand jeclick sur le bouton pour faire lasauvegarde, le nom de ma feuille change ! la feuille s'appelle " Photo " et la cellule D12 est un numéro auto de quatre chiffres ; dès que je click sur mon bouton, le fichier texte se crée bien au bon endroit mais ma feuiile , au lieu de garder le nom " Photo " prend le nom de la cellule D12 ( autrement dit, dès que je fais la sauvegarde ma feuille va s'appeller 3014 au lieu de " Photo ") ; ça va poser un problème aux utilisateurs car en fermant un message demande si l'on veut sauvegarder le fichier 3014.txt ; si on dit oui, il y a 3 fenêtres qui s'ouvrent successivement et il faut clicker oui à chaque fois ( c'est un peu " lourd " ) et si on click sur nom, le classeur se referme normalement, lefichier texte est bie nà sa place avec le bon numéro mais quand j'ouvre à nouveau mon classeur, je me retrouve à nouveau avec le numéro 3014 au lieu de 3015 : si je ferme le classeur sans faire de sauvegarde en fichier texte et en répondant oui pour l'enregistrement, il s'ouvre bien à nouveau avec un numéro incrémenté de 1 dans ma cellule D12.
A vrai dire, c'est cette sauvegarde qui me pose problème bien que la syntaxe fonctionne très bien ; ais je un moyen de contourner cela ? Merci encore.
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
Bonjour *isabelle*
Dans ton message de
news:%23zCLCfADGHA.2300@TK2MSFTNGP15.phx.gbl,
tu nous envoyais cette missive :-(*)
oups désolé pour la faute de syntaxe,
essaie comme ça.
Je te prie d'accepter toutes mes excuses ! !! Daniel avait vu la petite
faute de syntaxe et malgré cela ça ne fonctionnait pas ; en y regardant
de plus près, je me suis aperçu que je me trompais de cellule !
A vrai dire, la cellule B12 est vide ! ! En remplacçant B12 par D12 (
qui est la bonne cellule ), ça fonctionne super bien ! !! Je te
remercie 1000 fois.
Par contre, quand jeclick sur le bouton pour faire lasauvegarde, le nom
de ma feuille change ! la feuille s'appelle " Photo " et la cellule D12
est un numéro auto de quatre chiffres ; dès que je click sur mon bouton,
le fichier texte se crée bien au bon endroit mais ma feuiile , au lieu
de garder le nom " Photo " prend le nom de la cellule D12 ( autrement
dit, dès que je fais la sauvegarde ma feuille va s'appeller 3014 au lieu
de " Photo ") ; ça va poser un problème aux utilisateurs car en fermant
un message demande si l'on veut sauvegarder le fichier 3014.txt ; si on
dit oui, il y a 3 fenêtres qui s'ouvrent successivement et il faut
clicker oui à chaque fois ( c'est un peu " lourd " ) et si on click sur
nom, le classeur se referme normalement, lefichier texte est bie nà sa
place avec le bon numéro mais quand j'ouvre à nouveau mon classeur, je
me retrouve à nouveau avec le numéro 3014 au lieu de 3015 : si je ferme
le classeur sans faire de sauvegarde en fichier texte et en répondant
oui pour l'enregistrement, il s'ouvre bien à nouveau avec un numéro
incrémenté de 1 dans ma cellule D12.
A vrai dire, c'est cette sauvegarde qui me pose problème bien que la
syntaxe fonctionne très bien ; ais je un moyen de contourner cela ?
Merci encore.
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
Je te prie d'accepter toutes mes excuses ! !! Daniel avait vu la petite faute de syntaxe et malgré cela ça ne fonctionnait pas ; en y regardant de plus près, je me suis aperçu que je me trompais de cellule ! A vrai dire, la cellule B12 est vide ! ! En remplacçant B12 par D12 ( qui est la bonne cellule ), ça fonctionne super bien ! !! Je te remercie 1000 fois.
Par contre, quand jeclick sur le bouton pour faire lasauvegarde, le nom de ma feuille change ! la feuille s'appelle " Photo " et la cellule D12 est un numéro auto de quatre chiffres ; dès que je click sur mon bouton, le fichier texte se crée bien au bon endroit mais ma feuiile , au lieu de garder le nom " Photo " prend le nom de la cellule D12 ( autrement dit, dès que je fais la sauvegarde ma feuille va s'appeller 3014 au lieu de " Photo ") ; ça va poser un problème aux utilisateurs car en fermant un message demande si l'on veut sauvegarder le fichier 3014.txt ; si on dit oui, il y a 3 fenêtres qui s'ouvrent successivement et il faut clicker oui à chaque fois ( c'est un peu " lourd " ) et si on click sur nom, le classeur se referme normalement, lefichier texte est bie nà sa place avec le bon numéro mais quand j'ouvre à nouveau mon classeur, je me retrouve à nouveau avec le numéro 3014 au lieu de 3015 : si je ferme le classeur sans faire de sauvegarde en fichier texte et en répondant oui pour l'enregistrement, il s'ouvre bien à nouveau avec un numéro incrémenté de 1 dans ma cellule D12.
A vrai dire, c'est cette sauvegarde qui me pose problème bien que la syntaxe fonctionne très bien ; ais je un moyen de contourner cela ? Merci encore.
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
isabelle
bonjour ,
je viens d'apprendre quelque de nouveau, je ne m'était jamais apperçue de ce phénomène.
malheureusement dans l'aide il est dit à la méthode SaveAs à l'argument TextCodePage : Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel.
j'ai fait un test en placant cette macro dans un module du perso et ça fonctionne bien. il faudra adapter le nom du classeur et le chemin de sauvegarde.
Sub saveAsEtRename() nom = Workbooks("Classeur8.xls").Sheets("Photo").Range("D12") Workbooks("Classeur8.xls").SaveAs Filename:= _ "C:zaza" & nom & _ "", FileFormat:=xlNormal, CreateBackup:úlse Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName End Sub
isabelle
Bonjour *isabelle* Dans ton message de news:%, tu nous envoyais cette missive :-(*)
oups désolé pour la faute de syntaxe, essaie comme ça.
Je te prie d'accepter toutes mes excuses ! !! Daniel avait vu la petite faute de syntaxe et malgré cela ça ne fonctionnait pas ; en y regardant de plus près, je me suis aperçu que je me trompais de cellule ! A vrai dire, la cellule B12 est vide ! ! En remplacçant B12 par D12 ( qui est la bonne cellule ), ça fonctionne super bien ! !! Je te remercie 1000 fois.
Par contre, quand jeclick sur le bouton pour faire lasauvegarde, le nom de ma feuille change ! la feuille s'appelle " Photo " et la cellule D12 est un numéro auto de quatre chiffres ; dès que je click sur mon bouton, le fichier texte se crée bien au bon endroit mais ma feuiile , au lieu de garder le nom " Photo " prend le nom de la cellule D12 ( autrement dit, dès que je fais la sauvegarde ma feuille va s'appeller 3014 au lieu de " Photo ") ; ça va poser un problème aux utilisateurs car en fermant un message demande si l'on veut sauvegarder le fichier 3014.txt ; si on dit oui, il y a 3 fenêtres qui s'ouvrent successivement et il faut clicker oui à chaque fois ( c'est un peu " lourd " ) et si on click sur nom, le classeur se referme normalement, lefichier texte est bie nà sa place avec le bon numéro mais quand j'ouvre à nouveau mon classeur, je me retrouve à nouveau avec le numéro 3014 au lieu de 3015 : si je ferme le classeur sans faire de sauvegarde en fichier texte et en répondant oui pour l'enregistrement, il s'ouvre bien à nouveau avec un numéro incrémenté de 1 dans ma cellule D12.
A vrai dire, c'est cette sauvegarde qui me pose problème bien que la syntaxe fonctionne très bien ; ais je un moyen de contourner cela ? Merci encore.
Cordialement
bonjour ,
je viens d'apprendre quelque de nouveau, je ne m'était jamais apperçue de ce phénomène.
malheureusement dans l'aide il est dit à la méthode SaveAs à l'argument
TextCodePage : Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel.
j'ai fait un test en placant cette macro dans un module du perso et ça fonctionne bien.
il faudra adapter le nom du classeur et le chemin de sauvegarde.
Sub saveAsEtRename()
nom = Workbooks("Classeur8.xls").Sheets("Photo").Range("D12")
Workbooks("Classeur8.xls").SaveAs Filename:= _
"C:zaza" & nom & _
"", FileFormat:=xlNormal, CreateBackup:úlse
Workbooks("" & nom & ".xls").Close
OldName = "C:zaza" & nom & ".xls"
NewName = "C:zaza" & nom & ".txt"
Name OldName As NewName
End Sub
isabelle
Bonjour *isabelle*
Dans ton message de
news:%23zCLCfADGHA.2300@TK2MSFTNGP15.phx.gbl,
tu nous envoyais cette missive :-(*)
oups désolé pour la faute de syntaxe,
essaie comme ça.
Je te prie d'accepter toutes mes excuses ! !! Daniel avait vu la petite
faute de syntaxe et malgré cela ça ne fonctionnait pas ; en y regardant
de plus près, je me suis aperçu que je me trompais de cellule !
A vrai dire, la cellule B12 est vide ! ! En remplacçant B12 par D12 (
qui est la bonne cellule ), ça fonctionne super bien ! !! Je te
remercie 1000 fois.
Par contre, quand jeclick sur le bouton pour faire lasauvegarde, le nom
de ma feuille change ! la feuille s'appelle " Photo " et la cellule D12
est un numéro auto de quatre chiffres ; dès que je click sur mon bouton,
le fichier texte se crée bien au bon endroit mais ma feuiile , au lieu
de garder le nom " Photo " prend le nom de la cellule D12 ( autrement
dit, dès que je fais la sauvegarde ma feuille va s'appeller 3014 au lieu
de " Photo ") ; ça va poser un problème aux utilisateurs car en fermant
un message demande si l'on veut sauvegarder le fichier 3014.txt ; si on
dit oui, il y a 3 fenêtres qui s'ouvrent successivement et il faut
clicker oui à chaque fois ( c'est un peu " lourd " ) et si on click sur
nom, le classeur se referme normalement, lefichier texte est bie nà sa
place avec le bon numéro mais quand j'ouvre à nouveau mon classeur, je
me retrouve à nouveau avec le numéro 3014 au lieu de 3015 : si je ferme
le classeur sans faire de sauvegarde en fichier texte et en répondant
oui pour l'enregistrement, il s'ouvre bien à nouveau avec un numéro
incrémenté de 1 dans ma cellule D12.
A vrai dire, c'est cette sauvegarde qui me pose problème bien que la
syntaxe fonctionne très bien ; ais je un moyen de contourner cela ?
Merci encore.
je viens d'apprendre quelque de nouveau, je ne m'était jamais apperçue de ce phénomène.
malheureusement dans l'aide il est dit à la méthode SaveAs à l'argument TextCodePage : Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel.
j'ai fait un test en placant cette macro dans un module du perso et ça fonctionne bien. il faudra adapter le nom du classeur et le chemin de sauvegarde.
Sub saveAsEtRename() nom = Workbooks("Classeur8.xls").Sheets("Photo").Range("D12") Workbooks("Classeur8.xls").SaveAs Filename:= _ "C:zaza" & nom & _ "", FileFormat:=xlNormal, CreateBackup:úlse Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName End Sub
isabelle
Bonjour *isabelle* Dans ton message de news:%, tu nous envoyais cette missive :-(*)
oups désolé pour la faute de syntaxe, essaie comme ça.
Je te prie d'accepter toutes mes excuses ! !! Daniel avait vu la petite faute de syntaxe et malgré cela ça ne fonctionnait pas ; en y regardant de plus près, je me suis aperçu que je me trompais de cellule ! A vrai dire, la cellule B12 est vide ! ! En remplacçant B12 par D12 ( qui est la bonne cellule ), ça fonctionne super bien ! !! Je te remercie 1000 fois.
Par contre, quand jeclick sur le bouton pour faire lasauvegarde, le nom de ma feuille change ! la feuille s'appelle " Photo " et la cellule D12 est un numéro auto de quatre chiffres ; dès que je click sur mon bouton, le fichier texte se crée bien au bon endroit mais ma feuiile , au lieu de garder le nom " Photo " prend le nom de la cellule D12 ( autrement dit, dès que je fais la sauvegarde ma feuille va s'appeller 3014 au lieu de " Photo ") ; ça va poser un problème aux utilisateurs car en fermant un message demande si l'on veut sauvegarder le fichier 3014.txt ; si on dit oui, il y a 3 fenêtres qui s'ouvrent successivement et il faut clicker oui à chaque fois ( c'est un peu " lourd " ) et si on click sur nom, le classeur se referme normalement, lefichier texte est bie nà sa place avec le bon numéro mais quand j'ouvre à nouveau mon classeur, je me retrouve à nouveau avec le numéro 3014 au lieu de 3015 : si je ferme le classeur sans faire de sauvegarde en fichier texte et en répondant oui pour l'enregistrement, il s'ouvre bien à nouveau avec un numéro incrémenté de 1 dans ma cellule D12.
A vrai dire, c'est cette sauvegarde qui me pose problème bien que la syntaxe fonctionne très bien ; ais je un moyen de contourner cela ? Merci encore.
Cordialement
Ayrton [ASC]
Bonjour *isabelle* Dans ton message de news:%, tu nous envoyais cette missive :-(*)
bonjour ,
Bonjour isabelle,
je viens d'apprendre quelque de nouveau, je ne m'était jamais apperçue de ce phénomène. malheureusement dans l'aide il est dit à la méthode SaveAs à l'argument TextCodePage : Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel. j'ai fait un test en placant cette macro dans un module du perso et ça fonctionne bien. il faudra adapter le nom du classeur et le chemin de sauvegarde.
Sub saveAsEtRename() nom = Workbooks("Classeur8.xls").Sheets("Photo").Range("D12") Workbooks("Classeur8.xls").SaveAs Filename:= _ "C:zaza" & nom & _ "", FileFormat:=xlNormal, CreateBackup:úlse Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName End Sub
Je ne sais comment te remercier ; c'est vraiment super gentil et de plus ça m'aide beaucoup ( en temps et en connaissance ) ; ça fonctionne super bien. Je terminerai juste avec une toute petite question : ma sauvegarde se fait en .xls et non en .txt ; est ce normal ? je vois bien que dans ton code le nouveau fichier doit être en .txt mais chez moi le fichier qui se sauvegarde est en .xls ; c'est dommage car j'ai vraiment besoin de txt ; je ne vais pas de faire perdre de temps en t'expliquant le pourquoi du comment mais le fichier texte est presque primordiale pour mon classeur.
En tout cas, merci 1000 fois ;-)
Cordialement
Bonjour *isabelle*
Dans ton message de
news:%23rHqDOKDGHA.3748@TK2MSFTNGP10.phx.gbl,
tu nous envoyais cette missive :-(*)
bonjour ,
Bonjour isabelle,
je viens d'apprendre quelque de nouveau, je ne m'était jamais
apperçue de ce phénomène.
malheureusement dans l'aide il est dit à la méthode SaveAs à
l'argument TextCodePage : Argument de type Variant facultatif. Non
utilisé dans
la version française de Microsoft Excel.
j'ai fait un test en placant cette macro dans un module du perso et
ça fonctionne bien. il faudra adapter le nom du classeur et le chemin
de sauvegarde.
Sub saveAsEtRename()
nom = Workbooks("Classeur8.xls").Sheets("Photo").Range("D12")
Workbooks("Classeur8.xls").SaveAs Filename:= _
"C:zaza" & nom & _
"", FileFormat:=xlNormal, CreateBackup:úlse
Workbooks("" & nom & ".xls").Close
OldName = "C:zaza" & nom & ".xls"
NewName = "C:zaza" & nom & ".txt"
Name OldName As NewName
End Sub
Je ne sais comment te remercier ; c'est vraiment super gentil et de plus
ça m'aide beaucoup ( en temps et en connaissance ) ; ça fonctionne super
bien.
Je terminerai juste avec une toute petite question : ma sauvegarde se
fait en .xls et non en .txt ; est ce normal ? je vois bien que dans ton
code le nouveau fichier doit être en .txt mais chez moi le fichier qui
se sauvegarde est en .xls ; c'est dommage car j'ai vraiment besoin de
txt ; je ne vais pas de faire perdre de temps en t'expliquant le
pourquoi du comment mais le fichier texte est presque primordiale pour
mon classeur.
Bonjour *isabelle* Dans ton message de news:%, tu nous envoyais cette missive :-(*)
bonjour ,
Bonjour isabelle,
je viens d'apprendre quelque de nouveau, je ne m'était jamais apperçue de ce phénomène. malheureusement dans l'aide il est dit à la méthode SaveAs à l'argument TextCodePage : Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel. j'ai fait un test en placant cette macro dans un module du perso et ça fonctionne bien. il faudra adapter le nom du classeur et le chemin de sauvegarde.
Sub saveAsEtRename() nom = Workbooks("Classeur8.xls").Sheets("Photo").Range("D12") Workbooks("Classeur8.xls").SaveAs Filename:= _ "C:zaza" & nom & _ "", FileFormat:=xlNormal, CreateBackup:úlse Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName End Sub
Je ne sais comment te remercier ; c'est vraiment super gentil et de plus ça m'aide beaucoup ( en temps et en connaissance ) ; ça fonctionne super bien. Je terminerai juste avec une toute petite question : ma sauvegarde se fait en .xls et non en .txt ; est ce normal ? je vois bien que dans ton code le nouveau fichier doit être en .txt mais chez moi le fichier qui se sauvegarde est en .xls ; c'est dommage car j'ai vraiment besoin de txt ; je ne vais pas de faire perdre de temps en t'expliquant le pourquoi du comment mais le fichier texte est presque primordiale pour mon classeur.
En tout cas, merci 1000 fois ;-)
Cordialement
isabelle
re bonjour Ayrton,
la sauvegarde se fait en xls pour contourner le problème du changement de nom de l'onglet. mais j'ai ajouter un bout de code :
Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName
pour le tranformer en .txt, cette partie ne fonctionne pas chez toi ?
isabelle
Bonjour *isabelle* Dans ton message de news:%, tu nous envoyais cette missive :-(*)
bonjour ,
Bonjour isabelle,
je viens d'apprendre quelque de nouveau, je ne m'était jamais apperçue de ce phénomène. malheureusement dans l'aide il est dit à la méthode SaveAs à l'argument TextCodePage : Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel. j'ai fait un test en placant cette macro dans un module du perso et ça fonctionne bien. il faudra adapter le nom du classeur et le chemin de sauvegarde.
Sub saveAsEtRename() nom = Workbooks("Classeur8.xls").Sheets("Photo").Range("D12") Workbooks("Classeur8.xls").SaveAs Filename:= _ "C:zaza" & nom & _ "", FileFormat:=xlNormal, CreateBackup:úlse Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName End Sub
Je ne sais comment te remercier ; c'est vraiment super gentil et de plus ça m'aide beaucoup ( en temps et en connaissance ) ; ça fonctionne super bien. Je terminerai juste avec une toute petite question : ma sauvegarde se fait en .xls et non en .txt ; est ce normal ? je vois bien que dans ton code le nouveau fichier doit être en .txt mais chez moi le fichier qui se sauvegarde est en .xls ; c'est dommage car j'ai vraiment besoin de txt ; je ne vais pas de faire perdre de temps en t'expliquant le pourquoi du comment mais le fichier texte est presque primordiale pour mon classeur.
En tout cas, merci 1000 fois ;-)
Cordialement
re bonjour Ayrton,
la sauvegarde se fait en xls pour contourner le problème du changement de nom de l'onglet.
mais j'ai ajouter un bout de code :
Workbooks("" & nom & ".xls").Close
OldName = "C:zaza" & nom & ".xls"
NewName = "C:zaza" & nom & ".txt"
Name OldName As NewName
pour le tranformer en .txt, cette partie ne fonctionne pas chez toi ?
isabelle
Bonjour *isabelle*
Dans ton message de
news:%23rHqDOKDGHA.3748@TK2MSFTNGP10.phx.gbl,
tu nous envoyais cette missive :-(*)
bonjour ,
Bonjour isabelle,
je viens d'apprendre quelque de nouveau, je ne m'était jamais
apperçue de ce phénomène.
malheureusement dans l'aide il est dit à la méthode SaveAs à
l'argument TextCodePage : Argument de type Variant facultatif. Non
utilisé dans
la version française de Microsoft Excel.
j'ai fait un test en placant cette macro dans un module du perso et
ça fonctionne bien. il faudra adapter le nom du classeur et le chemin
de sauvegarde.
Sub saveAsEtRename()
nom = Workbooks("Classeur8.xls").Sheets("Photo").Range("D12")
Workbooks("Classeur8.xls").SaveAs Filename:= _
"C:zaza" & nom & _
"", FileFormat:=xlNormal, CreateBackup:úlse
Workbooks("" & nom & ".xls").Close
OldName = "C:zaza" & nom & ".xls"
NewName = "C:zaza" & nom & ".txt"
Name OldName As NewName
End Sub
Je ne sais comment te remercier ; c'est vraiment super gentil et de plus
ça m'aide beaucoup ( en temps et en connaissance ) ; ça fonctionne super
bien.
Je terminerai juste avec une toute petite question : ma sauvegarde se
fait en .xls et non en .txt ; est ce normal ? je vois bien que dans ton
code le nouveau fichier doit être en .txt mais chez moi le fichier qui
se sauvegarde est en .xls ; c'est dommage car j'ai vraiment besoin de
txt ; je ne vais pas de faire perdre de temps en t'expliquant le
pourquoi du comment mais le fichier texte est presque primordiale pour
mon classeur.
la sauvegarde se fait en xls pour contourner le problème du changement de nom de l'onglet. mais j'ai ajouter un bout de code :
Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName
pour le tranformer en .txt, cette partie ne fonctionne pas chez toi ?
isabelle
Bonjour *isabelle* Dans ton message de news:%, tu nous envoyais cette missive :-(*)
bonjour ,
Bonjour isabelle,
je viens d'apprendre quelque de nouveau, je ne m'était jamais apperçue de ce phénomène. malheureusement dans l'aide il est dit à la méthode SaveAs à l'argument TextCodePage : Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel. j'ai fait un test en placant cette macro dans un module du perso et ça fonctionne bien. il faudra adapter le nom du classeur et le chemin de sauvegarde.
Sub saveAsEtRename() nom = Workbooks("Classeur8.xls").Sheets("Photo").Range("D12") Workbooks("Classeur8.xls").SaveAs Filename:= _ "C:zaza" & nom & _ "", FileFormat:=xlNormal, CreateBackup:úlse Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName End Sub
Je ne sais comment te remercier ; c'est vraiment super gentil et de plus ça m'aide beaucoup ( en temps et en connaissance ) ; ça fonctionne super bien. Je terminerai juste avec une toute petite question : ma sauvegarde se fait en .xls et non en .txt ; est ce normal ? je vois bien que dans ton code le nouveau fichier doit être en .txt mais chez moi le fichier qui se sauvegarde est en .xls ; c'est dommage car j'ai vraiment besoin de txt ; je ne vais pas de faire perdre de temps en t'expliquant le pourquoi du comment mais le fichier texte est presque primordiale pour mon classeur.
En tout cas, merci 1000 fois ;-)
Cordialement
Ayrton [ASC]
Bonjour *isabelle* Dans ton message de news:, tu nous envoyais cette missive :-(*)
re bonjour Ayrton,
Re Bonjour Isabelle,
la sauvegarde se fait en xls pour contourner le problème du changement de nom de l'onglet. mais j'ai ajouter un bout de code :
Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName
pour le tranformer en .txt, cette partie ne fonctionne pas chez toi ?
Eh bien non justement ;-( La sauvegarde se fait très bien mais en .xls ; j'ai bien vu que dans ton code il était stipulé :NewName="C:zaza"& nom &" .txt mais ça sauvegarde en.xls ; c'est la raison de ma question, à savoir si cela est normal ou pas, car là, je ne comprenais plus bien ; c'est dommage car ton code fonctionne vraiment bien ; à vrai dire, si je n'avais pas ce souci de numérotation auto, lasauvegarde en.xls m'irait très bien. Mais bon, tu as déjà été super gentille de m'aider et de m'accorder du temps.
Je vais voir comment je vais pouvoir me debrouiller.
En tout cas, merci encore Isabelle
-- @+ 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
Bonjour *isabelle*
Dans ton message de
news:O90qqXLDGHA.2644@TK2MSFTNGP09.phx.gbl,
tu nous envoyais cette missive :-(*)
re bonjour Ayrton,
Re Bonjour Isabelle,
la sauvegarde se fait en xls pour contourner le problème du
changement de nom de l'onglet. mais j'ai ajouter un bout de code :
Workbooks("" & nom & ".xls").Close
OldName = "C:zaza" & nom & ".xls"
NewName = "C:zaza" & nom & ".txt"
Name OldName As NewName
pour le tranformer en .txt, cette partie ne fonctionne pas chez toi ?
Eh bien non justement ;-( La sauvegarde se fait très bien mais en .xls
; j'ai bien vu que dans ton code il était stipulé :NewName="C:zaza"&
nom &" .txt mais ça sauvegarde en.xls ; c'est la raison de ma question,
à savoir si cela est normal ou pas, car là, je ne comprenais plus bien ;
c'est dommage car ton code fonctionne vraiment bien ; à vrai dire, si je
n'avais pas ce souci de numérotation auto, lasauvegarde en.xls m'irait
très bien.
Mais bon, tu as déjà été super gentille de m'aider et de m'accorder du
temps.
Je vais voir comment je vais pouvoir me debrouiller.
En tout cas, merci encore Isabelle
--
@+
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
Bonjour *isabelle* Dans ton message de news:, tu nous envoyais cette missive :-(*)
re bonjour Ayrton,
Re Bonjour Isabelle,
la sauvegarde se fait en xls pour contourner le problème du changement de nom de l'onglet. mais j'ai ajouter un bout de code :
Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName
pour le tranformer en .txt, cette partie ne fonctionne pas chez toi ?
Eh bien non justement ;-( La sauvegarde se fait très bien mais en .xls ; j'ai bien vu que dans ton code il était stipulé :NewName="C:zaza"& nom &" .txt mais ça sauvegarde en.xls ; c'est la raison de ma question, à savoir si cela est normal ou pas, car là, je ne comprenais plus bien ; c'est dommage car ton code fonctionne vraiment bien ; à vrai dire, si je n'avais pas ce souci de numérotation auto, lasauvegarde en.xls m'irait très bien. Mais bon, tu as déjà été super gentille de m'aider et de m'accorder du temps.
Je vais voir comment je vais pouvoir me debrouiller.
En tout cas, merci encore Isabelle
-- @+ 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
Ange Ounis
Plusieurs exemples d'enregistrement de plages de cellules dans un fichier texte, avec une autre approche, sur cette page :
Bonjour *isabelle* Dans ton message de news:, tu nous envoyais cette missive :-(*)
re bonjour Ayrton,
Re Bonjour Isabelle,
la sauvegarde se fait en xls pour contourner le problème du changement de nom de l'onglet. mais j'ai ajouter un bout de code :
Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName
pour le tranformer en .txt, cette partie ne fonctionne pas chez toi ?
Eh bien non justement ;-( La sauvegarde se fait très bien mais en .xls ; j'ai bien vu que dans ton code il était stipulé :NewName="C:zaza"& nom &" .txt mais ça sauvegarde en.xls ; c'est la raison de ma question, à savoir si cela est normal ou pas, car là, je ne comprenais plus bien ; c'est dommage car ton code fonctionne vraiment bien ; à vrai dire, si je n'avais pas ce souci de numérotation auto, lasauvegarde en.xls m'irait très bien. Mais bon, tu as déjà été super gentille de m'aider et de m'accorder du temps.
Je vais voir comment je vais pouvoir me debrouiller.
En tout cas, merci encore Isabelle
Plusieurs exemples d'enregistrement de plages de cellules dans un fichier texte,
avec une autre approche, sur cette page :
Bonjour *isabelle*
Dans ton message de
news:O90qqXLDGHA.2644@TK2MSFTNGP09.phx.gbl,
tu nous envoyais cette missive :-(*)
re bonjour Ayrton,
Re Bonjour Isabelle,
la sauvegarde se fait en xls pour contourner le problème du
changement de nom de l'onglet. mais j'ai ajouter un bout de code :
Workbooks("" & nom & ".xls").Close
OldName = "C:zaza" & nom & ".xls"
NewName = "C:zaza" & nom & ".txt"
Name OldName As NewName
pour le tranformer en .txt, cette partie ne fonctionne pas chez toi ?
Eh bien non justement ;-( La sauvegarde se fait très bien mais en .xls
; j'ai bien vu que dans ton code il était stipulé :NewName="C:zaza"&
nom &" .txt mais ça sauvegarde en.xls ; c'est la raison de ma question,
à savoir si cela est normal ou pas, car là, je ne comprenais plus bien ;
c'est dommage car ton code fonctionne vraiment bien ; à vrai dire, si je
n'avais pas ce souci de numérotation auto, lasauvegarde en.xls m'irait
très bien.
Mais bon, tu as déjà été super gentille de m'aider et de m'accorder du
temps.
Je vais voir comment je vais pouvoir me debrouiller.
Bonjour *isabelle* Dans ton message de news:, tu nous envoyais cette missive :-(*)
re bonjour Ayrton,
Re Bonjour Isabelle,
la sauvegarde se fait en xls pour contourner le problème du changement de nom de l'onglet. mais j'ai ajouter un bout de code :
Workbooks("" & nom & ".xls").Close OldName = "C:zaza" & nom & ".xls" NewName = "C:zaza" & nom & ".txt" Name OldName As NewName
pour le tranformer en .txt, cette partie ne fonctionne pas chez toi ?
Eh bien non justement ;-( La sauvegarde se fait très bien mais en .xls ; j'ai bien vu que dans ton code il était stipulé :NewName="C:zaza"& nom &" .txt mais ça sauvegarde en.xls ; c'est la raison de ma question, à savoir si cela est normal ou pas, car là, je ne comprenais plus bien ; c'est dommage car ton code fonctionne vraiment bien ; à vrai dire, si je n'avais pas ce souci de numérotation auto, lasauvegarde en.xls m'irait très bien. Mais bon, tu as déjà été super gentille de m'aider et de m'accorder du temps.
Je vais voir comment je vais pouvoir me debrouiller.
En tout cas, merci encore Isabelle
Ayrton [ASC]
Bonjour *Ange Ounis* Dans ton message de news:, tu nous envoyais cette missive :-(*)
Plusieurs exemples d'enregistrement de plages de cellules dans un fichier texte, avec une autre approche, sur cette page :
-- @+ 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
Bonjour *Ange Ounis*
Dans ton message de
news:OkRtjjSDGHA.208@tk2msftngp13.phx.gbl,
tu nous envoyais cette missive :-(*)
Plusieurs exemples d'enregistrement de plages de cellules dans un
fichier texte, avec une autre approche, sur cette page :
--
@+
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 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
