titiborregan5
XLDnaute Accro
Bonjour à tous,
je rencontre un problème dans un code vba où j'indique la copie d'une feuille sur un nouveau classeur.
Pour info, le contexte:
J'ai créé via macro 1 fichier Excel par service et l'ai envoyé à chaque chef de service, qui l'a lui-même envoyé à tous ses agents...
Je reçois donc plein de retours...
La feuille qui m'intéresse contient un certain texte en A1.
Je fais donc une condition et copie la feuille si besoin...
Pour une 100aine ça fonctionne et bizarrement arrivé un moment ça bloque...
Ne comprenant pas pourquoi j'essaie à la main déjà pour voir... et là la feuille ne peut se copier coller autre part... Si je ne coche pas "Créer une copie" ça marche et me créé un nouveau classeur, mais ce n'est pas ce que je cherche...
Je vous joins le fichier qui bloque (sans données mais qui bloque toujours)...
Pour info dans mon code je unprotect la feuille...
Peut-être que le problème vient du presse papier?? Mais plusieurs fois de suite au même endroit je trouve ça étrange... Au cas où, comment vider le presse papier??
Le code en question (qui fait partie d'un module bien rempli...Si vous voulez tout le code dites-le moi!!!)Je travaille depuis un fichier qui va ouvrir et travailler sur les autres!
Merci d'avance pour votre aide!!
Tibo
je rencontre un problème dans un code vba où j'indique la copie d'une feuille sur un nouveau classeur.
Pour info, le contexte:
J'ai créé via macro 1 fichier Excel par service et l'ai envoyé à chaque chef de service, qui l'a lui-même envoyé à tous ses agents...
Je reçois donc plein de retours...
La feuille qui m'intéresse contient un certain texte en A1.
Je fais donc une condition et copie la feuille si besoin...
Pour une 100aine ça fonctionne et bizarrement arrivé un moment ça bloque...
Ne comprenant pas pourquoi j'essaie à la main déjà pour voir... et là la feuille ne peut se copier coller autre part... Si je ne coche pas "Créer une copie" ça marche et me créé un nouveau classeur, mais ce n'est pas ce que je cherche...
Je vous joins le fichier qui bloque (sans données mais qui bloque toujours)...
Pour info dans mon code je unprotect la feuille...
Peut-être que le problème vient du presse papier?? Mais plusieurs fois de suite au même endroit je trouve ça étrange... Au cas où, comment vider le presse papier??
Le code en question (qui fait partie d'un module bien rempli...Si vous voulez tout le code dites-le moi!!!)Je travaille depuis un fichier qui va ouvrir et travailler sur les autres!
VB:
Sub trouve_nom_feuille2()
For feuille = 1 To Awb.Sheets.Count
If Awb.Sheets(feuille).Range("a1") = "Répartition Analytique du temps de travail des agents" Then
Awb.Sheets(feuille).Unprotect
nomfichier = Awb.Sheets(feuille).Range("b5") & " " & Awb.Sheets(feuille).Range("b4") & ".xls"
'MsgBox Awb.Sheets(feuille).Name
Awb.Sheets(feuille).Copy 'BLOQUE ICI
Application.DisplayAlerts = False
'MsgBox R2 & nomfichier
ActiveWorkbook.SaveAs R2 & nomfichier
Set Awb2 = ActiveWorkbook
With Awb2.Sheets(1)
If .Range("b4") = "" Then
Else
NomAgent = .Range("b4")
SerVice = .Range("b5")
.Columns(1).Insert shift:=xlToRight
.Range(Range("a17"), Range("a26")) = NomAgent
Call Recopie_infos
nb = nb + 1
End If
End With
Application.DisplayAlerts = True
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Next
End Sub
Merci d'avance pour votre aide!!
Tibo