Subscript out of range
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets (ici 5)
xlApp.SheetsInNewWorkbook = 2
'On ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
'On donne un nom au classeur
xlBook.SaveAs ("H:\Mon Classeur.xlsx")
'On rend le classeur visible
xlApp.Visible = True
'On créer l'objet onglet dans le nouveau classeur créé
Set xlSheet = xlBook.Worksheets(1)
'On affecte un nom aux l'onglets
xlSheet.Name = "Janvier"
'on libère l'objet onglet pour pouvoir en créer un nouveau ... etc
Set xlSheet = Nothing
'
'
Set xlSheet = xlBook.Worksheets(2)
xlSheet.Name = "Février"
'
'....... On donne un nom à chaque onglets
'
'
'On remet la propriété de l'application à 3 (par défaut)
xlApp.SheetsInNewWorkbook = 3
'On ferme l'application
'xlApp.Quit
'......................................................................
Fin = ActiveSheet.Range("g7").End(xlDown).Row
x = 1
For i = 7 To Fin
Workbooks("Mon Classeur.xlsx").Sheets("Janvier").Range("b" & x).Value = ActiveSheet.Range("G" & i)
x = x + 1
Next i
End Sub
Je demande pourquoi il m' afficher cette erreur !!!
Bonjour
D'abord, tu es sur un Forum.
Les bonnes meurs ou la politesse font que, comme tu l'auras remarqué, comme chez le coiffeur, on rentre en disant "Bonjour"
Puisque tu ne sembles pas familiarisé, je te suggère avant de poursuivre de prendre connaissance des règles concernant le Forum.
https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html
Tu es sur le Forum "Questions"
Alors, quelle est la question?
Cordialement
Bonjour à tous
Je pense que ce type de demande peut faire partie d'un livre d'or....
Pas de formule de politesse
Pas d'explications
Un code pondu comme un étron sur une feuille blanche.
Et dém...dez-vous!!!
Revois un peu ta façon d'aborder tes soucis sur un forum rempli de bénévoles, tu ne t'adresses pas à des robots
PS : @ ThauThème, tu peux te lâcher, je sais que tu adores cela....
- A ton avis, quel est le plus grand mal de notre époque : l'ignorance ou l'indifférence ?
- J' sais pas et j' m'en fous !
Marc L a écrit :- A ton avis, quel est le plus grand mal de notre époque : l'ignorance ou l'indifférence ?
- J' sais pas et j' m'en fous !
Re-bonjour après 6ans,
Tout d'abord, je suis désolé par la façon qui j'ai posé la question.
Honnêtement, je sais pas qu'est ce qu'il s'est passé avec moi en 2015.
Je sais bien que dans cette période, j'étais dans la pression totale.
C'est pas mon genre, la preuve j'ai demandé pardonne après 6 ans.
Je compte sur votre compréhension.
Cordialement,
Aymen