Excel Résolu/Fermé

Question

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

fredba · Answer

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

rem · Answer

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

fredba · Answer

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

pou pouille · Answer

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]

rem · Answer

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

pou pouille · Answer

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

rem · Answer

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

pou pouille · Answer

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

rem · Answer

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

rem · Answer

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?

pou pouille · Answer

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

rem · Answer

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

pou pouille · Answer

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

rem · Answer

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.

rem · Answer

Enfete j'aimerais, que dans ce code si :
ActiveSheet.SaveAs Filename:="nom_fichier.xls"

Le nom puisse etre une valeur d'une cellule .

pou pouille · Answer

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.

rem · Answer

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.

pou pouille · Answer

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).Valueet 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 ??

rem · Answer

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

rem · Answer

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

rem · Answer

Quand je fais le post 17 sa marche la premiere fois et aprés sa me dit: Microsfot office ne peut pas accéder au fichier.
Est-ce normal?

pou pouille · Answer

il y a bien la fonction Date et Time mais le problème c'est que ca enregistre avec des formats :
JJ/MM/YYYY et HH:MM:SS et le problème c'est que sur windows tu peut pas enregistrer avec des symboles ":" ou "/"
chez moi la macro fonctionne...

pou pouille · Answer

Ou était le problème ??

rem · Answer

bé je crois que j'avais mal copier le code car j'ai fermé mon fichier et j'ai recommencé et ca a marché.
Cependant dans quel paramétre je dois toucher pour choisir la destination de l'enregistrment de mon fichier, car il se met automatiquement dans mes document mes moi j'aimerais le mettre dans un dossier spécifique...

pou pouille · Answer

bonjour, deux solutions :
-1 tu connais le chemin et il est fixe dans ce cas :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:\le chemin\" & c.Offset(1, 0).Value
                        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    Else
    ActiveSheet.SaveAs Filename:="C:\le chemin\" & [A1]
    End If
End With-2 il change et est dans une case dans ce cas:ActiveSheet.SaveAs Filename:=[B1] & c.Offset(1, 0).Value
ActiveSheet.SaveAs Filename:=[B1] & [A1]si le chemin se trouve dans la case B1

rem · Answer

Avec l'option B1 ca donnerais 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:=[B1] & c.Offset(1, 0).Value
ActiveSheet.SaveAs Filename:=[B1] & [A1]
        Loop While Not c Is Nothing And c.Address <> firstAddress
    Else
    ActiveSheet.SaveAs Filename:="C:\le chemin\" & [A1]
    End If
End With-

Ca serait le top si cela fonctionne!

rem · Answer

quand je rentre mon chemin dans ce code la cela ne fonctionne pas:
ActiveSheet.SaveAs Filename:="C:\C:\Documents and Settings\f\Bureau\Remi\fiche\" & [A1]

pou pouille · Answer

c'est normale tu as deux fois C:\C:\ il faut en supprimer un:ActiveSheet.SaveAs Filename:="C:\Documents and Settings\f\Bureau\Remi\fiche\" & [A1]

rem · Answer

Je vais fixer mon chemin ce serat plus simple, ca donne:
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:\C:\Documents and Settings\f\Bureau\Remi\fiche\" & c.Offset(1, 0).Value
                        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    Else
    ActiveSheet.SaveAs Filename:="C:\C:\Documents and Settings\f\Bureau\Remi\fiche\" & [A1]
    End If
End With

C'est ok?

rem · Answer

voici le code:
Sub CommandButton1_QuandClic()
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:\Documents and Settings\fBureau\Remi\fiche\" & c.Offset(1, 0).Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
Else
ActiveSheet.SaveAs Filename:="C:\Documents and Settings\f\Bureau\Remi\fiche\" & [A1]
End If
End With
End Sub

Il me met en erreuir cette ligne:

ActiveSheet.SaveAs Filename:="C:\Documents and Settings\f\Bureau\Remi\fiche\" & [A1]

pou pouille · Answer

cher moi ca fonctionne, donc soit tu as mal recopier le code parce que je voi qu'il manque un "\" ici ActiveSheet.SaveAs Filename:="C:\Documents and Settings\f\Bureau\Remi\fiche\" & c.Offset(1, 0).Value soit il n'y a rien dans les case d'enregistrement entre A1:A... soit le nom comporte un caractère indésirable comme [ , ] " ? ; : / \ ...
recopy le message d'erreur renvoyé

rem · Answer

Enfet moi quand je met ce code, ca me l'enregistre sous le nom de fiche or moi je veux que ca s'enregistre dans le dosier fiche!

pou pouille · Answer

bon envoie ton fichier ici http://www.cijoint.fr/index.php et colle le lien qui sera donné pour que je puisse voir ton fichier (enlève les donnée confidentielles avant).

rem · Answer

http://www.cijoint.fr/cjlink.php?file=cj200911/cij2196RiQ.xls 
 voici le lien moi j'aimerais que ce fichier s'enregistre dans un dosier que j'ai nommé fiche

pou pouille · Answer

alors plusieurs choses déja...quelle est la feuille enregistrée ? la feuil1 ?
ensuite ou sont les nom avec avec lesquel tu compte enregistrer ta feuille ? en A1 de la feuil2? parce que pour l'instant il prend les valeurs qui sont dans la feuil2 entre B1 et B500 With ActiveWorkbook.Sheets(1).Range("b1:b500") 
et pour l'instant ca marche pas parce que voici l'endroit ou il voudrait enregistrer le fichier: "C:\Documents and Settings	haillot\Bureau\Remi" & [B1]alors qu'il faudrai que ce soit qqch dans ce genre: "C:\Documents and Settings	haillot\Bureau\Remi\fiche\" & [B1]

rem · Answer

arrrrrrrrrrrrrr j'ai enversé feuil 1 et feuil 2, maintenant ca marche!!!
Désolé de vous avoir fait perdre du temps sur une erreur d'innatention.

Encore merci pour tout votre aide,
Cordialement.

pou pouille · Answer

bonne journée ^^

rem · Answer

Merci vous de même ^^

pou pouille · Answer

si je peut me permetre , est-ce que l'affichage de la formule dans la case A1 est impératif ... on peut s'en passer et enregistrer le fichier directement avec les champs concernés ...ActiveSheet.SaveAs Filename:="C:\Documents and Settings	haillot\Bureau\Remi\fiche\" & [D5] & [D7] & [D9] & [I5]