Modification Macro

Le 21/06/2020 à 22:14

Bonjour ma macro fonctionne bien sur mon pc mais je pense que la fonction Windows je vais avoir des problémes sur les autres pc je suis obligé utiliser Application.DisplayAlerts = False pour le presse papier

Merci de votre aide

Sub recup_donnes()
Workbooks("test.xlsm").Worksheets("A").Cells.ClearContents ' Efface le contenu de la feuille qui va recevoir les données
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\Users\gothc01\Desktop\ca\Export.xlsx" 'Ouvre le fichier Excel source
Windows("Export.xlsx").Activate
Cells.Select
Selection.Copy
Windows("test.xlsm").Activate
Sheets("A").Select
ActiveWindow.SmallScroll Down:=-42
Cells.Select
Range("a1").Activate
ActiveSheet.Paste
Windows("Export.xlsx").Activate
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Le 21/06/2020 à 22:18

Bonjour,

C'est quoi ton lien ?

Quelle fonction windows ?

Sois clair et précis.

edit : ok, entre temps tu as précisé ton message !

As-tu un fichier ?

Et quel est ton soucis ? je n'ai pas compris ...

Le 21/06/2020 à 22:35

je viens de remplacer Windows par Workbooks je pense que j'ai raison

pour éviter les erreurs sur un autre pc