Bonjour à toutes et à tous,
J'ai un souci qui s'est présenté à moi depuis que mes fichiers ont migré sur un autre serveur ; ma macro ne fonctionne plus.
J'ai pourtant bien fait attention à modifier le chemin d'accès puisque ce dernier a changé.
J'ai désormais l'erreur 9 qui s'affiche "L'indice n'appartient pas à la sélection".
Je précise que cette macro vise à ouvrir chaque fichier présent dans le dossier dit "POP NEW" et de changer le format de plusieurs plages de données sélectionnées. Cette macro se trouve sur un fichier à part.
Or, désormais, il me surligne Sheets("POP").Range("E58:AE64").NumberFormat = "General"
_____________________________________
Sub un()
With ThisWorkbook
Set WbkS = ActiveWorkbook
End With
Sheets("POP").Range("E58:AE64").NumberFormat = "General"
Sheets("POP").Range("E58:AE64").Select
Selection.FormulaR1C1Local = Selection.FormulaR1C1Local
Call deux
End Sub
Sub deux()
Sheets("POP").Range("E32:AE48").NumberFormat = "General"
Sheets("POP").Range("E32:AE48").Select
Selection.FormulaR1C1Local = Selection.FormulaR1C1Local
Selection.NumberFormat = "0.00"
Selection.HorizontalAlignment = xlCenter
ActiveWorkbook.Save
End Sub
Sub ouvrirfichiers()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
Chemin = "M:\Administratif\12-NOM Prénom\9_POP\POP NEW\"
Fichier = Dir(Chemin & "*.xlsx")
Do While Fichier <> ""
Set Wb = Workbooks.Open(Chemin & Fichier)
Wb.Sheets("POP").Range("E58:AE72").NumberFormat = "General"
Wb.Sheets("POP").Range("E58:AE72").Select
Selection.FormulaR1C1Local = Selection.FormulaR1C1Local
Call deux2
Wb.Close True
Set Wb = Nothing
Fichier = Dir
Loop
End Sub
Sub deux2()
Sheets("POP").Range("E32:AE72").NumberFormat = "General"
Sheets("POP").Range("E32:AE48").Select
Selection.FormulaR1C1Local = Selection.FormulaR1C1Local
Selection.NumberFormat = "0.00"
Selection.HorizontalAlignment = xlCenter
Range("E66:AC72").Select
Selection.Copy
Range("E66").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
End Sub
______________________________________________________________________________
Les fichiers qui doivent être modifiés suite à cette macro :
L'onglet à modifier dans chaque fichier "POP" :
Pouvez-vous voir d'où vient le problème s'il vous plaît ?
Je vous remercie d'avance.
Cordialement,
Drokarre