VBA : copie de feuilles qui se passe mal

[C@thy]

Bonjour le forum,

j'essaie de copier les feuilles d'un vieux fichier (créé sous office97) comportant des modules macros.
En fait, ce fichier a vécu, des feuilles ont été supprimées, d'autres rajoutées, une feuille a pour nom Sortie, ce qui semble le perturber...(?), il y a des feuilles qui sont des boites de dialogue (le classeur est vraiment ancien)

Tout se passe très bien jusqu'à la feuille 6, mais après il cherche à me copier les modules!...
(j'ai mis des variables pour tracer le n° de la feuille et son nom,
Il me dit que le classeur comporte 27 feuilles alors qu'il n'en a que 12!!!)
bref, j'y perds mon latin...

Auriez-vous une idée pour pouvoir copier les feuilles de mon classeur correctement???

Un grand merci à vous si vous pouvez m'apporter votre aide, même minime...

Bises sous la pluie...

C@thy

PS les fichiers joints ne passent pas, je fais un envoi à part

 

[tototiti2008]

Re : VBA : copie de feuilles qui se passe mal

Bonjour à toutes et tous 🙂,

Pour le moins Bizarre.... J'ai essayé d'insérer une feuille et de la nommer Paramètres et évidement il refuse car pour lui c'est une feuille existante bien que ça apparaisse comme module plutôt que comme feuille...
Bizarre ces "modules-feuilles", d'autant qu'un code comme

sheets("Paramètres").Visible = xlsheetvisible

ne plante pas mais ne fait rien de visible
Pas un spécialiste des macros XL4, est-ce que ça aurait un lien avec les feuilles macro XL4 ?
Ou alors le passage MAC-PC qui n'est pas passé correctement...
Pas trop d'idée comme ça, désolé, première fois que je vois ça

 

[C@thy]

Re : VBA : copie de feuilles qui se passe mal

Contente de te lire, tototiti🙂,

et merci pour ton aide.

Je suis comme toi, je cherche, je cherche😕...

(mais je ne trouve rien!🙁)
passage MAC/PC à exclure, et je ne vois pas de feuille macro XL4...

en fait, il faudrait tester : si c'est un module, alors goto suivant🙄
mais ça,...😕😕😕

Bises

C@thy

 

[C@thy]

Re : VBA : copie de feuilles qui se passe mal

P.S. Tototiti,

