RechercheV et sauvegarde

[Sassy]

Bonjour à tous,

Je vous expose mon problème : j'ai réalisé un modèle pour faire mes factures et j'ai utilisé la fonction recherchev.

J'essaye depuis quelques jours mais sans succès de faire une macro qui me permettrait de sauver ma facture (sans les formules recherchev --> données figées). J'aimerais que la sauvergarde se fasse soit dans le même classeur en créant une feuille ayant comme 'nom' le numéro de la facture soit dans un classeur différent et toujours dans une feuille ayant comme nom le numéro de la facture.

Quelqu'un parmis vous pourrait-il m'aider ?

Je joints le mon document.

PS : pour les puristes .. il est normal que je n'ai pas d'imputation TVA sur ma facture 😉 [file name=FACTURIERbis.zip size=14126]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FACTURIERbis.zip[/file]

Message édité par: sassy, à: 23/02/2005 15:55

Message édité par: sassy, à: 23/02/2005 16:05

 

[dg62]

Bonsoir


un bout de code à coller sur un bouton sur la feuille modele


Private Sub CommandButton1_Click()
' Copie de la facture
Sheets('MODELE').Copy After:=Sheets(1)
Sheets('MODELE (2)').Select
Sheets('MODELE (2)').Name = 'facture' & Sheets.Count
End Sub


Bonne fin de journée

 

[Sassy]

Merci de la réponse 🙂

Mais euhhhh .. comment dois-je faire ? 😱 En fait pour tout qui est formules dans excel ça va mais une fois qu'il faut 'chipoter' le code .. hmmm comment dire .. je ne suis même pas niveau novice débutante ..

J'ai essayé de le faire de la sorte :

Boite à outils contrôle - Sélection d'un bouton - Une fois mis, clic droit 'Visualiser le code' et j'ai remplacé par le code donné ... mais ainsi rien ne se passe..

Quelqu'un pourrait il m'expliquer ?

Merci d'avance 🙂

 

[dg62]

Bonjour Sassy, Bonjour le Forum


Normalement quand tu reviens sur ta feuille excel, il y a la barre d'outils controles affichées.


clic sur l'icône représentant une équerre et un crayon pour sortir du mode édition.

ensuite clic sur le bouton

 

[Sassy]

Merci 🙂 Je me sens toute bête de pas avoir trouvé cette histoire avec l'équerre ..

Autre question .. y'a t'il moyen que la feuille qui est créée soit automatiquement protégée ? Parce là si par inadvertance on touche à la selection tout est changé ..

Mais en tout cas déjà un tout grand merci pour la solution proposée.

 

[JPM]

Bonjour Sassy, bonjour le forum,

Essayes le code suivant si tu veux !

Private Sub CommandButton1_Click()
  On Error GoTo gesterr
  'Copie de la facture
  Sheets('MODELE').Copy After:=ActiveSheet
  ActiveSheet.Name = Sheets('MODELE').Range('D20').Text
  ActiveSheet.Protect
  Sheets('MODELE').Select
  
  Exit Sub
gesterr:
  MsgBox 'Erreur' & Err.Number & ' - ' & Err.Description, vbCritical, 'Erreur'
End Sub

Jean-Pierre

 

[dg62]

re

il suffit d'ajouter 'ActiveSheet.Protect ' à la fin du code

Private Sub CommandButton1_Click()
' Copie de la facture
Sheets('MODELE').Copy After:=Sheets(1)
Sheets('MODELE (2)').Select
Sheets('MODELE (2)').Name = 'facture' & Sheets.Count
ActiveSheet.Protect
End Sub

 

[Sassy]

Ca marche 😛

Un tout grand merci à vous deux pour votre aide.

 

[kouta]

Re : RechercheV et sauvegarde

salut

j'ai une petite question :
pour ce code
Sheets('MODELE (2)').Name = 'facture' & Sheets.Count

si le nom est plus que 31 caractères comment on va résoudre ce problèmes ?
et bien sure on a pas le meme code car 'facture' & Sheets.Count est toujs < que
31 cars, je parle si j'ai un autre code comme
'facture' & Sheets.Name par exemple
?????

 

[jeanpierre]

Re : RechercheV et sauvegarde

Bonjour kouta,

Plus de 31 caractères, ce n'est plus un nom, mais un roman....

Si l'on parle de facture, on peut abréger à, par exemple : fact_ ou mieux f_...
Pour le reste faire pareil....
Si c'est dans un répertoire "Facture" on peux même supprimer ce que je viens de dire, mais il faudrait nous donner des exemples.... sinon pas facile de répondre.

A te lire.

 

[kouta]

Re : RechercheV et sauvegarde

Bonjour Jean,
En fait je te donne un ptit exemple mais ne concerne bien notre cas,
si on a :
Sheets('MODELE (2)').Name = 'facture' & un nom & & &
donc on a obligé de dépasser le 31 caracteres
dons il fait des baguer car le nom du feuille NORMALEMENT est < à 31 caractères , c'est que je veux dire,
donc je dois faire quoi pour résoudre ce problème du nom ?

 

[jeanpierre]

Re : RechercheV et sauvegarde

Re,

Je ne peux te répondre sans savoir à quoi correspondent tous ces & & &,
Si c'est facture & numéro & 017589345123 & adressée à & monsieur & xxxxxxxxxxxx & le & date de la poste..... c'est sûr que cela devient difficile

Peux-tu préciser tous ces &, de où ils viennent.... etc...