Probleme De Sauvegarde

[ricou69]

Bonjour a tous et a touttes
voila la saugarde marche bien mais je voudrai saugardé que la facture sans les bouton que le masque de facture cela est t'il possible
voila le fichier en piece jointe cordialement ricou69

 

[Feutrine]

Re : Probleme De Sauvegarde

Bonjour Ricou,

Insère le Range ci-dessous à ta macro6 comme ceci :

If Doc = "FACTURE" Then
Range("F1:I60").Delete

Je pense que ça devrait fonctionner.
A te lire

Feutrine

 

[ricou69]

Re : Probleme De Sauvegarde

Bonjour Ricou,

Insère le Range ci-dessous à ta macro6 comme ceci :

If Doc = "FACTURE" Then
Range("F1:I60").Delete

Je pense que ça devrait fonctionner.
A te lire

Feutrine

re tout le monde feutrine j'ai mis le cote mais quand je recherche la feuille elle trouve la facture mais tous les champs sont marque manque ref de plus les boutons sont toujour la eux
je comprens pas
merci feutrine

 

[Feutrine]

Re : Probleme De Sauvegarde

Re

Essaye avec

.Range("F:F,I:I").Delete

Feutrine

 

[ricou69]

Re : Probleme De Sauvegarde

Re

Essaye avec

.Range("F:F,I:I").Delete

Feutrine

idem sur le premier post j'ai joint le fichier
j'ai la meme chose avec range("f:f,i,i").delete que la premiere fois un casse tete
ricou69 merci feutrine

 

[Dan]

Re : Probleme De Sauvegarde

Bonjour,

Complément à Feutrine avec cette macro :

With ActiveSheet
.Shapes.SelectAll
Selection.Delete
.Range("F:I").Delete
End With

A bientôt

 

[ricou69]

Re : Probleme De Sauvegarde

Bonjour,

Complément à Feutrine avec cette macro :

With ActiveSheet
.Shapes.SelectAll
Selection.Delete
.Range("F:I").Delete
End With

A bientôt

Merci dan mais je le mais a quelle endroit du code module 6 sur fichier joint merci je connait tres mal le vba je bidouille
ricou69

 

[ricou69]

Re : Probleme De Sauvegarde

Merci dan mais je le mais a quelle endroit du code module 6 sur fichier joint merci je connait tres mal le vba je bidouille
ricou69

je vient de le faire mais maintenant pas la saugarde qui a plus rien ma feuille excel qui a plus rien dan mon fichier est dans le premier post si tu veux y jeter un coup oeil merci pardon bonjousoir a toi aussi

 

[ricou69]

Re : Probleme De Sauvegarde

j'essaye toujour mais je trouve je doit etre trop bete sa fume
ricou69

 

[ricou69]

Re : Probleme De Sauvegarde

il n'y aurai donc pas de solution
sniff
ricou69

 

[wilfried_42]

Re : Probleme De Sauvegarde

bonsoir à tous, le forum

apres avoir sauvegardé ta facture, et avant de fermer ton fichier, tu dois detruire tous les bouton, les cadres etc

ActiveSheet.Shapes("Group Box 67").Select
Selection.Delete

cette commande te detruira uniquement un element

utilise l'enregistreur de macro, supprime tous ce que tu veux, recupere la macro et copie la dans ton code ou meme fais un call macrox

 

[ricou69]

Re : Probleme De Sauvegarde

je comprend plus rien la il n'y as que quelque mois que je suis sur excel j'apprend mais je suis pas superman je suis desolé de t'ennuier mais il bug de partout mon truc de sauvegarde regarde le fichier joint et dit moi se que tu en pense stp merci beaucoup a toi 😕
ricou69

 

[ricou69]

Re : Probleme De Sauvegarde

mais les boutons ne fond pas parti des cellules serai t'il possible que se ne soit pas possible de ne sauvegarde que la feuille sans les bouton
poutant avec l'impression on peut le faire??????

 

[wilfried_42]

Re : Probleme De Sauvegarde

re

j'ai déja trouvé un probleme, tu sauvegarde ta facture à l'aide d'un saveas

tu n'as donc plus ton fichier de base

je continue mon etude

 

[wilfried_42]

Re : Probleme De Sauvegarde

re:

bon ! on commence par ou ? il faut revoir toutes le systeme de sauvegarde de ta facture

avec un saveas :

facture devient 01011002-tartempion et tu travailles sur 01011002-tartempion et non sur facture
ton historique est inexistant

je te conseille donc de faire un classeur facture vierge appelé facture-copie

tu l'ouvres par un worbook.open "facture-copie.xls"

workbook("facture").sheet("facture").range("A:E").select
selection.copy destination:= workbook("facture-copie").range("Facture")
workbook("facture-copie").saveas etc..................
workbook("facture-copie").close (false)

je ne garantie pas le code, je ne suis pas encore suffisement bon (le serai je un jour ?????), c'est à confirmer

tiens moi au courant