Excel

bonjour,
je ne pense pas que se soit possible, tu peut chercher du coté le l'incrémentation.
;-)

et enregistrer ma feuille dans un autre fichier excel c'est possible?

je ne pas te dire, a part faire enregistrer sous à chaque fois.
bon courage

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]

ok meric, mais je rentre ce code dans une macros?

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

j'ai crée le bouton j'ai rentré le code et maintenant lorsque je clique sur le bouton rien ne se passe...

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

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

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?

à 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 ^^

merci, mais si ca marche que pour deux fichier ca va pas aller ^^.
je ne vois vraiment pas commen faire!

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

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.

Enfete j'aimerais, que dans ce code si :
ActiveSheet.SaveAs Filename:="nom_fichier.xls"

Le nom puisse etre une valeur d'une cellule .

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.

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.

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 ??

oui j'ai essayé et sa me met: ActiveSheet.SaveAs Filename:=[A1] erreur d'execution '1004'.

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...