Probleme macro

Polo001 à dit:

En fait, le fichier n'est pas toujours le même, par contre l'action est la même : récuperer des données; donc si je mets le nom du fichier ca marche mais que sur ce fichier.
Je pense que le probleme, c'est que la macro se souvient pas de la variable nomFichier. Et si je la redéclare il me dit qu'elle est déja dans la procédure.

Cliquez pour agrandir...

Pierrot93 à dit:

Bonjour Polo, Mecano, Chalet

essaye en modifiant le code de ta macro comme suit :

Code:

Sub MaMacro(nomFichier As String)
Dim monnom As String
Workbooks.Open Filename:=nomFichier
monnom = ActiveWorkbook.Name

en fait ta variable "nomfichier" contient également le chemin complet du fichier, synthaxe non valide pour sélectionner la fenêtre.

bon dimanche

Edition : ensuite faire référence à ce nom dans la synthaxe
"Windows(monnom).Activate"

Cliquez pour agrandir...

mécano41 à dit:

Avec le nom court, ça ne va pas non plus (erreur 1004)

Cliquez pour agrandir...

Sub Exporter()
'
'
Dim mois As Integer
mois = InputBox("Entrer mois en cours? ex:01")
Sheets("Semaine").Select
Range("B13:F13").Selectcopie la ligne du tableau
Selection.Copy
Sheets("Mois").Select
Rows("6:18").Select
Selection.EntireRow.Hidden = False les mois sont cachés pour impression

Ici je veux dire quand mois=01 alors B6 quand 02 b7 etc
Range("B6").Select
ActiveSheet.Paste

Range("J43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K45").Select

Ici je veux masquer juste les mois non remplis
Rows("14:17").Select

Selection.EntireRow.Hidden = True
Range("G33").Select
End Sub

Cliquez pour agrandir...

dim mois = inputbox()
Range("C" & mois).Select

Cliquez pour agrandir...