c'est une idée, si on listait toutes les macros et qu'on fasse un tableau,
serait-il possible (et si oui, comment) de sortir du tableau des feuilles le tableau contenant le nom des macros??
et ensuite on copierait les feuilles qui ne sont pas des macros (tordu, mais bon, pas d'autre idée!!)

Bizz

C@thy

 

[C@thy]

Re : VBA : copie de feuilles qui se passe mal

j'ai trouvé ce code, qui supprime les modules

'Ajouter la référence
Microsoft VisualBasic For Application Extensibility 5.3

• Sub SupprimeModule()
• 'Macro de suppression de l'intégralité des modules de code d'un classeur défini
• 'le dit classeur étant ouvert
• Dim Wk As Workbook
• Set Wk = Workbooks("Classeur1.xls" )
• Dim i As Integer
• For i = Wk.VBProject.VBComponents.Count To 1 Step -1
• If Wk.VBProject.VBComponents.Item(i).Type = 1 Then
• Wk.VBProject.VBComponents.Remove Wk.VBProject.VBComponents.Item(i)
• End If
• Next i
• End Sub

 

[tototiti2008]

Re : VBA : copie de feuilles qui se passe mal

Re,

Sinon, la dernière proposition d'Efgé ne fonctionne pas ?
Ou alors, sur la base de l'une de ses propositions :

Sub Test2()
Dim Tableau As Variant, Wbk As Workbook, nom1$
nom1 = "c:\temp\Titin.xls"
Set Wbk = ActiveWorkbook
For i = 1 To Wbk.Sheets.Count
    If Wbk.Sheets(i).Visible <> xlSheetVeryHidden Then
        If Not IsArray(Tableau) Then
            Tableau = Array(Wbk.Sheets(i).Name)
        Else
            ReDim Preserve Tableau(UBound(Tableau) + 1)
            Tableau(UBound(Tableau)) = Sheets(i).Name
        End If
    End If
Next i
Sheets(Tableau).Copy
With ActiveWorkbook
    .SaveAs Filename:=nom1, FileFormat:=xlNormal
    .Close False
End With
End Sub

 

[C@thy]

Re : VBA : copie de feuilles qui se passe mal

Arf! ça marche pas.

pourtant ceci fonctionne : (fichier joint)

Bises

C@thy

 

[C@thy]

Re : VBA : copie de feuilles qui se passe mal

on s'est croisés... je teste ton code

C@thy

 

[C@thy]

Re : VBA : copie de feuilles qui se passe mal

Non, toto, ça ne fonctionne pas, les modules ne sont pas veryhidden🙁

Bises et merci à toi😉

C@thy

 

[Efgé]

Re : VBA : copie de feuilles qui se passe mal

Re, Bonsoir Tototiti 🙂
@ Cathy
A tu essayé le code de mon post 15 ?
Cordialement

 

[C@thy]

Re : VBA : copie de feuilles qui se passe mal

Re, Je propose de faire l'inverse : Supprimer tous les modules dans le classeur et l'enregistrer sous un nouveau nom. On conserve toutes les feuilles, mais... ...c'est un nouveau classeur. A toi de voir si c'est acceptable. Cordialement

Non, efgé, j'ai un fichier avec mes nouvelles macros, je dois importer les données dans ce fichier pour tester mes macros

C@thy

 

[Efgé]

Re : VBA : copie de feuilles qui se passe mal

Bonjour à tous, Une dernière proposition : Suppression des modules dans le classeur "à traiter" puis importation dans celui-ci de tous les modules du classeur portant la macro. Cordialement

 

[tototiti2008]

Re : VBA : copie de feuilles qui se passe mal

Bonjour C@thy 🙂, Bonjour Efgé 🙂,

Je viens d'essayer la macro là avec succès sur un XL2007, je ne comprend pas pourquoi ça ne passe pas sur ton 2010

Sub Test2()
Dim Tableau As Variant, Wbk As Workbook, nom1$
nom1 = "c:\temp\Titin.xlsm"
Set Wbk = ActiveWorkbook
For i = 1 To Wbk.Sheets.Count
    If Wbk.Sheets(i).Visible <> xlSheetVeryHidden Then
        If Not IsArray(Tableau) Then
            Tableau = Array(Wbk.Sheets(i).Name)
        Else
            ReDim Preserve Tableau(UBound(Tableau) + 1)
            Tableau(UBound(Tableau)) = Sheets(i).Name
        End If
    End If
Next i
Sheets(Tableau).Copy
With ActiveWorkbook
    .SaveAs Filename:=nom1, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    .Close False
End With
End Sub

 

[C@thy]

Re : VBA : copie de feuilles qui se passe mal

Merci à vous deux. Efgé, j'ai un message d'erreur,
toto, je teste

Edit : Tototiti, je confirme, ça ne marche pas sous 2010
Sheets(I).Visible renvoie true pour la feuille "Paramètres" qui n'est pas une feuille mais un module🙁

Bizz et merci.

C@thy

 

[Zon]

Re : VBA : copie de feuilles qui se passe mal

Salut,

une autre approche avec typename, on veut récupérer graphes , feuillle de calcul , feuilles XL5, éventuellement feuille XL4.

Function TabF(C As Workbook)
  Dim I&, K&, Temp()
  With C
    For I = 1 To .Sheets.Count
      Select Case TypeName(.Sheets(I))
        Case "Worksheet", "DialogSheet", "Chart"
          ReDim Preserve Temp(K)
          Temp(K) = .Sheets(I).Name
          K = K + 1
      End Select
    Next I
  End With
 TabF = IIf(K > 0, Temp, "Pas de feuilles à copier")
End Function

A+++

 

[C@thy]

Re : VBA : copie de feuilles qui se passe mal

Merci Zon, contente de te lire, c'est exactement ça le principe!!! Génialllll!!!!!!!!!!!!

Un grand MERCI!!!

Bizz

C@thy