Bonjour,
Pour mon stage je dois gérer deux fichiers excel, c'est a dire prendre les valeur que j'ai eu avec un premier programme et les envoyées dans un autre fichier excel, mais je ne comprend pas comment fonctionne la gestion des classeurs,
Lorsque je déclare le classeur cible, je n'arrives plus a travailler sur le classeur de base ou je suis, il me sors une erreur comme si il ne le trouvais plus, "erreur 9, l'indice n'appartient pas a la sélection". j'ai casiment tout essayé toute la matinée mais il y a un truc que je dois louper et ça commence à me rendre zinzin
voici l'extrait du code qui pose problème, le classeur de base contient la feuille consommation où sont les valeurs à envoyer sur l'autre classeur:
Merci d'avance,
Pozaec
Pour mon stage je dois gérer deux fichiers excel, c'est a dire prendre les valeur que j'ai eu avec un premier programme et les envoyées dans un autre fichier excel, mais je ne comprend pas comment fonctionne la gestion des classeurs,
Lorsque je déclare le classeur cible, je n'arrives plus a travailler sur le classeur de base ou je suis, il me sors une erreur comme si il ne le trouvais plus, "erreur 9, l'indice n'appartient pas a la sélection". j'ai casiment tout essayé toute la matinée mais il y a un truc que je dois louper et ça commence à me rendre zinzin
voici l'extrait du code qui pose problème, le classeur de base contient la feuille consommation où sont les valeurs à envoyer sur l'autre classeur:
Sub copie_valeurs()
Set classeur = ActiveWorkbook
'Set classeur = Workbooks("C:\Users\lhelblin\Documents\Stage\Fichiers excel\Alpha.v1.xlsm")
Set classeur1 = Workbooks.Open("C:\Users\lhelblin\Documents\Stage\Fichiers excel\Matières productions plafonds 2016cop.xlsx")
' classeur1 = "C:\Users\lhelblin\Documents\Stage\Fichiers excel\Matières productions plafonds 2016cop.xlsx"
' classeur = "C:\Users\lhelblin\Documents\Stage\Fichiers excel\Alpha.v1.xlsm"
'
'Workbooks.Open(classeur1).Activate
'thisWorkbooks.Activate
tabmois = Array("indexage", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
'classeur.Activate
nbcolonne = (Sheets("consommation").Cells(1, Columns.Count).End(xlToLeft).Column) - 1 <--le programme bloque a l'exécution de la première ligne qui touche au classeur de base
nbligne = (classeur.Worksheets("consommation").Cells(Application.Rows.Count, 1).End(xlUp).Row) - 1 <-- ce modèle la ne fonctionne pas non plus c'est meme pire
Merci d'avance,
Pozaec