Discussion :

[namcheebazar]

Bonjour,
Je cherche à développer des macros Excel Mac et PC dans lesquelles l'utilisateur sera amené à sélectionner un fichier dans une fenêtre système, type fso. La compatibilité nécessite de connaitre le système et adapter le développement. Quelqu'un s'et il intéressé à la chose.
Merci de vos conseils avisés.

[Valtrase]

Bonjour,
Cela doit pouvoir se faire avec une directive de compilation conditionnelle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
#If Mac Then
Debug.Print "Mac"
#Else
Debug.Print "Windows"
#End If

[namcheebazar]

Mreci bien, je vais noter ceci pour les développements futurs. je me pose la question de l'implémentation de cette solution dans une macro utilisant Fso justement. j'en fais une copie ci-dessous. Si vous avez une idée, je suis preneur. Merci encore

Sub CollectData()
Dim FolderPath As String
Dim FSO As Object, SubFolder As Object, File As Object
Dim MainWorkbook As Workbook, SourceWorkbook As Workbook
Dim wsMain As Worksheet, wsSource As Worksheet
Dim LastRowMain As Long, LastRowSource As Long
Dim FilePath, strFile As String

' Définir le dossier principal et le nom de fichier
FolderPath = ThisWorkbook.Path
strFile = «*testing.xlsx*»

' Vérifier si le fichier de destination existe, sinon le créer
On Error Resume Next
Set MainWorkbook = Workbooks.Open(FolderPath & strFile)
If Err.Number <> 0 Then
Set MainWorkbook = Workbooks.Add
MainWorkbook.SaveAs FolderPath & strFile
End If
On Error GoTo 0

Set wsMain = MainWorkbook.Sheets(1)
LastRowMain = wsMain.Cells(wsMain.Rows.Count, 1).End(xlUp).Row + 1

' Initialiser FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(FolderPath)

' Boucler sur les sous-dossiers
For Each SubFolder In Folder.SubFolders
' Boucler sur les fichiers dans chaque sous-dossier
For Each File In SubFolder.Files
' Vérifier si le fichier est un Excel et contient "coco" dans son nom
If InStr(1, File.Name, "coco", vbTextCompare) > 0 And Right(File.Name, 5) = ".xlsx" Then
' Ouvrir le fichier source
FilePath = File.Path
Set SourceWorkbook = Workbooks.Open(FilePath)
Set wsSource = SourceWorkbook.Sheets(1)

' Trouver la dernière ligne de la source
LastRowSource = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row

' Copier la colonne A et coller à la suite
wsSource.Range("A1:A" & LastRowSource).Copy
wsMain.Cells(LastRowMain, 1).PasteSpecial Paste:=xlPasteValues
LastRowMain = wsMain.Cells(wsMain.Rows.Count, 1).End(xlUp).Row + 1

' Fermer le fichier source
SourceWorkbook.Close False
End If
Next File
Next SubFolder

' Sauvegarder et fermer le fichier final
MainWorkbook.Save
MainWorkbook.Close

' Nettoyage
Set wsMain = Nothing
Set wsSource = Nothing
Set MainWorkbook = Nothing
Set SourceWorkbook = Nothing
Set FSO = Nothing

MsgBox "Extraction terminée !", vbInformation
End Sub

[ExcelTastic]

Bonjour,

Il faut oublier FSO pour un mac
Cela fait appel à une API Windows qui n'existe pas sur iOS

Salut