Discussion :

[canorra]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci de votre aide

[SfJ5Rpw8]

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 ..?)

[canorra]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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..)

[canorra]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[SfJ5Rpw8]

à la limite tu peu écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If ActiveSheet.PageSetup.PrintArea <> "" Then
    ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Copy
Else
    ActiveSheet.UsedRange.Copy
End If

[canorra]

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

Merci de votre aide !

[canorra]

Bonjour à tous,

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

L'info peut toujours servir


Merci de votre aide