Comment desactiver les macros...
Résolu
chrismeun
Messages postés
237
Date d'inscription
Statut
Membre
Dernière intervention
-
chrismeun Messages postés 237 Date d'inscription Statut Membre Dernière intervention -
chrismeun Messages postés 237 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans un classeur qui me sert de modéle j'ai une feuille de calcul qui remplit un devis que je sauvegarde ..avec un numéro de devis
le probleme c'est que quand je rapelle ce devis le numéro change car il s'incremente seul a l'ouverture( macro) !! comment eviter ce probléme
merci de votre aide
Dans un classeur qui me sert de modéle j'ai une feuille de calcul qui remplit un devis que je sauvegarde ..avec un numéro de devis
le probleme c'est que quand je rapelle ce devis le numéro change car il s'incremente seul a l'ouverture( macro) !! comment eviter ce probléme
merci de votre aide
A voir également:
- Comment desactiver les macros...
- Desactiver rond bleu whatsapp - Guide
- Comment désactiver le mode sécurisé - Guide
- Desactiver uac - Guide
- Désactiver compte facebook - Guide
- Desactiver instagram - Guide
3 réponses
Salut,
Il faut écrire un bout de code pour dupliquer la feuille et l'enregistrer.
exemple le numéro de ton devis est en cellule B1 et tu veux dupliquer la feuille Devis
ce code dupliquera uniquement ta feuille Devis et créera un fichier sans macro dans le même répertoire. en plus du numéro de Devis qui dans l'exemple est en B2, on pourrait ajouter à ce numéro de Devis un nom client dans le nom du nouveau fichier à partir d'une cellule pour obtenir ex. Durand 1235.xls
Sub test()
Dim chemin, nom As String
chemin = ActiveWorkbook.Path
nom = [B1]
ThisWorkbook.Sheets("Devis").Copy
ActiveWorkbook.SaveAs chemin & "\" & nom
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Il faut écrire un bout de code pour dupliquer la feuille et l'enregistrer.
exemple le numéro de ton devis est en cellule B1 et tu veux dupliquer la feuille Devis
ce code dupliquera uniquement ta feuille Devis et créera un fichier sans macro dans le même répertoire. en plus du numéro de Devis qui dans l'exemple est en B2, on pourrait ajouter à ce numéro de Devis un nom client dans le nom du nouveau fichier à partir d'une cellule pour obtenir ex. Durand 1235.xls
Sub test()
Dim chemin, nom As String
chemin = ActiveWorkbook.Path
nom = [B1]
ThisWorkbook.Sheets("Devis").Copy
ActiveWorkbook.SaveAs chemin & "\" & nom
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
j'ai reussi avec ton intervention...
mais j'ai un autre probleme
j'utilise un mx de code qu'un collegue a ecris et je ne m'en sors pas
apres
ActiveWorkbook.SaveAs Filename:=Range("K14") & "Devis Portalux " & Range("E16") & " Type " & Range("J16") & " - " & Range("J17") & " - " & Range("K3")
je me retrouve a travailler dans le devis creer alors que je voudrais que mais macro continue de travailler dans le document de base ...comment faire
mais j'ai un autre probleme
j'utilise un mx de code qu'un collegue a ecris et je ne m'en sors pas
apres
ActiveWorkbook.SaveAs Filename:=Range("K14") & "Devis Portalux " & Range("E16") & " Type " & Range("J16") & " - " & Range("J17") & " - " & Range("K3")
je me retrouve a travailler dans le devis creer alors que je voudrais que mais macro continue de travailler dans le document de base ...comment faire
