Macro : nommer l'enregistrement selon plusieurs cell variable
Résolu/Fermé
stitchbouck
Messages postés
131
Date d'inscription
mercredi 12 janvier 2011
Statut
Membre
Dernière intervention
10 décembre 2024
-
12 avril 2016 à 14:05
stitchbouck Messages postés 131 Date d'inscription mercredi 12 janvier 2011 Statut Membre Dernière intervention 10 décembre 2024 - 12 avril 2016 à 17:06
stitchbouck Messages postés 131 Date d'inscription mercredi 12 janvier 2011 Statut Membre Dernière intervention 10 décembre 2024 - 12 avril 2016 à 17:06
A voir également:
- Macro : nommer l'enregistrement selon plusieurs cell variable
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
2 réponses
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
Modifié par via55 le 12/04/2016 à 15:28
Modifié par via55 le 12/04/2016 à 15:28
Bonjour
Essaie ainsi :
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
Essaie ainsi :
'Nom à donner au fichier Dim DLig As Long, Nom As String, anomalie as String 'n° de anomalie récupéré en G12 anomalie = Sheets("Demande d'enlèvement").Range("G12").Text ' si G13 n'est pas vide If Sheets("Demande d'enlèvement").Range("G13") <> "" Then ' alors ' dernière ligne remplie en dessous de G12 DLig = Sheets("Demande d'enlèvement").Range("G12").End(xlDown).Row ' Boucle sur les lignes depuis 13 jusqu'à dernière remplie For n = 13 To DLig ' ajoute dans anomalie la valeur de la cellule aux précédentes séparée par un tiret anomalie = anomalie & "-" & Sheets("Demande d'enlèvement").Range("G" & n).Text Next End If 'établissement du nom à donner Nom = Sheets("Demande d'enlèvement").Cells(7, 2).Text & " " & Sheets("Demande d'enlèvement").Cells(6, 6).Text & " " & anomalie & ".pdf"
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
stitchbouck
Messages postés
131
Date d'inscription
mercredi 12 janvier 2011
Statut
Membre
Dernière intervention
10 décembre 2024
2
Modifié par stitchbouck le 12/04/2016 à 17:07
Modifié par stitchbouck le 12/04/2016 à 17:07
C'est exactement ça !! j'ai encore du mal à décomposer correctement, mais l'explication des syntaxes est claire, je vais finir par comprendre avec le temps et la persévérance :):):)
un grand merci, ça marche du tonnerre :) merci Via !
un grand merci, ça marche du tonnerre :) merci Via !