[vba-excel]Une ligne de code Ok en debuggage mais Ko en exécution normale

Bonjour,

La ligne suivante (insérer dans une boucle de mon code) plante en exécution normal mais passe en mode deboggage !!
Deux précisions :
* cela plante uniquement à la dernière itération du boucle (en décrementation).
* cela arrive uniquement pour les classeurs des formules ou liaisons

Quelqu'un a-t-il déjà rencontré ce type de soucis ?!

Code:

---

1 2	ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Copy

---

Merci de votre aide

et tu plante quoi des choux ...?


que fait-t'il ton code...?

à tu "conscience" que lorsque tu utilise "ActiveSheet" il sagit de la feuille de calcul active... donc pour pouvoir l'utiliser il te faut une feuille active.. et PrintArea est la zone d'impression défini sur cette feuille ... s'il n'y as pas de zone définie printArea renvoi une chaine vide... et Range("") renvoi une erreur 1004 ( c'est cela les choux ..?)

Il fait simplement la copie (valeur et format) de(s) feuille(s) avec son contenu d'un classeur vers un autre.

Je ne comprends pas les points suivants :
- cela fonctionne sur des feuilles simples mais pas sur des feuilles avec formules/liaisons
- la boucle ne marche pas que pour la dernière feuille à copiée
- le déroulement du code en debuggage fonctionne bien !! sans renvoie d'erreur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Sub copie_xls_vers_ppt(WB, PptPres, List_onglet As Variant) ' Activation de la gestion des erreurs On Error GoTo ErrorMessage Dim n As Integer, i As Integer, k As Integer, c As Interior   ' ======================================= ' pour les onglets sélectionnés du classeur n = UBound(List_onglet, 1)   For k = n To 1 Step -1 i = List_onglet(k) PptPres.Activate PptPres.Sheets.Add before:=Worksheets(Worksheets.Count) WB.Activate WB.Worksheets(i).Activate ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Copy PptPres.Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False   WB.Worksheets(i).Copy before:=PptPres.Worksheets(1) Next k WB.Close False Exit Sub '********************* Gestion des erreurs ************************* ErrorMessage: 'Erreur lors de l'éxécution msg = MsgBox("L'erreur # " & Str(Err.Number) & " a été générée par " _ & Err.Source & Chr(13) & Err.Description, vbCritical + vbOKOnly, "Erreur Identification") End Sub

---

Il me semble après quelques éliminations que c'est cette ligne qui pose soucis :

Code:

---

ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Copy

---

Il me semble, à mon niveau de connaissance, que tout les points dont tu parles sont vérifiés :
- classeur active donc activesheet ok
- zone d'impression non vide car contient des valeurs


Merci

et le message d'erreur..c'est quoi ....?

puis pour la zone d'impression je n'ai pas écrit vide mais définit...(fichier mise en page zone d'impression..)

Il s'agit de l'erreur suivante "1004":

Code:

---

L'erreur #1004 a été généré par VBAProject. Erreur définie par l'application ou par l'objet

---

Merci

à la limite tu peu écrire :

Code:

---

1 2 3 4 5 6

If ActiveSheet.PageSetup.PrintArea <> "" Then ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Copy Else ActiveSheet.UsedRange.Copy End If

---

Cela me permet de mieux cerner l'anomalie et ça ne renvoie pas d'erreur.

Merci de votre aide !

Bonjour à tous,

L'erreur provenait du fait que des feuilles étaient cachées !!

L'info peut toujours servir


Merci de votre aide