Forums Rue-Montgallet.com
Rue-Montgallet.comRue-Hardware.comRue-Occasion.comRue-DVD.comRue-Jeuxvideo.comRue-AudioVideo.comRue-Telephone.comForums
S'inscrire | S'identifier |
| Recherche avancée | Aide
 
 

Il y a 82 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet :

problème pour enregistre un feuille excel

 
n°18083
fildupa
Profil : Jeune recrue
Posté le 20-12-2006 à 22:40:12  profilanswer
 

Bonjours,
 
j'a créer un bouton sur un fichier excel  pour ouvrir un autre classeur excel en lecture seul pour faire apparaitre une fiche à remplir par des utilisateurs
voici la feuille
1- dans la feuille 1 il y a une fiche ou il faut remplir des élément, certaine cellule sont liées à la feuille2
2- dans la feuille 2 il y a une base
3- je voudrai en cliquant sur un bouton sur la feuille 1 enregistrer la feuille 1 dans 1 nouveau classeur sans la fauille 2, en lui donnant un nom différent à chaque fois  
et que le classeur se ferme sans  enregistrer quelque chose "car il a été ouvert en lecture seul"
 
c'est important que la feuille 2 ne soit pas enregistrer avec la feuille 1  
 
merci de votre aide

n°18093
pyrof
Profil : Jeune recrue
Posté le 22-12-2006 à 13:55:59  profilanswer
 

Bonjour,
 
Je peux simplement te donner les différentes étapes:
Après avoir saisie tes différentes valeurs:
 
1) tu enregistres avec le nouveau nom
 
2) faire un copier par valeur de ta feuille1 pour éviter par la suite que ton nouveau classeur demande de valider le lien avec la feuille2 de ta base
 
3) supprimer la feuille2
 
4) re-enregistrer

n°18104
fildupa
Profil : Jeune recrue
Posté le 24-12-2006 à 19:03:29  profilanswer
 

Sub enregistrement_fiche_anomalie()
     
  Application.ScreenUpdating = False
     
    Range("IV1" ).Select
    nouveaunumero = ActiveCell.Value
    Range("E7" ).Select
    code = ActiveCell.Value
    Range("IT5" ).Select
    datesauvegarde = ActiveCell.Value
    Range("IQ1" ).Select
    ficsup = ActiveCell.Value
            ActiveWorkbook.SaveAs Filename:= _
        "I:\NC.MP.MCE\fiche anomalie à traiter\Fiche anomalie code- " & code & "  N°-" & nouveaunumero & " date- " & datesauvegarde & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
     
     Kill (ficsup)
   
    ActiveWindow.Close
   
  Application.ScreenUpdating = True
 
End Sub
 
Quand je fait cette formule j'ai mon classeur entier qui s'enregistre, et je voudrai qu'il y ai que la feuille 1 pas les autres feuilles qui ce trouve dans le classeur  
 
merci


Aller à :
Ajouter une réponse