Comment desactiver les macros...
Résolu/Fermé
chrismeun
Messages postés
235
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
1 juin 2012
-
22 févr. 2011 à 15:19
chrismeun Messages postés 235 Date d'inscription mercredi 19 avril 2006 Statut Membre Dernière intervention 1 juin 2012 - 24 févr. 2011 à 16:27
chrismeun Messages postés 235 Date d'inscription mercredi 19 avril 2006 Statut Membre Dernière intervention 1 juin 2012 - 24 févr. 2011 à 16:27
A voir également:
- Comment desactiver les macros...
- Desactiver instagram - Guide
- Désactiver onedrive - Guide
- Desactiver windows defender - Guide
- Desactiver edge - Guide
- Mode securise android desactiver - Guide
3 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
22 févr. 2011 à 16:01
22 févr. 2011 à 16:01
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
chrismeun
Messages postés
235
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
1 juin 2012
1
24 févr. 2011 à 07:09
24 févr. 2011 à 07:09
merci de ta réponse que je vais essayer..je te tiens au courant merci
chrismeun
Messages postés
235
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
1 juin 2012
1
24 févr. 2011 à 16:27
24 févr. 2011 à 16:27
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