Bouton ne marche pas sous office 2016

bidouille pc Messages postés 1297 Date d'inscription Statut Membre Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention - 5 juil. 2016 à 11:22

Bonjour...?!!

ou je me plante ?
ca marche sous office 2007 mais pas sous 2016

Sub DevisPlat()

'Mémorise le nom du client
    Range("C2").Copy
    Sheets("Devis").Select
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("DEVIS PLAT").Select
' Mémorise la référence
    Range("C4:H4").Copy
    Sheets("Devis").Select
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(0, 2).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
' Crée le numéro de devis
    Application.Goto Reference:="NouvNoDevis"
    Selection.Copy
    Application.Goto Reference:="DevisSuivant"
    ActiveSheet.Paste
' Prépare le Numéro suivant
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(1, 0).Select
    ActiveWorkbook.Names.Add Name:="DevisSuivant", RefersTo:=ActiveCell
    Application.Goto Reference:="NouvNoDevis"
    ActiveCell = ActiveCell + 1
' Numérote le devis
    Application.Goto Reference:="DevisSuivant"
    NumDev = ActiveCell.Offset(-1, 0)
    ActiveCell.Offset(-1, 0).Copy
    Sheets("DEVIS PLAT").Select
    Application.Goto Reference:="NoDevis"
    ActiveSheet.Paste

' Sauvegarde l'original
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save

' Sauvegarde le devis
Rep = "\\MYBOOKLIVE\client\Documents reseau\DEVIS"
NomDev = Rep + "D_" + Format(NumDev, "000000") + ".xlsx"
ActiveWorkbook.SaveAs Filename:=NomDev _
        , FileFormat:=xlNormal, password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
Feuil1.Shapes("NouveauDevisPlat").Delete
Feuil3.Shapes("NouveauDevisBobines").Delete
Application.DisplayAlerts = False
Sheets("Devis").Delete
ActiveWorkbook.Save

End Sub
Sub DevisBobines()

'Mémorise le nom du client
    Range("C2").Copy
    Sheets("Devis").Select
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("DEVIS BOBINES").Select
' Mémorise la référence
    Range("C4:H4").Copy
    Sheets("Devis").Select
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(0, 2).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
' Crée le numéro de devis
    Application.Goto Reference:="NouvNoDevis"
    Selection.Copy
    Application.Goto Reference:="DevisSuivant"
    ActiveSheet.Paste
' Prépare le Numéro suivant
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(1, 0).Select
    ActiveWorkbook.Names.Add Name:="DevisSuivant", RefersTo:=ActiveCell
    Application.Goto Reference:="NouvNoDevis"
    ActiveCell = ActiveCell + 1
' Numérote le devis
    Application.Goto Reference:="DevisSuivant"
    NumDev = ActiveCell.Offset(-1, 0)
    ActiveCell.Offset(-1, 0).Copy
    Sheets("DEVIS BOBINES").Select
    Application.Goto Reference:="NoDevisB"
    ActiveSheet.Paste

' Sauvegarde l'original
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save

' Sauvegarde le devis
Rep = "\\MYBOOKLIVE\client\Documents reseau\DEVIS"
NomDev = Rep + "D_" + Format(NumDev, "000000") + ".xlsx"
ActiveWorkbook.SaveAs Filename:= _
        NomDev, FileFormat:= _
        xlNormal, password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
Feuil1.Shapes("NouveauDevisPlat").Delete
Feuil3.Shapes("NouveauDevisBobines").Delete
Application.DisplayAlerts = False
Sheets("Devis").Delete
ActiveWorkbook.Save

End Sub

HELP

S'il vous plait... Merci d'avance..!?

Afficher la suite

A voir également:

Bouton ne marche pas sous office 2016
Microsoft office - Guide
Cette technique secrète permet d'avoir Windows et Microsoft Office gratuitement et à vie - Accueil - Bureautique
Open office gratuit - Télécharger - Suite bureautique
Web office - Guide
Save as pdf office 2007 - Télécharger - Bureautique

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 724

Bonjour,

ca marche sous office 2007 mais pas sous 2016
C'est-à-dire, qu'est ce qui ne "marche" pas ?
Décortiquer du code sans savoir à quoi il sert et ce qui ne fonctionne pas c'est totalement improductif sauf avec une boule de cristal : la mienne est en apprentissage. ;-)

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

Bonjour...?!!

Votre réponse

Discussions similaires