Copie de feuille qui fait planter ma macro

  • Initiateur de la discussion Initiateur de la discussion Yoyo
  • 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 !

Y

Yoyo

Guest
Bonjour j'ai un petit problème avec une macro.

Voila elle fonctionne bien une fois sur deux
elle plante au moment de la copie d'une feuille et elle me créer une erreur qui me ferme excel
j'ai annuler toutes les action évenementiel les alerte mais aucun résultat.
J'ai aussi essayé de changer la facon de faire la copie mais idem.


Je vous transmet le début de mon code en espérant que vous pourrez m'aider:


Option Explicit
Dim codepers As Variant 'à la lettre représentant le nom du commercial qui a réalisé la quote
Dim codeann As Variant ' c'est le dernier chiffre de l'année en cour
Dim codeclé As Variant ' c'est le code clé
Dim nomquote As String 'nom de la cote
Dim LD, LF As Long 'donne les ligne de début et de fin de la selection
Dim ldeb, lfin As Long 'variable de ligne sélectionnée pour travail
Dim difligne As Long '=LD-LF
Dim finmef As Long 'ligne de fin de mise en forme
Dim Ldébut As Long

Sub QUOTE_MAKER()

On Error GoTo erreur


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
'Donne la ligne de début et de fin de la sélection
With Selection
LD = .Row
LF = LD + .Rows.Count - 1
End With

' initialise les variables
ldeb = LD
lfin = LF

'Génération du quote log

' Met dans codepers le code ducommercial qui a réalisé la quote

Select Case Range('G' & LD, 'G' & LD).Value
'
Case 'Emmanuelle LIEBE'
codepers = 'E'
Case 'Sandrine PETIT'
codepers = 'S'
Case 'Isabelle VIALA'
codepers = 'I'
Case 'Pierre LESUR'
codepers = 'P'
Case 'Olivier GASTON'
codepers = 'O'
Case 'Evelyne THOMASSIN'
codepers = 'T'
Case 'Claire AIME'
codepers = 'C'
Case 'Marie-Dominique RAFFY'
codepers = 'M'
End Select
codeann = Right(Year(Date), 1)
codeclé = Right(Hex(Hour(Time) * Minute(Time)), 2)

nomquote = (codepers & codeann & Month(Date) & Day(Date) & codeclé)
'recopie quote log dans quote file



' Création d'une quotation


Sheets('Template Quote VSE').Select
Sheets('Template Quote VSE').Copy After:=Sheets(3) ' Copie la feuille template après la feuille 2
Sheets('Template Quote VSE (2)').Select
Sheets('Template Quote VSE (2)').Name = 'Quote' 'renomme la feuille
'Dim VoirFeuille As Integer
Sheets('Quote file OEM DISTRI').Select

For Ldébut = LD To LF
Range('F' & Ldébut) = nomquote
Next Ldébut
'ThisWorkbook.Activate


'With Sheets('Template Quote VSE')
' VoirFeuille = .Visible
' .Visible = xlSheetVisible
' .Copy After:=Sheets(3)
'With ActiveSheet
' .Name = 'Quote'
' End With
' .Visible = VoirFeuille
'End With

Cordialement Yoyo
 
- 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éponses
7
Affichages
163
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Réponses
5
Affichages
477
Retour