bonjour,
je souhaite ouvrir un fichier excel pour y copier une partie d'un autre fichier.
Le debbug me dit que le fichier indiqué dans ma macro est introuvable.
il existe bien sous le bon nom, à l'emplacement indiqué.
je suis sous mac OS El Capitan, excel2016.
voici le code vba:
Sub Macro4()
'
' Macro4 Macro
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Range("C7:C12").Select
Selection.Copy
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("Macintosh HD:Users😀irTechnique😀esktop:stock_bar.xlsm")
'wsExcel correspond à la première feuille du fichier
'Set wsExcel = wbExcel.Worksheets(1)
Range("Q3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Pourrais-je avoir de l'aide sur ce message d'erreur, je ne comprend pas comment écrire correctement le chemin d'accès.
Merci d'avance de votre attention
bonne journée
je souhaite ouvrir un fichier excel pour y copier une partie d'un autre fichier.
Le debbug me dit que le fichier indiqué dans ma macro est introuvable.
il existe bien sous le bon nom, à l'emplacement indiqué.
je suis sous mac OS El Capitan, excel2016.
voici le code vba:
Sub Macro4()
'
' Macro4 Macro
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Range("C7:C12").Select
Selection.Copy
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("Macintosh HD:Users😀irTechnique😀esktop:stock_bar.xlsm")
'wsExcel correspond à la première feuille du fichier
'Set wsExcel = wbExcel.Worksheets(1)
Range("Q3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Pourrais-je avoir de l'aide sur ce message d'erreur, je ne comprend pas comment écrire correctement le chemin d'accès.
Merci d'avance de votre attention
bonne journée