Discussion :

[DevG2x]

Hello,

Je viens demander votre aide car je suis face a un problème depuis environ 3 jours :

Dans un premier classeur je copie une fois une feuille 'maquette', après la copie je boucle sur toutes les feuilles pour trouver la nouvelle dont le nom est du style 'maquette (*)' puis la rempli sans problème.

Jusque la pas de souci, mais je copie cette feuille maquette dans un second classeur, sans fermer le précédent.

ma feuille 'maquette' est bien copiée dans mon second classeur et je peut en refaire des copies dans ce même classeur.

C'est ici que les problèmes commencent :

Je recommence ma recherche de feuille 'maquette (*)' mais cette fois ci impossible de la trouver par son nom (renvoie chaine vide :o), impossible de la sélectionner et encore moins d'écrire dedans..

Si quelqu'un a une idée pour me tirer de ce mauvais pas je lui en serai éternellement (éh oui) reconnaissant !

[Bigalo]

Bonjour,

Si tu nous fournissais un extrait de ton code, ce serait + facile pour te répondre.

[DevG2x]

En fait le problème est assez abstrait je n'ai pas d'erreur d'exec, il me saute juste 2 passages...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        strSheetName = ""
        Debug.Print Application.Sheets.Count
        For m = 1 To Application.Sheets.Count
            strSheetName = Application.Sheets(m).name
            Debug.Print m & " : " & Application.Sheets(m).name
            If (Left$(strSheetName, 10) = "maquette (") Then
                Exit For
            End If
        Next

et le résultat d'exec du debugueur

Code :

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

1
2
3
4
5
6
 
6 
2 : Milestone
3 : YEAR_USER_SELECT
4 : DATA_INFO
6 : ReportParameters

Ici pour m = 1 et m = 5 cad respectivement mes feuilles 'maquette' et 'maquette (2)' aucun traitement..

[ouskel'n'or]

Si tu mets un exit for si la condition est remplie, il est normal que tu n'aies qu'un nom de feuille contenant "maquette ("
Fais un essai :
Tu prends un classeur tout neuf
Nomme deux feuilles "maquette (1)" et "maquette (2)"
Teste cette macro

Code :

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

1
2
3
4
5
6
7
8
Sub test()
        For m = 1 To Application.Sheets.Count
            strSheetName = Application.Sheets(m).Name
            If Left$(strSheetName, 10) = "maquette (" Then
                Debug.Print m & " : " & strSheetName
            End If
        Next
End Sub

Là, si tes deux feuilles ne sont pas listées, alors tu as un "vrai" problème
Bon après-midi

[CodeFacile]

Quand tu dis que tu fais une copie -> de quelle manière?
Tu fais un clic droit sur l'onglet et du choisis 'Déplacer ou copier' , dans l'écran est ce que tu coches 'Créer une copie' ? ; Sinon c'est normal , tu as fais un déplacement de feuillet ( un move en VBA).

[DevG2x]

Oui c'est bien a propos d'une copie d'onglet,

Il m'est toujours impossible de boucler sur cet onglet en particulier en utilisant:
'Sheets(int)' ou 'Sheets("maquette") '

mais j'ai résolu mon problème en affectant le nouvel onglet a un objet worksheet ( je vais me renseigner sur la subtile différence) en faisant juste après la copie :

'set wsMaquette = ActiveSheet'

si quelqu'un à une explication je suis quand même preneur

Merci pour vos réponses