Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide Macro recherché

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion wilbur11
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

wilbur11

XLDnaute Junior
Bonjour à tous,

Étant assez débutant avec les macros, je ne comprends pas tout les subtilités du langage.
J’ai par contre réussi à faire ma macro.
Il me reste quelque bogue que j’essaye de régler 1 par 1 dont celui-ci.

Mon fichier étant trop gros pour être en PJ même en .ZIP, je mets donc ma macro.

J’ai de la misère avec le pastespecial dans la première partie de la macro. Lorsque j’exécute la macro il me donne une erreur du type : erreur d’exécution 1004. erreur défini par l’application pour la l’objet.

Si quelqu’un pouvait m’aider…

Sub essai()
Dim Nomfichier As String, chemin As String
ActiveSheet.Unprotect
With Sheets("Soumission client")
.Activate
.Copy
Nomfichier = "Soumission_" & Range("a4") & "_" & Range("b8")
ActiveSheet.UsedRange
.Copy
.PasteSpecial Paste:=xlValues

End With

'répertoire de sauvegarde
chemin = "D:\Mes documents\ebenisterie\soumission\"


ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'on définit le nom du futur fichier et son extension en tant que fichier xls
ActiveWorkbook.SaveAs Filename:=chemin & Nomfichier & ".xls"
Sheets("Soumission client").Name = Nomfichier

'là un petit message pour faire joli et indiquer que la sauvegarde a bien été exécutée
msg = "Votre Facture a été sauvegardée sous le nom et n° que vous lui avez donné."
Title = "Sauvegarde de la facture actuelle"
Style = vbOKOnly + vbInformation
Reponse = MsgBox(msg, Style, Title)

ActiveSheet.Protect
ActiveWorkbook.Close (False)

'sur le fichier d'origine on incrémente la cellule a7 de 1 et on efface les cellules
Sheets("Soumission client").Range("a4") = Range("a4") + 1
Sheets("devis").Range("b2:b5") = ""
Sheets("devis").Range("b7:b8") = ""
Sheets("devis").Range("b10") = "non"
Sheets("devis").Range("f14:s15") = ""
Sheets("devis").Range("c14:c14") = ""
Sheets("devis").Range("b17:b17") = ""

'on reprotège la feuille
ActiveSheet.Protect
End Sub
 
Trier par date Trier par votes
Re : Aide Macro recherché

Bonjour wilbur,

