Discussion :

[Jam97]

Bonjour,

Je suis novice sur la programmation de VBA.

J'ai créer ce programme avec l'aide de Youtube et je comprends pas pourquoi il bloque au niveau du texte en rouge.

Pouvez-vous m'aider svp ?

Je dois générer ce fichier souvent pour l'exporter vers mon fichier de travail

Merci par avance pour votre aide



Sub copier_coller_celluleA1_fichier2feuil1()

Dim wk_fichier As Workbook
Dim ws_fichier1feuil1 As Worksheet

Dim wk_fichier2 As Workbook
Dim ws_fichier2feuil1 As Worksheet

Dim der_ligne_1 As Long
Dim der_ligne_2 As Long

'définir les variables fichiers et onglets
Set wk_fichier = ActiveWorkbook
Set ws_fichier1feuil1 = wk_fichier.Worksheets(1)

Set wk_fichier2 = Application.Workbooks.Open("C:\Users\Jam\Desktop\Tableau JAM macro\EXTRACTION declaration-2023-04-20_11-58.xlsx")
Set ws_fichier2feuil1 = wk_fichier2.Worksheets(1)


'copier coller une plage de cellule

ws_fichier1feuil1.Range(ws_feuil1.Cells(2, 1), ws_feuil1.Cells(der_ligne_1, 2)).Copy ws_fichier2feuil1.Cells(der_ligne_2 + 1, 1)

'enregistrer et fermer fichier 2
wk_fichier2.Close (True)


End Sub

[laurent_ott]

je comprends pas pourquoi il bloque au niveau du texte en rouge.

Bonjour,
Peut-être parce que "ws_feuil1" n'existe pas, c'est "ws_fichier1feuil1" qu'il faudrait utiliser.
Et que "der_ligne_1" et "der_ligne_2" sont à zéro car non renseignées.
Et peut-être d'autres choses que je n'ai pas vu.

[deedolith]

Salut,

Note:
Renomme tes variables, en utilisant des noms plus lisibles et plus parlant.
Ca évitera ce genre d'erreur à l'avenir.

De plus, compile ton code,
le compilateur est ton ami et sera le premier à te signaler ces anomalies.

[Jam97]

Merci pour vos réponses j'ai trouvé mon erreur. (Laurent_ott et deedolith)

'identifier dernière ligne de la feuil1
der_ligne_1 = ws_fichier2feuil1.Cells(Rows.Count, 1).End(xlUp).Row

'copier coller une plage de cellule

ws_fichier2feuil1.Range(ws_fichier2feuil1.Cells(2, 1), ws_fichier2feuil1.Cells(der_ligne_1, 1)).Copy ws_fichier1feuil1.Cells(der_ligne_2 + 2, 2)


J'avais oublié d'identifier ma dernière ligne et Laurent_ott avait raison, je me suis trompé quand j'ai nommé mes fichiers.

J'ai une deuxième soucis à régler.

Je voudrais coller seulement les valeurs. Je suis bloqué pour utiliser la fonction PasteSpecial

Avez-vous une idée svp ?

[Franc]

Bonjour, voici la syntaxe pour coller uniquement les valeurs: ws_fichier1feuil1.Cells(der_ligne_2 + 2, 2).PasteSpecial Paste:=xlPasteValues

[Jam97]

Bonjour, voici la syntaxe pour coller uniquement les valeurs: ws_fichier1feuil1.Cells(der_ligne_2 + 2, 2).PasteSpecial Paste:=xlPasteValues

Bonjour,

Merci pour votre retour mais le système m'indique "Erreur de compilation : Attendu : fin d'instruction "

Avez-vous une idée pour résoudre cette erreur svp ?