Excel 2010 - L'indice n'appartient pas à la sélection
Fermé
Alex
-
22 nov. 2016 à 22:36
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 23 nov. 2016 à 11:47
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 23 nov. 2016 à 11:47
A voir également:
- Excel 2010 - L'indice n'appartient pas à la sélection
- Liste déroulante excel - Guide
- Formule excel - Guide
- Aller à la ligne excel - Guide
- Telecharger word 2010 - Télécharger - Traitement de texte
- Déplacer une colonne excel - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
23 nov. 2016 à 11:47
23 nov. 2016 à 11:47
Bonjour Alex,
Il manque la fermeture de la parenthèse dans la ligne Sheets(Array... Mais cela devrait planter pour toutes les versions ?!...
J'ai modifié quelques aberrations du style retour = Workbooks(Activeworkbook.Name).FullName
ainsi que l'ordre des lignes de code et ça semble fonctionner.
Le code :
Il manque la fermeture de la parenthèse dans la ligne Sheets(Array... Mais cela devrait planter pour toutes les versions ?!...
J'ai modifié quelques aberrations du style retour = Workbooks(Activeworkbook.Name).FullName
ainsi que l'ordre des lignes de code et ça semble fonctionner.
Le code :
Sub Export()
Dim retour As String
Dim chemin As String
Dim nouveau As String
Dim Z As String
Application.ScreenUpdating = False
ActiveWorkbook.Save
retour = ActiveWorkbook.FullName
chemin = ActiveWorkbook.Path & "\"
nouveau = "Suivi_" & ActiveSheet.Cells(3, 3).Value
Z = chemin & nouveau
ActiveWorkbook.SaveAs Filename:= _
Z, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Sheets(Array("BD_Axe", "BD_obj")).Delete
Application.DisplayAlerts = True
MsgBox " Le fichier " & nouveau & " a bien été créé."
Workbooks.Open (retour)
Workbooks(nouveau & ".xlsm").Close True
Application.ScreenUpdating = True
End Sub