Besoin d'aide pour simplification d'un code VBA
Résolu/Fermé
grutz
Messages postés
22
Date d'inscription
mercredi 3 février 2016
Statut
Membre
Dernière intervention
4 janvier 2023
-
17 nov. 2016 à 14:16
grutz Messages postés 22 Date d'inscription mercredi 3 février 2016 Statut Membre Dernière intervention 4 janvier 2023 - 17 nov. 2016 à 16:30
grutz Messages postés 22 Date d'inscription mercredi 3 février 2016 Statut Membre Dernière intervention 4 janvier 2023 - 17 nov. 2016 à 16:30
A voir également:
- Besoin d'aide pour simplification d'un code VBA
- Code asci - Guide
- Code 80072efe ✓ - Forum Windows
- Freewifi secure code ✓ - Forum Réseau
- Find vba - Astuces et Solutions
- Netflix code - Guide
1 réponse
Zoul67
Messages postés
1956
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
17 nov. 2016 à 15:01
17 nov. 2016 à 15:01
Bonjour,
Ton code ne comprend pas de End With, c'est bizarre...
J'essaie (pas à l'abri d'une erreur de syntaxe :
Là ça colle à peu près à la syntaxe d'origine, on peut aussi créer une macro à paramètres (nom de fichier + nom de feuille + cellule, pour origine et destination) et appeler cette macro pour chaque recopie.
A+
Ton code ne comprend pas de End With, c'est bizarre...
J'essaie (pas à l'abri d'une erreur de syntaxe :
Sub Export_des_données()
Dim LastRow As Long
Workbooks.Open Filename:="I:GPCHAUSR\DISTRIBUTION_FICHE.xlsm"
LastRow = Workbooks("DISTRIBUTION_FICHE.xlsm").Worksheets("Fiche").Range("A" & Rows.Count).End(xlUp).Row
With Workbooks("FICHE_DETECTION.xlsm").Worksheets("Fiche")
a=.Range("B4").Value
f=.Range("B6").Value
c=.Range("F5").Value
d=.Range("B15").Value
e=.Range("B23").Value
h=.Range("A2").Value
i=.Range("B5").Value
End With
With Workbooks("DISTRIBUTION_FICHE.xlsm").Worksheets("Fiche")
.Range("A" & LastRow + 1).Value = a
.Range("F" & LastRow + 1).Value = f
.Range("C" & LastRow + 1).Value = c
.Range("D" & LastRow + 1).Value = d
.Range("E" & LastRow + 1).Value = e
.Range("H" & LastRow + 1).Value = h
.Range("I" & LastRow + 1).Value = i
End With
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Là ça colle à peu près à la syntaxe d'origine, on peut aussi créer une macro à paramètres (nom de fichier + nom de feuille + cellule, pour origine et destination) et appeler cette macro pour chaque recopie.
A+
17 nov. 2016 à 16:30