Copie depuis le fichier reception.xlsm avec fichier base.xlsm
Fermé
Adanedhel07
-
15 janv. 2015 à 11:47
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 15 janv. 2015 à 13:18
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 15 janv. 2015 à 13:18
A voir également:
- Copie depuis le fichier reception.xlsm avec fichier base.xlsm
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Ouvrir fichier .bin - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
15 janv. 2015 à 13:18
15 janv. 2015 à 13:18
Bonjour,
L'erreur 9 se situe à quel niveau?
Si c'est sur la ligne
peut être que le fichier path n'a pas eu le temps nécessaire à son ouverture.
Du coup, faudrait essayer en lui donnant un peu de temps.
Je vous propose deux solutions, sachant que nous ne pouvons pas tester sans les fichiers originaux, ce ne sont que des pistes...
1- DoEvents :
2- Application.Wait :
L'erreur 9 se situe à quel niveau?
Si c'est sur la ligne
Workbooks(Path).Worksheets("BD").Cells.Copy _
Workbooks(Path1).Worksheets("BDFEX").Range("A1")
peut être que le fichier path n'a pas eu le temps nécessaire à son ouverture.
Du coup, faudrait essayer en lui donnant un peu de temps.
Je vous propose deux solutions, sachant que nous ne pouvons pas tester sans les fichiers originaux, ce ne sont que des pistes...
1- DoEvents :
Workbooks.Open Filename:=Path
DoEvents
Workbooks(Path).Worksheets("BD").Cells.Copy _
Workbooks(Path1).Worksheets("BDFEX").Range("A1")
2- Application.Wait :
Workbooks.Open Filename:=Path
Application.Wait Time + TimeSerial(0, 0, 2) '2 = 2 secondes à adapter peut être
Workbooks(Path).Worksheets("BD").Cells.Copy _
Workbooks(Path1).Worksheets("BDFEX").Range("A1")