Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ma macro ne se developpe pas

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

PHILIP

XLDnaute Occasionnel
Bonsoir à tous

J'ai besoin de votre aide car une erreur m'indique "erreur 9 l'indice n'appartient pas à la selection indiquée et la je ne comprends pas
Ma macro est senséee créee un classeur, renommée les 3 feuilles ajouter une 4eme et la renommée, ouvrir un classeur existant, copier sa premiere feuille et la coller dans la premiere feuille du dossier crée puis elle doit la mettre en forme . helas elle creer bien le classeur , ouvre bien le classeur demandé mais se met en erreur dés la premiere feuille selectionnée qui existe bien elle
Pourriez vous m'aider ? je suis encore débutant
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=("c:\Documents and Settings\PC42\Bureau\ Tages.xls")
Sheets("Feuil1").Name = "Tagesleitung1"
Sheets("Feuil2").Name = "Ruckstand Znl"
Sheets("Feuil3").Name = "Ruckstand Zdl"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Status 6"
Workbooks.Open "C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls"
ActiveWorkbook.RefreshAll
Sheets("Tagesleitung").Activate Cells.Select
Selection.Copy
Workbooks("Tages").Worksheets("Tagesleitung1").Activate

Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'Windows("TAGESBERICHT.xls").Activate
Application.CutCopyMode = False
'Selection.Copy
'Windows("Classeur3").Activate
'Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
Rows("3:3").RowHeight = 15.75
Rows("4:4").RowHeight = 2.25
Rows("1:1").RowHeight = 65.25

End Sub
 
Trier par date Trier par votes
Re : ma macro ne se developpe pas

Bonjour PHILIP
Avec un coup d'œil en diagonale, je vois au moins ça :
Code: 
Sheets("Tagesleitung").Activate Cells.Select
doit s'écrire
Code: 
Sheets("Tagesleitung").Activate
Cells.Select
ou
Code: 
Sheets("Tagesleitung").Activate: Cells.Select
Mais le code est long et en vrac ce qui le rend difficilement lisible : il y a peut-être d'autres choses qu'on pourrait remarquer dans une présentation propre.​
ROGER2327
#2409
 
Vote positif 0 Vote négatif
Re : ma macro ne se developpe pas

Code: 
Sub relevé()

Workbooks.Add
  ActiveWorkbook.SaveAs Filename:=("c:\Documents and Settings\PC42\Bureau\ Tages.xls")
    Sheets("Feuil1").Name = "Tagesleitung1"
    Sheets("Feuil2").Name = "Ruckstand Znl"
    Sheets("Feuil3").Name = "Ruckstand Zdl"
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Status 6"
Workbooks.Open "C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls"
  ActiveWorkbook.RefreshAll
    [COLOR="Orange"]Sheets("Tagesleitung").Activate.Cells.Select[/COLOR]   Selection.Copy 
Workbooks("Tages").Worksheets("Tagesleitung1").Activate

 Range("A1").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,      SkipBlanks _:=False, Transpose:=False
 'Range("A1").Select
   Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
 'Windows("TAGESBERICHT.xls").Activate
  Application.CutCopyMode = False
   'Selection.Copy
 'Windows("Classeur3").Activate
'Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
Rows("3:3").RowHeight = 15.75
Rows("4:4").RowHeight = 2.25
Rows("1:1").RowHeight = 65.25

End Sub

il est mieux comme cela ?
 
Vote positif 0 Vote négatif
Re : ma macro ne se developpe pas

bonsoir

Salut Roger2327

encore > Sheets("Tagesleitung").Activate.Cells.Select ?
revoir ce que Roger te montres !!!
Sheets("Tagesleitung").Activate
Cells.Select
Selection.Copy

ou avec les deux points
Sheets("Tagesleitung").Activate: Cells.Select: Selection.Copy
 
Vote positif 0 Vote négatif
Re : ma macro ne se developpe pas

Re...
C'est effectivement plus clair.
La correction de la ligne signalée plus haut semble être le problème principal. Je n'ai évidemment pas pu tester sur les classeurs réels (notamment, y-a-t-il une espace précédant Tages.xls dans la troisième ligne ?), mais il me semble que ça devrait marcher comme ça :
Code: 
[COLOR="DarkSlateGray"][B]Sub relevé()
   Workbooks.Add
   ActiveWorkbook.SaveAs Filename:=("C:\Documents and Settings\PC42\Bureau\ Tages.xls")
   Sheets("Feuil1").Name = "Tagesleitung1"
   Sheets("Feuil2").Name = "Ruckstand Znl"
   Sheets("Feuil3").Name = "Ruckstand Zdl"
   Sheets.Add after:=Sheets(Sheets.Count)
   ActiveSheet.Name = "Status 6"
   Workbooks.Open "C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls"
   ActiveWorkbook.RefreshAll
   [COLOR="Blue"]Sheets("Tagesleitung").Activate
   Cells.Copy[/COLOR]
   Workbooks("Tages").Worksheets("Tagesleitung1").Activate
   Range("A1").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=False
   Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False
   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False
   Range("A2").Select
   Rows("3:3").RowHeight = 15.75
   Rows("4:4").RowHeight = 2.25
   Rows("1:1").RowHeight = 65.25
End Sub[/B][/COLOR]
A voir...​
ROGER2327
#2411
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
553
ph.vanne
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
97
eastwick
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
361
cdric78
C
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
323
sylvanu
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
286
MICHIS
M
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
557
Phil69970
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
459
micie1509
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
659
robpellan52
R
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
398
Francky79
F
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
645
Valter
V
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
750
gwenn49
G
M
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
491
Marvin57
M
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
799
olivier388
O
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
1 K
TooFatBoy
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
637
fanou06
F
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
361
farid
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…