Se connecter avec
S'enregistrer | Connectez-vous

Argument dans macro de recopie depuis un autre classeur

Dernière réponse : dans Programmation

Bonjour à tous,

Voilà je vous explique mon problème.
J'ai un classeur donc chaque feuille est une semaine (s1 ..... s53 )

Dans chacune de ces feuilles, les valeurs doivent être prises dans un autre classeur dont les feuilles sont également des semaines.
Or pour éviter de répeter l'opération manuellement sur chaque feuille, je voudrais créer une marcro qui le fasse.

Le soucis est que dans la formule suivante :
  1. ActiveCell.FormulaR1C1 = "=[planning_patricia_modifié.xls]s1!R[26]C[-1]"


Je voudrais transformer le s1 en un argument que je pourrais incrémenter

Si quelqu'un a une idée

Je vous remercie par avance de votre aide.

Autres pages sur : argument macro recopie classeur

Lassé par la pub ? Créez un compte

Meilleure solution

Expert Programmation

Bonjour.

Ça ne me semble pas très compliqué.
Partons de ce code.

  1. Dim semaine As String
    

  2.  
  3. semaine = "s1"
    

  4. ActiveCell.FormulaR1C1 = "=[planning_patricia_modifié.xls]" & semaine & "!R[26]C[-1]"
    

  5. ...
    

  6. semaine = "s2"
    

  7. ActiveCell.FormulaR1C1 = "=[planning_patricia_modifié.xls]" & semaine & "!R[26]C[-1]"


C'est difficile à incrémenter. Il faudrait un entier. Ajoutons le :spamafote: 


  1. Dim semaine As Integer
    

  2.  
  3. For semaine = 1 To ..
    

  4.     ...
    

  5.     ActiveCell.FormulaR1C1 = "=[planning_patricia_modifié.xls]s" & semaine & "!R[26]C[-1]"


Cela répond-il à ton problème ?
Lassé par la pub ? Créez un compte

Créer un nouveau sujet