Re : Bouton Macro qui se déplacent suite à execution de la macro
Bonjour et merci pour vos réponses.
Brigitte, malheureusement je ne suis pas en affichage réduit.
Pierre jean, j'aimeria bien te donner un fichier, mais celui-ci est professionel et pluto confidentiel... de plus il fait 60Mo.. même en enlevant les données confidentiel (ce qui me prendrai des jours... ou alors il faudrait que je supprime tout) je n'ai pas le droit de le transmettre.
Du coup, avez vous une solution de macro pour figer un bouton? je me débrouillerai avec le code VBA...
pour exemple, voici une des Macro :
Sub imglobalepro()
If Sheets("Impression PRO").Range("B3").Value <> "" Then Sheets("Calcul PRO").Select
If Sheets("Impression PRO").Range("B4").Value <> "" Then Sheets("ALE").Select Replace:=False
If Sheets("Impression PRO").Range("B5").Value <> "" Then Sheets("AGS").Select Replace:=False
If Sheets("Impression PRO").Range("B6").Value <> "" Then Sheets("KIN").Select Replace:=False
If Sheets("Impression PRO").Range("B7").Value <> "" Then Sheets("HYE").Select Replace:=False
If Sheets("Impression PRO").Range("B8").Value <> "" Then Sheets("HYE").Select Replace:=False
If Sheets("Impression PRO").Range("B9").Value <> "" Then Sheets("HYE").Select Replace:=False
If Sheets("Impression PRO").Range("B10").Value <> "" Then Sheets("SIL").Select Replace:=False
If Sheets("Impression PRO").Range("B11").Value <> "" Then Sheets("BOI").Select Replace:=False
If Sheets("Impression PRO").Range("B12").Value <> "" Then Sheets("DEVIS PRO").Select Replace:=False
If Sheets("Impression PRO").Range("B13").Value <> "" Then Sheets("PRE").Select Replace:=False
If Sheets("Impression PRO").Range("B14").Value <> "" Then Sheets("Calcul PV PRO").Select Replace:=False
If Sheets("Impression PRO").Range("B15").Value <> "" Then Sheets("1PRO").Select Replace:=False
If Sheets("Impression PRO").Range("B16").Value <> "" Then Sheets("N").Select Replace:=False
If Sheets("Impression PRO").Range("B17").Value <> "" Then Sheets("LEX").Select Replace:=False
If Sheets("Impression PRO").Range("B18").Value <> "" Then Sheets("ULT").Select Replace:=False
If Sheets("Impression PRO").Range("B19").Value <> "" Then Sheets("BOS").Select Replace:=False
If Sheets("Impression PRO").Range("B20").Value <> "" Then Sheets("CON").Select Replace:=False
If Sheets("Impression PRO").Range("B21").Value <> "" Then Sheets("CF").Select Replace:=False
If Sheets("Impression PRO").Range("B22").Value <> "" Then Sheets("HYE500").Select Replace:=False
Dim NomClient As String
NomClient = ThisWorkbook.Sheets("Calcul PRO").Range("C6").Value
Dim Ref As String
Ref = ThisWorkbook.Sheets("DEVIS PRO").Range("G10").Value
Sheets("1PRO").Activate
ChDir ThisWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Offre " & Ref & " " & NomClient & " " & Format(Date, "dd mmmm yyyy") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("DEVIS PRO").Select
Worksheets("Listes").Range("CO3").Value = Worksheets("Listes").Range("CO3").Value + 1
celle-ci produit un fichier PDF a partir de plusieurs pages onglets... une fois le bouton apuyé, et le PDF crée, le bouton devient plus petit et se déplace un peu... chque clik le rend plus petit jusqu'ace que le bouton soit trop petit et ilisible pour cliquer dessus...