Peux-tu nous décrire l'ensemble des opérations que doit réaliser ta macro ?
Le plus simple serait de commenter ton code (et de le reposter avec la balise code #) pour expliquer ce qu'est censé réaliser chaque partie.
Pour être franc, je ne comprend pas ce que la partie

Code: 
With Sheets("Soumission client")
    .Activate
    .Copy
    Nomfichier = "Soumission_" & Range("a4") & "_" & Range("b8")
    ActiveSheet.UsedRange
    .Copy
    .PasteSpecial Paste:=xlValues
   
End With

est censée faire
 
Vote positif 0 Vote négatif
Re : Aide Macro recherché

Bonjour wilbur11, tototiti 🙂,
Après consultation des rûnes magiques par le chaman du vilage, une proposition:
VB: 
Sub essai_2()
Dim Nomfichier As String, chemin As String
Application.ScreenUpdating = False
ActiveSheet.Unprotect
chemin = "D:\Mes documents\ebenisterie\soumission\"
Sheets("Soumission client").Copy
With ActiveWorkbook
    With .Sheets("Soumission client")
        Nomfichier = "Soumission_" & .Range("a4") & "_" & .Range("b8")
        .UsedRange.Copy
        .Cells(1, 1).PasteSpecial Paste:=xlValues
        .PrintOut Copies:=1, Collate:=True
        .Name = Nomfichier
        .Protect
    End With
    .SaveAs Filename:=chemin & Nomfichier & ".xls"
    .Close (False)
End With
'là un petit message pour faire joli et indiquer que la sauvegarde a bien été exécutée
msg = "Votre Facture a été sauvegardée sous le nom et n° que vous lui avez donné."
Title = "Sauvegarde de la facture actuelle"
Style = vbOKOnly + vbInformation
Reponse = MsgBox(msg, Style, Title)
'sur le fichier d'origine on incrémente la cellule a7 de 1 et on efface les cellules
Sheets("Soumission client").Range("a4") = Range("a4") + 1
With Sheets("devis")
    .Range("b2:b5,b7:b8,c14,b17,f14:s15").ClearContents
    .Range("b10") = "non"
End With
'on reprotège la feuille
ActiveSheet.Protect
Application.ScreenUpdating = False
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Re : Aide Macro recherché

Merci de prendre du temps pour moi.

Premierement j'ai reussi a zipper mon fichier (j'ai aucune idée pourquoi ca plantait toujours mais la j'ai reussi) Donc voici mon fichier.

Le but de ma macro est de prendre mon onglet "soumission client" et de la copier dans un nouveau fichier que je vais sauvegarder sous le nom = "Soumission_" & Range("a4") & "_" & Range("b8")
ensuite d'imprimer une copie de la soumission
ensuite sur le fichier original j'efface les cellules
pour terminer j'incremente le numero de soumission du fichier original et je sauvegarde le fichier original

Esperant avoir été plus claire.

Code: 
Sub essai()
Dim Nomfichier As String, chemin As String
ActiveSheet.Unprotect
With Sheets("Soumission client")
.Activate
.Copy
Nomfichier = "Soumission_" & Range("a4") & "_" & Range("b8")
ActiveSheet.UsedRange
.Copy
.PasteSpecial Paste:=xlValues

End With

'répertoire de sauvegarde
chemin = "D:\Mes documents\ebenisterie\soumission\"


ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'on définit le nom du futur fichier et son extension en tant que fichier xls
ActiveWorkbook.SaveAs Filename:=chemin & Nomfichier & ".xls"
Sheets("Soumission client").Name = Nomfichier

'là un petit message pour faire joli et indiquer que la sauvegarde a bien été exécutée
msg = "Votre Facture a été sauvegardée sous le nom et n° que vous lui avez donné."
Title = "Sauvegarde de la facture actuelle"
Style = vbOKOnly + vbInformation
Reponse = MsgBox(msg, Style, Title)

ActiveSheet.Protect
ActiveWorkbook.Close (False)

'sur le fichier d'origine on incrémente la cellule a7 de 1 et on efface les cellules
Sheets("Soumission client").Range("a4") = Range("a4") + 1
Sheets("devis").Range("b2:b5") = ""
Sheets("devis").Range("b7:b8") = ""
Sheets("devis").Range("b10") = "non"
Sheets("devis").Range("f14:s15") = ""
Sheets("devis").Range("c14:c14") = ""
Sheets("devis").Range("b17:b17") = ""

'on reprotège la feuille
ActiveSheet.Protect
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Aide Macro recherché

Tototiti, Efgé, bonjour,

Effectivement Efgé tu as vu juste.

Par contre pour une raison que je ne m'explique pas encore ton code remanié plante a la fin soit apres l'incémentation du fichier. Il ne parviens pas à effacer les cellules. Pourtant tout me semble correct.

Avec le fichier que J'ai mis en PJ tantot aurais-tu la gentillesse de regarder le tout.

Merci!
 
Vote positif 0 Vote négatif
Re : Aide Macro recherché

Re
Une modif et une remarque sur la fin du code en défaut:
VB: 
'On ne peux incrémenter un texte (Soumission 248)
'Sheets("Soumission client").Range("a4") = Range("a4") + 1
With Sheets("devis")
    .Range("b2:b5,b7:b8,c14,b17,f14:s15") = ""
    .Range("b10") = "non"
End With
Cordialement
 
Vote positif 0 Vote négatif
Re : Aide Macro recherché

Merci infiniment Efgé.

Tout est rentré dans l'ordre.

A titre d'info. personnel, oui je peux incrémenter le numéro de soumission car si tu regarde dans la celule a4, tu vas voir que seul le numéro est inscrit. le mot soumission apparait par le format utilisé. J'ai fais l'ajustement sur la formule pour reactiver le tout et ca marche au poil.

Merci encore.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
276
AtTheOne
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
144
AlineJ
A
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
514
Simon 1234
S
  • Résolu(e)
XL 2021 Revenir sur Excel
Réponses
6
Affichages
530
Franc58
F
M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
477
marie3107
M
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
713
Zonmé
Z
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
673
job75
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
657
robpellan52
R
E
  • Question Question
Microsoft 365 GetFolder et Sharepoint
Réponses
3
Affichages
1 K
eric72
E
H
  • Question Question
Microsoft 365 Besoin aide : Erreur code macro . Problème est résolu
Réponses
7
Affichages
945
heart clean
H
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
528
francha62
F
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
535
Quentin2106
Q
M
  • Question Question
XL 2021 Macro/débogage et protection de feuille
Réponses
3
Affichages
585
Oneida
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
553
tactic6
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
601
loreak
L
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
611
Pimpon974
P
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
361
farid
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…