A voir également:
- Code VBA pour transfert de données entre deux classeurs
- We transfert - Guide
- Deux comptes whatsapp - Guide
- Code asci - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
1 réponse
Bonjour, une petite MAJ au cas où quelqu'un vienne se pencher sur le problème;
J'ai récupéré un code venant d'une autre question sur ce site, je m'en sers de base pour pouvoir transférer les données d'un excel à l'autre.
Désolé pour la syntaxe de code, même sans connaître je me doute que ce n'est pas top.
J'ai déjà fait quelques modifications depuis le script original, mais je patauge quand même.
J'ai mis la ligne d'erreur en gras dans le code. Il faut définir Cel, mais je ne sais pas comment faire pour que cela coïncide avec mon application.
Tout ce qui se trouve à la suite, en Italique n'a pas encore été testé.
De même, si jamais quelqu'un peut m'indiquer, j'aimerais pouvoir définir la variable "Workbooks" (non défini lorsque j'utilise
Pour le reste, il faut que je fasse une petite recherche pour savoir comment cumuler les valeurs de cellules (trois lignes de bateaux arrivés => valeur "3" dans la cellule cible) du document source directement depuis la macro, ainsi que faire une transposition entre la date et le numéro de semaine.
Le sujet est toujours ouvert si vous souhaitez bien m'aider.
Merci d'avance et bonne journée
J'ai récupéré un code venant d'une autre question sur ce site, je m'en sers de base pour pouvoir transférer les données d'un excel à l'autre.
Sub XYZ()
Dim Wbc As workbook
Dim Ws As Worksheet
Dim Wc As Worksheet
Dim Lignemod As Long
Dim Ligneajout As Range
Dim DerLg As String
Dim Maplage As Range
'Feuille source :
Set Ws = ActiveSheet
'dernière ligne possédant du contenu dans le colonne "X" (ici E)
Derlg = Ws.Range("E" & Rows.Count).End(xlup).Row
If DerLg > 2 Then
Set Maplage = Ws.Range("E2:E" & DerLg)
Set Wbc = Workbooks.open(ThisWorkbook.Path & "\1.xlsm")
Set Wc = Wbc.Worksheets("Feuil1")
Exit Sub
End If
For Each Cel In Myplage
If Cel <> "" Then
LigneMode = Cel.Row
LigneAjout = Wc.Range("A" & Wc.Rows.Count).End(xlup).Row + 1
WC. Range("A" & Ligneajout) = Ws. Range("E" & Lignemod)
End If
Next
Wbc.Close Savechanges:=True
Set Maplage = Nothing
Set Wc = Nothing
Set Ws = Nothing
Set Wbc = Nothing
End Sub
Désolé pour la syntaxe de code, même sans connaître je me doute que ce n'est pas top.
J'ai déjà fait quelques modifications depuis le script original, mais je patauge quand même.
J'ai mis la ligne d'erreur en gras dans le code. Il faut définir Cel, mais je ne sais pas comment faire pour que cela coïncide avec mon application.
Tout ce qui se trouve à la suite, en Italique n'a pas encore été testé.
De même, si jamais quelqu'un peut m'indiquer, j'aimerais pouvoir définir la variable "Workbooks" (non défini lorsque j'utilise
Option Explicit)
Pour le reste, il faut que je fasse une petite recherche pour savoir comment cumuler les valeurs de cellules (trois lignes de bateaux arrivés => valeur "3" dans la cellule cible) du document source directement depuis la macro, ainsi que faire une transposition entre la date et le numéro de semaine.
Le sujet est toujours ouvert si vous souhaitez bien m'aider.
Merci d'avance et bonne journée
