XL 2016 VBA - import d'un fichier

[douguy]

bonjour le forum !

J'ai besoin d'un petit coup de main concernant une macro

j'ai un logiciel qui génère un rapport que j'enregistre au format xls et que je souhaite importer dans un fichier complexe.
le fichier est nommé resultat1 et l'onglet resultat 1
Je suis arrivé jusqu'à là pour l'instant

Sub ImportReport()

Dim sh1 As Excel.Worksheet, sh2 As Excel.Worksheet, sh3 As Excel.Worksheet
Dim wb As Excel.Workbook, shA As Excel.Worksheet
Dim year As String, month As String, day As String, RID As String, name As String, name2 As String

Set sh1 = ThisWorkbook.Worksheets("Set")
Set sh2 = ThisWorkbook.Worksheets("Add Report")
Set sh3 = ThisWorkbook.Worksheets("Extract Report")

name = "resultat 1"
name2 = "resultat1.xls"

Set wb = Workbooks(name2)

Set shA = wb.Worksheets(name)

lastrow = shA.Cells(shA.Rows.Count, 1).End(xlUp).Row

sh2.Range("A1:S" & lastrow).Value = shA.Range("A1:S" & lastrow).Value

wb.Close savechanges:=False

End Sub

mais j'ai une erreur à la ligne
Set wb = Workbooks(name2)

je ne comprend pas pourquoi ?

Des idées ???

Merci par avance de toute aide

 

[pierrejean]

bonjour douguy
peut-etre "resultat 1.xls" (avec espace entre resultat et 1

 

[douguy]

bonjour Pierre Jean et merci pour ton retour
Non, malheureusement c'est pas ça !
d'autres idées ?

 

[pierrejean]

Re
Est-il ouvert ?

 

[douguy]

oui
le principe est d'ouvrir les 2 fichiers
de cliquer sur un bouton pour executer la macro d'importation dans un onglet vierge puis quitter le fermer le fichier
merci pour l'aide

 

[zebanx]

Bonsoir Douguy, bonsoir (Maître😉) Pierre-Jean,

@douguy
Ca a l'air de fonctionner en essai rapide lorsque deux fichiers sont ouverts mais :
- je remarque que ta feuille 1 sur le fichier transmis s'appelle ("resultat 1 ") et non ("resultat 1").
- n'aurait-on pas un problème lors du transfert de données sur un fichier disponible l'un en réseau et l'autre sur un (autre) disque dur? Il me semble avoir déjà vu ce type de remarques, peut-être à tort.
(En tout cas, le code a fonctionné sur les fichiers copiés sur le bureau et après avoir changé le nom de la feuille 1 et créé les trois sheets additionnelles avec les noms indiqués).

cdlt
zebanx

 

[douguy]

foutu espace.....
merci bcp zebanx ca marche \o/
merci a tous les 2
bonne soirée