Excel

Résolu
rem -  
pou pouille Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Pouvez-vous m'aider?
j'aimerais lorsque je clique sur un bouton, enregistrer directement ma feuille excel sur une autre feuille ( feuille 1 devient feuille 2) et j'aiemrais l'enregistrer sous le nom d'une cellule.
J ne sais pas si cela est possible?

Merci d'avance
cordialement
A voir également:

39 réponses

  • 1
  • 2
Réponse 1 / 39
fredba Messages postés 734 Date d'inscription   Statut Membre Dernière intervention   94
 
bonjour,
je ne pense pas que se soit possible, tu peut chercher du coté le l'incrémentation.
;-)
0
Réponse 2 / 39
rem
 
et enregistrer ma feuille dans un autre fichier excel c'est possible?
0
Réponse 3 / 39
fredba Messages postés 734 Date d'inscription   Statut Membre Dernière intervention   94
 
je ne pas te dire, a part faire enregistrer sous à chaque fois.
bon courage
0
Réponse 4 / 39
pou pouille Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   31
 
bonjour, oui c'est possible
pour enregistrer la feuil tu peut faire:
ActiveSheet.SaveAs Filename:="nom_fichier.xls"

tu peut aussi lui donner le nom de la cellule A1 par exemple : 
ActiveSheet.SaveAs Filename:=[A1]
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 39
rem
 
ok meric, mais je rentre ce code dans une macros?
0
Réponse 6 / 39
pou pouille Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   31
 
tu crée un bouton (barre d'outil\ boite à outils controles) et avec ce bouton de commande dans l'éditeur VB soit tu place directement ce code dans le bouton, soit tu créer un macro et tu appele la macro depuis le bouton
0
Réponse 7 / 39
rem
 
j'ai crée le bouton j'ai rentré le code et maintenant lorsque je clique sur le bouton rien ne se passe...
0
Réponse 8 / 39
pou pouille Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   31
 
dans l'éditeur VB quand tu clique sur la feuille ou est le bouton tu obtien to code comme cela ...
Private Sub CommandButton1_Click()
ActiveSheet.SaveAs Filename:=[A1] & ".xls"
End Sub
le & ".xls" c'est dans le cas ou ta cellule A1 ne contienne que le nom et pas l'extention
0
Réponse 9 / 39
rem
 
Merci j'ai enfin reussi :)
Mais moi enfete ce que j'aimerais c'est que le fichier s'enregistre sous un nom different a chaque fois, le nom d'une cellule.
Je sais pas si c'est possible...
Merci de votre aide...
Cordialement
0
pou pouille Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   31
 
heu ,je suis pas sur de comprendre ... qu'est ce qui doit changer , le nom de la cellule ?
un petit peut plus de détail serait le bienvenu
0
Réponse 10 / 39
rem
 
oui en fete je veu enregistré ma feuille en un autre fichier, et le nom du fichier serait le nom d'une cellule enfete.
Caar j'ai créer une fiche type que je voudrais utiliser plusieur fois en modifiant a chaque fois les données et je voudrais enregistrer automatiquement sous le nom d'une cellule.

Car si je garde la configuration actuelle, a chaque fois que j'enregistre c'est sous le même nom donc je dois écraser à chaque fois.

Je ne sais pas si c'est plus claire?
0
Réponse 11 / 39
pou pouille Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   31
 
à adapter avec le nombre de cellules...
Private Sub CommandButton1_Click()
For i = 1 To 3
If ActiveWorkbook.Name <> Range("A" & i).Value Then
ActiveSheet.SaveAs Filename:=Range("A" & i).Value
Exit Sub
End If
Next i
End Sub

edit je viens de me rendre compte que ca va marcher pour les 2premier fichier mais ensuite ... ca marchera plus ^^
0
Réponse 12 / 39
rem
 
merci, mais si ca marche que pour deux fichier ca va pas aller ^^.
je ne vois vraiment pas commen faire!
0
Réponse 13 / 39
pou pouille Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   31
 
en gros l'algorithme à écrire c'est :
chercher le nom du classeur dans la plage des nom enregistrement.
si on trouve alors enregistrer le nom suivant
si on trouve pas enregistrer avec le premier nom.

la ou je bloc c'est sur la recherche dans la plage... un truc du genre range("...").find pourai aider mais bon faudrai l'avis de quelqu'un d'autre
0
Réponse 14 / 39
rem
 
Oui en gros c'est nomer le fichier selon le nom d'une cellule puis l'enregistrer suivant cette cellule.

En gros, c'est une fiche que je renseigne plusieur fois par jour, et a chaque fois que je la renseigne je voudrais qu'elle s'enregistre sous un autre fichier avec a chaque fois un nom différents.
0
Réponse 15 / 39
rem
 
Enfete j'aimerais, que dans ce code si :
ActiveSheet.SaveAs Filename:="nom_fichier.xls"

Le nom puisse etre une valeur d'une cellule .
0
Réponse 16 / 39
pou pouille Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   31
 
alors avec l'aide de VBA j'ai trouvé ca :
With ActiveWorkbook.Sheets(1).Range("a1:a500")
    Set c = .Find(ActiveWorkbook.Name, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ActiveSheet.SaveAs Filename:=c.Offset(1, 0).Value
                        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    Else
    ActiveSheet.SaveAs Filename:=[A1]
    End If
End With
ici si le nom du fichier est différent des noms dans les cases A1à A500 alors il enregistre avec le nom de la cellule A1 , ensuite si le nom du document est trouvé dans la plage A1:A500 il enregistre avec la cellule suivante.
0
Réponse 17 / 39
rem
 
Merci, mais se serait pas plus simple de modifier ce code:
ActiveSheet.SaveAs Filename:="nom_fichier.xls"
en modif nom par le nom d'une cellule, je comprend pas pourquoi cela ne marche pas.
0
Réponse 18 / 39
pou pouille Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   31
 
si c'est justement ce que je fait dans mon post 17 : j'enregistre avec la cellule après celle trouvée 
ActiveSheet.SaveAs Filename:=c.Offset(1, 0).Value
et si il ne trouve pas le nom du fichier il enregistre avec la cellule A1 
ActiveSheet.SaveAs Filename:=[A1]
maintenant peut etre que dans les cellules il faut l'extention *.xls ...
as-tu essayé le code du poste 17 ??
0
Réponse 19 / 39
rem
 
oui j'ai essayé et sa me met: ActiveSheet.SaveAs Filename:=[A1] erreur d'execution '1004'.
0
Réponse 20 / 39
rem
 
sinon c'est possible d'enregistrer automatique le fichier avec la date, de ce faite le nom du fichier changera chaque jour.
Mais bon j'aurais voulu l'enregistrer sous un nom différent plusieur fois par jours...
0