Bonjour,
Après une initiation aux fonctions de bases d'Excel où j'ai pu découvrir ce forum très actif, je suis passé à l'étape supérieur et suis passé au VBA. Encore une fois XLD fut une mine d'information et d'exemple et je remercie tout les modérateurs et contributeurs pour cela.
Bref, je me trouve aujourd'hui en difficulté sur de la programmation VBA, j'ai un peu de mal sur la syntaxe, je l'avou. Ce que je cherche à faire est simple :
Copier plusieurs cellules d'un fichier dans un autre.
Ce bout de code fait parti d'un ensemble plus grand mais je vais tâcher d'expliquer clairement les variables.
J'espère que ça suffit pour faire comprendre mon problème. Au besoin je peux fournir les Excels correspondant (2 du coup ).
Merci d'avance,
Cordialement
Après une initiation aux fonctions de bases d'Excel où j'ai pu découvrir ce forum très actif, je suis passé à l'étape supérieur et suis passé au VBA. Encore une fois XLD fut une mine d'information et d'exemple et je remercie tout les modérateurs et contributeurs pour cela.
Bref, je me trouve aujourd'hui en difficulté sur de la programmation VBA, j'ai un peu de mal sur la syntaxe, je l'avou. Ce que je cherche à faire est simple :
Copier plusieurs cellules d'un fichier dans un autre.
Ce bout de code fait parti d'un ensemble plus grand mais je vais tâcher d'expliquer clairement les variables.
Code:
[COLOR="blue"]Sub[/COLOR] Essais()
[COLOR="SeaGreen"]'Déclaration des classeurs utilisés WbComp est celui
'sur lequel on applique la macro[/COLOR]
[COLOR="Blue"]Dim [/COLOR]WbComp, WbFrs [COLOR="blue"]As[/COLOR] Workbook
[COLOR="seagreen"]'Déclaration de l'endroit où la macro doit retrouver
'le chemin d'accès au second classeur[/COLOR]
[COLOR="blue"]Dim[/COLOR] sources [COLOR="blue"]As[/COLOR] Variant
Application.ScreenUpdating = [COLOR="blue"]False[/COLOR]
[COLOR="blue"]Set[/COLOR] WbComp = ActiveWorkbook
[COLOR="seagreen"]'sources est la zone où on retrouve chemin d'accès au second classeur,
'nom de l'onglet dans lequel aller chercher les cellules à copier/coller,
' et nom de l'onglet où les coller (qui se trouve être le même)[/COLOR]
sources = Worksheets("Fichiers_sources").Range("A1").CurrentRegion
[COLOR="seagreen"]'Ici j'ouvre donc le second classeur et lui attribu son nom de variable[/COLOR]
Workbooks.Open FileName:=sources(2, 1)
[COLOR="blue"]Set [/COLOR]WbFrs = ActiveWorkbook
[COLOR="seagreen"]'Le coeur du problème, c'est là où j'ai un problème Erreur d'exécution '1004' :
'Erreur définie par l'application ou par l'objet[/COLOR]
WbComp.Worksheets(sources(2, 3)).Range(Cells(2, 3), Cells(2, 5)) = WbFrs.Worksheets(sources(2, 3)).Range(Cells(2, 3), Cells(2, 5))
Application.ScreenUpdating = [COLOR="blue"]True[/COLOR]
[COLOR="blue"]End Sub[/COLOR]
J'espère que ça suffit pour faire comprendre mon problème. Au besoin je peux fournir les Excels correspondant (2 du coup ).
Merci d'avance,
Cordialement
Dernière édition: