Probleme macro

[Polo001]

Sub Parcourir()
Dim nomFichier As String
'Ton code pour obtenir le nom du fichier
nomFichier = Application.GetOpenFilename

MaMacro (nomFichier) 'Appelle ta procédure
End Sub

Sub MaMacro(nomFichier As String)
Workbooks.Open Filename:=nomFichier

Sheets("NEWS").Select
ActiveWindow.SmallScroll Down:=6
Range("E22").Select
Application.CutCopyMode = False
Selection.Copy
Range("D22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("GRAPH NEWS.xls").Activate
Range("B13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
Windows(nomFichier).Activate
ActiveWindow.SmallScroll Down:=6
Range("C40").Select
:=False, Transpose:=False

Je debute en macro, mon objectif est la mise à jour d'un tableau à partir d'autres fichiers.
J'ai repris une piste sur le forum mais je n'y arrive pas : la macro bloque au retour sur Windows(nomFichier).Activate.

merci

 

[CHALET53]

Re : Probleme macro

Bonjour,

Il me semble qu'il faille rempacer (nomfichier) par le vrai nom du fichier sur lequel tu veux retourner par exemple "tata.xls" (entre guillement)

a+

 

[Polo001]

Re : Probleme macro

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.

 

[mécano41]

Re : Probleme macro

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.

Bonjour,

En fait le nom du fichier est bien dans la variable (tu le vois en affichant les variables ou en insérant la ligne : "msgbox(nomFichier)" avant la ligne fautive). Mais après, que l'on utilise la variable ou le nom complet directement, il y a une erreur 9 "l'indice n'appartient pas à la sélection" et ce, que l'on utilise ce nom avec windows, workbooks ou worksheets. J'ai cherché un peu partout, je n'ai rien trouvé et j'aimerais comprendre également!

Cordialement

 

[Pierrot93]

Re : Probleme macro

Bonjour Polo, Mecano, Chalet

essaye en modifiant le code de ta macro comme suit :

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"

 

[mécano41]

Re : Probleme macro

Bonjour Polo, Mecano, Chalet

essaye en modifiant le code de ta macro comme suit :

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"

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

 

[Pierrot93]

Re : Probleme macro

Re

comprends pas, chez moi cela fonctionne bien, faudrait peut être voir ton code dans la totalité. De quel nom court parles tu ?

@+

 

[mécano41]

Re : Probleme macro

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

Je n'ai rien dit, apparemment l'erreur vient d'ailleurs. Merci Pierrot93

 

[Polo001]

Re : Probleme macro

Merci beaucoup,

En utilisant le code de pierrot cela fonctionne bien.

 

[Polo001]

Re : Probleme macro

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

J'utilise beaucoup le recorder mais la je dois réaliser 12 macros et ca va pas etre très pratique.
Dans le meme ordre d'idée, un autre fichier que j'ai réalisé pour avoir votre avis.
merci

 

[Polo001]

Re : Probleme macro

j'ai trouvé en utilisant

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