Bonsoir à tous !
Je débute en VBA depuis quelques semaines et j'essaie de créer une macro pour copier les données d'un fichier A et les coller à la suite des données déjà existantes dans un fichier B.
Je souhaite que les données du fichier A soient coller à la suite horizontalement (au niveau des colonnes)
Le problème avec cette macro est qu'à chaque exécution j'ai toujours ce même message d'erreur et je n'arrive pas à la faire fonctionner: "Erreur d’exécution 9 (l'indice n'appartient pas à la sélection)".
Dans cette macro je demande à l'utilisateur de choisir son premier fichier (le fichier possédant les données à copier) et choisir le second fichier (le fichier où les données doivent être collées)
Voici ma macro:
Sub testcomplet()
F1 = Application.GetOpenFilename
If F1 = False Then Exit Sub
MsgBox "vous avez sélectionné le fichier " & F1
F2 = Application.GetOpenFilename
If F2 = False Then Exit Sub
MsgBox "vous avez sélectionné le fichier " & F2
Workbooks.Open (F1)
Sheets("Feuil1").Range("A1").CurrentRegion.Copy
ActiveWorkbook.Close
Workbooks(F2).Sheets("Feuil1").Range("1, Columns.Count").End(xlToLeft).Offset(, 1).Activate
ActivateSheet.Paste
ActiveWorkbook.Save
End Sub
Merci pour votre aide !!
Je débute en VBA depuis quelques semaines et j'essaie de créer une macro pour copier les données d'un fichier A et les coller à la suite des données déjà existantes dans un fichier B.
Je souhaite que les données du fichier A soient coller à la suite horizontalement (au niveau des colonnes)
Le problème avec cette macro est qu'à chaque exécution j'ai toujours ce même message d'erreur et je n'arrive pas à la faire fonctionner: "Erreur d’exécution 9 (l'indice n'appartient pas à la sélection)".
Dans cette macro je demande à l'utilisateur de choisir son premier fichier (le fichier possédant les données à copier) et choisir le second fichier (le fichier où les données doivent être collées)
Voici ma macro:
Sub testcomplet()
F1 = Application.GetOpenFilename
If F1 = False Then Exit Sub
MsgBox "vous avez sélectionné le fichier " & F1
F2 = Application.GetOpenFilename
If F2 = False Then Exit Sub
MsgBox "vous avez sélectionné le fichier " & F2
Workbooks.Open (F1)
Sheets("Feuil1").Range("A1").CurrentRegion.Copy
ActiveWorkbook.Close
Workbooks(F2).Sheets("Feuil1").Range("1, Columns.Count").End(xlToLeft).Offset(, 1).Activate
ActivateSheet.Paste
ActiveWorkbook.Save
End Sub
Merci pour votre aide !!