Squoltahthx94
XLDnaute Occasionnel
Bonjour,
Je met au point un reportage et pour cela j'importe de 2 fichiers excellence des onglets mais dès que je lance mon code VBA j'ai toujours la même erreur 'la methode select de la classe range à échoué" qu'est ce que cela veut dire ??
Voici mon code :
Merci pour votre aide
Je met au point un reportage et pour cela j'importe de 2 fichiers excellence des onglets mais dès que je lance mon code VBA j'ai toujours la même erreur 'la methode select de la classe range à échoué" qu'est ce que cela veut dire ??
Voici mon code :
Code:
Selection.ClearContents
Sheets("Inter Ifs").Select
Columns("a:az").Select
Selection.ClearContents
MsgBox "Cellules Vidées!! ", vbOKOnly + vbInformation, "Info"
ChDir "C:\Users"
Workbooks.Open Filename:="C:\Users\Inter WebWheel.xlsx"
Sheets("feuil1").Select
Range("a:ap").Select
Selection.Copy
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 67
.Left = 601.75
End With
Windows("Reporting Fujitsu 2 Béta 1.2.xlsm").Activate
Sheets("Inter Fujitsu").Select
Range("A1").Select
ActiveSheet.Paste
With ActiveWindow
.Top = 142
.Left = 13
End With
Windows("Inter WebWheel.xlsx").Activate
ActiveWindow.Close
With ActiveWindow
.Top = 2.5
.Left = 6.25
End With
Sheets("Menu").Select
Range("E4").Select
ActiveCell.FormulaR1C1 = "Fait"
Range("F4").Select
ActiveCell.FormulaR1C1 = "Fujitsu"
Range("F5").Select
Workbooks.Open Filename:="C:\Users\Inters Fujitsu.xlsx"
Range("a1:al65500").Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Sheets("Inter Ifs").Select
ActiveSheet.Paste
Sheets("Menu").Select
With ActiveWindow
.Top = 64
.Left = 187
End With
Windows("Inters Fujitsu.xlsx").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.Close
Range("G4").Select
ActiveCell.FormulaR1C1 = "Ifs"
Range("E4:G4").Select
Selection.Font.Bold = True
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Range("F4:G4").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Range("I4").Formula = Now
End Sub
Merci pour votre aide