probleme selection feuille

Version imprimable

Bonjour,

j'ai un petit soucis, surement pas grand chose mais la je seche.

Dans ma macro, je demande par le biais d'une inputbox le numéro du mois.
le resultat est stocké dans "mois1"
j'ai des feuilles nommées 1,2,3 ...12 pour les 12 mois.
Je veux allez recupérer des données dans ces feuilles pour les copié dans une autre et la j'ai un message d'erreur disant l'indice n'appartient pas a la selection

Je vous mets une partie du code
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 37 38 39 40 Sub génération_bilan() Dim mois1 As String mois1 = InputBox("quel mois?(en chiffre)") Call mdc End Sub Sub mdc() Sheets("mdc").Activate Application.ScreenUpdating = False For a = 32 To 35 Step 1 'tete Cells(11, 2) = Worksheets(mois1).Cells(a, 28) Cells(12, 2) = Worksheets(mois1).Cells(a, 39) Cells(13, 2) = Worksheets(mois1).Cells(a, 50) 'enregistrer Range("A1:K38").Select ChDir "C:\Users\LFRBOD3\Desktop" Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "V:\prévention-environnement\ACCIDENT DU TRAVAIL\STATS AT\communication sections\" & Cells(1, 1).Value & "__" & mois & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Next a End Sub
merci d'avance

Bonsoir,
La variable mois1 est inconnue dans ta procédure mdc.
Soit tu la déclares au niveau du module soit tu prévois un argument à ta procédure mdc permettant de transmettre à cette dernière la valeur de mois1
Petit exemple pour la solution 2
Je te conseille vivement de faire précéder ton code par Option Explicit, tu aurais tout de suite vu d'où venait ton problème.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Sub génération_bilan()
 Dim mois1 As String
 mois1 = InputBox("quel mois?(en chiffre)")
 Call mdc(mois1)
End Sub
Sub mdc(nMois)
 Sheets("mdc").Activate
 Application.ScreenUpdating = False
 For a = 32 To 35 Step 1
  ' Tete
  Cells(11, 2) = Worksheets(nMois).Cells(a, 28)
  Cells(12, 2) = Worksheets(nMois).Cells(a, 39)
  Cells(13, 2) = Worksheets(nMois).Cells(a, 50)
  ' Enregistrer
  Range("A1:K38").Select
      ChDir "C:\Users\LFRBOD3\Desktop"
      Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          "V:\prévention-environnement\ACCIDENT DU TRAVAIL\STATS AT\communication sections\" & Cells(1, 1).Value & "__" & mois & ".pdf", Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
          False
 Next a
End Sub

27/01/2012, 17h43
dave.bonnin

merci pour ta rapidité et surtout ton efficacité.

maintenant, pour bien comprendre encore une chose.

comment je fais si j'ai plusieurs variable à transmettre?

et pourquoi passer de :
Call mdc(mois1)
à
Sub mdc(nMois)

Pourquoi ne garde ton pas mois1 apres sub mdc?

merci
28/01/2012, 00h00
BlueMonkey

Bonsoir,

Citation:

Pourquoi ne garde ton pas mois1 apres sub mdc?

C'est un problème de portée de variable.
Une variable déclarée dans une fonction n'existe que dans cette fonction.
Les limites de fonction sont repérées par

Code:

Sub <nom de fonction>(<paramètres>)

et

Code:

End Sub

Donc mois1 n'existe que dans génération_bilan().
Et nMois n'existe que dans mdc()
>>ici<< voir § Les niveaux de variables