Bonjour a tous,
je dois développer une macro qui permet a l'utilisateur d'entrer le chemin d'accès à un dossier, dans ce dossier, il existe deux excel.
Je dois créer un troisième excel qui copie la page d'un des excel et l'une des pages de l'autre.
ensuite je récupère les numéros de la première colonne d'une des pages, je les cherche dans l'autre page et je copie les lignes complètes de la première page a la suite de celles trouvé dans l'autre.
malheureusement j'ai une erreur au début de mon code
et donc il me sort une erreur d'execution '9'
L'indice n'appartient pas à la sélection
si quelqu'un peu m'aider je suis preneur
je dois développer une macro qui permet a l'utilisateur d'entrer le chemin d'accès à un dossier, dans ce dossier, il existe deux excel.
Je dois créer un troisième excel qui copie la page d'un des excel et l'une des pages de l'autre.
ensuite je récupère les numéros de la première colonne d'une des pages, je les cherche dans l'autre page et je copie les lignes complètes de la première page a la suite de celles trouvé dans l'autre.
malheureusement j'ai une erreur au début de mon code
Code:
Sub Test_traitement()
Dim resultat As String
Dim Fichier_Cto As String, Fichier_A As String
Dim Cto As String, A As String
'demande à l'utilisateur de saisir le chemin d'accès pour trouver les fichiers a traiter
resultat = InputBox("Entrer le chemin d'accès au dossier contenant les fichiers que vous voulez ouvrir", "Titre", "chemin d'accès")
Cto = Dir(resultat + "\CTO*.xls")
A = Dir(resultat + "\A*.xls")
Fichier_Cto = resultat + "\" + Cto 'donne le chemin d'accès au fichier cto*.xls
Fichier_A = resultat + "\" + A 'donne le chemin d'accès au fichier a*.xls
Set objFSO = CreateObject("Scripting.FileSystemObject") 'test de l'existance du fichier
If objFSO.FileExists(resultat + "\bilan a.xls") Then 'ouverture du classeur bilan
Workbooks.Open Filename:=(resultat + "\bilan a.xls")
Else
Workbooks.Add.SaveAs (resultat + "\bilan a.xls") 'création et sauvegarde d'un classeur bilan
Worksheets.Add.Name = "Cto"
End If
Workbooks.Open Filename:=Fichier_Cto 'ouvre le premier classeur
Workbooks.Open Filename:=Fichier_A 'ouvre le deuxième classeur
'ActiveWorkbook.Worksheets("Check A").Activate
Workbooks(Cto).Worksheets("Check A").Copy before:=Workbooks("bilan a.xls").Worksheets(Cto)
'copie la feuille a du classeur CTO*.xls
'ActiveWorkbook.Worksheets(1).Activate
Workbooks(A).Worksheets(1).Copy After:=Workbooks("bilan a.xls").Worksheets(Cto)
'copie de la feuille du tableur A*.xls dans le bilan
End Sub
et donc il me sort une erreur d'execution '9'
L'indice n'appartient pas à la sélection
si quelqu'un peu m'aider je suis preneur