Discussion :

[dlight]

Bonjour à tous.

à l'aide ce forum, j'ai créé ce code

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
37
38
39
CeFichier = ActiveWorkbook.Name
 
Fichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If Fichier <> False Then
    Set Wk = Workbooks.Open(Fichier)
 
End If
Worksheets("Taux").Visible = -1
Worksheets("DeBase").Visible = -1
LautreFichier = ActiveWorkbook.Name
 
Worksheets("Taux").Visible = -1
 
 Sheets("gestion").Select
 Range("A1").Select
 Selection.Copy
 Windows(CeFichier).Activate
 Sheets("gestion").Select
 Range("A1").Select
 Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
        Windows(LautreFichier).Activate
 
 
 
For n = 1 To Sheets.Count
 
 
 If Not "|Remises|Gestion|DeBase|Écriture|Taux|FSS|" Like "*|" & Sheets(n).Name & "|*" Then
 LeNomActuel = Sheets(n).Name
  If Not Trouve Then RéponseEmployé = MsgBox("Voulez-vous transférer les données permanentes de " & LeNomActuel & " à l'année 2011 ?", vbYesNo, "Mise à jour 2011")
 
 Select Case RéponseEmployé
 
    Case 6
'code si oui...
Case 7 
'code si non

Dans mon fichier que je sélectionne au début de mon code, j'ai les 6 feuilles pour lesquels je ne veux pas de mise à jour + la feuille Maman et la feuille Papa.

Lors de l'utilisation du code, Excel ne me propose pas les 6 feuilles (ce qui est parfait) puis me propose la feuille "Maman" (ce qui est encore parfait).

Par contre, il ne me propose pas la feuille "Papa" et le code se termine par l'erreur 9.

Quelqu'un peut m'aider ?

Merci à l'avance

[pgz]

Bonsoir.

On ne voit pas tout. Cependant voici qui pourrait faire avancer le schmilblick : devant chaque appel de la collection Sheets précise le classeur. Par exemple

Code :

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

Workbooks(Fichier).Sheets(i) ....

Cordialement,

PGZ

[dlight]

Merci pgz.

Vous avez raison mais j'ai de la difficulté à saisir ce que je dois modifier afin de corriger mon problème.

J'ai supprimé le code des mes réponses (Case 6 et 7) et le code détecte Maman et Papa. C'est donc mon code de mes réponses qui cause un problème.


Mon code si l'utilisateur répond oui ne fait que sélectionner la feuille "Maman" de l'autre fichier, copie quelques cellules et les colle dans mon présent fichier

Code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DansCeFichierFeuille = "Employé 1"
 
            Windows(LautreFichier).Activate
            Sheets(LeNomActuel).Select
            Range("A2").Select
            Selection.Copy
            Windows(CeFichier).Activate
            Sheets(DansCeFichierFeuille).Select
            Range("a2").Select
            Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

J'ai également modifié...

Code :

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

 For n = 1 To Workbooks(CeFichier).Sheets.Count

Merci à l'avance

Dlight

[pgz]

Re,

Cela doit venir de ce que tant le traitement "oui" on active l'autre fichier... DOnc je répète le conseil : avant chaque Sheets préciser le classeur, et pas seulement dans l'instruction For ...
Dès la ligne suivante, par exemple

Code :

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

If Not "|Remises|Gestion|DeBase|Écriture|Taux|FSS|" Like "*|" & Workbooks(CeFichier).Sheets(n).Name & "|*" Then

Ca devrait aller mieux.

PGZ

[dlight]

Merci pgz.

Vous aviez encore une fois raison

L'élève que je suis n'a pas écouté le maître que vous êtes...



Dlight

[mercatog]

Et pour compléter, habitue toi déjà à travailler avec des variables au lieu des Activate, Select, Windows(...) et de déclarer convenablement toutes tes variables

Ci-joint ton code

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
Dim Awk As Workbook, wk As Workbook
Dim Fichier As Variant
Dim n As Integer
Dim LeNomActuel As String
 
Application.ScreenUpdating = False
Set Awk = ThisWorkbook
Fichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If Fichier <> False Then
     Set wk = Workbooks.Open(Fichier)
     With wk
          .Sheets("Taux").Visible = -1
          .Sheets("DeBase").Visible = -1
          Awk.Sheets("gestion").Range("A1").Value = .Sheets("gestion").Range("A1").Value
          For n = 1 To .Sheets.Count
               If Not "|Remises|Gestion|DeBase|Écriture|Taux|FSS|" Like "*|" & .Sheets(n).Name & "|*" Then
                    LeNomActuel = .Sheets(n).Name
                    If Not Trouve Then
                         RéponseEmployé = MsgBox("Voulez-vous transférer les données permanentes de " & LeNomActuel & " à l'année 2011 ?", vbYesNo, "Mise à jour 2011")
                         Select Case RéponseEmployé
                              Case 6
                                   'code si oui...
                              Case 7
                                   'code si non
                         End Select
                    End If
               End If
          Next n
     End With
     Set wk = Nothing
End If
Set Awk = Nothing