incrémenter un N° dans 1 cellule a chaque clic sur 1 bouton macro

sebbbbb

XLDnaute Impliqué
bonjour
j'ai sur un fichier une macro qui me permet en cliquant sur un bouton de transformer ma feuille en format PDF

puisque je suis amené a modifier plusieurs fois ce doc j'ai une cellule avec un N° de version de doc. Je change manuellement ce numéro avant de lancer ma macro

j'aimerai que cette cellule soit maintenant protégée et que le fait de lancer ma macro change dans un 1er temps le N° de verion au chiffre supérieur et lance ensuite le reste de la macro

Ce N° de version a modifier donc automatiquement se trouve en cellule AA13.

ci-dessous mon script actuel :

Option Explicit
Sub pdfcrewchange()
Dim Chemin As String, NomFichier As String
NomFichier = "Crew change " & Range("P7").Value & " - V" & Range("AA13") & ".pdf"
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then ' Clic sur Ok
Chemin = .SelectedItems(1)
Else
' Clic sur Annuler
Exit Sub
End If
End With
Sheets("Crew change").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NomFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub


pouvez vous m'aider svp ?

merci
seb
 

cp4

XLDnaute Barbatruc
Bonjour,
Ajoute cette ligne au début de ton code: Range("AA13") = Range("AA13") + 1 'valeur de la cellule incrémenter de 1
VB:
Sub pdfcrewchange()
  Dim Chemin As String, NomFichier As String
  Range("AA13") = Range("AA13") + 1 'valeur de la cellule incrémenter de 1
  NomFichier = "Crew change " & Range("P7").Value & " - V" & Range("AA13") & ".pdf"
  With Application.FileDialog(msoFileDialogFolderPicker)
  If .Show = -1 Then  ' Clic sur Ok
  Chemin = .SelectedItems(1)
  Else
  ' Clic sur Annuler
  Exit Sub
  End If
  End With
  Sheets("Crew change").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NomFichier, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Bonne journée.
 

Discussions similaires