AIDE SUR MODIF CODE VBA

cj welch

XLDnaute Occasionnel
bonjur,
je voudrais modifier le code suivant :
Code:
Sub Saisie()
Dim r As Byte
Dim NomFichier$
Const NomChemin$ = "\\Serveur\Partages\Gestion\
 
    r = MsgBox("Voulez vous lancer l'effacement ?", vbYesNo, "Effacement ?")
    If r = 6 Then
        Sheets("commande").Unprotect Password:="LN"
        Union(Cells(2, 2), Range("H9:U48")).ClearContents
        Sheets("commande").Protect Password:="LN"
        NomFichier = "HC" & " " & Cells(1, 2).Value & ".xls"
        r = MsgBox("Voulez vous enregister le classeur sous le nom : " & NomFichier, vbYesNo, "Enregistrement ?")
        If r = 6 Then ActiveWorkbook.SaveAs (NomChemin & NomFichier)
    End If
 
End Sub

je voudrais rajouter :
- l' éffacement de la colonne AA9 à AA48
-copier les valeurs de la colonne AC9:AC48 vers AB9:AB48 (en gardant la FORMULE en AC du type (AA9 + AB9)
- effacer les valeurs de la colonne AF9 à AF48

Merci pour votre aide

Cordialement
 

cj welch

XLDnaute Occasionnel
bonjour cathodique,

cela fonctionne bien merci beaucoup pour ta disponibilité et ta patience.

Par contre , j 'ai un petit problème, parfois l'userforme mois ne se vide pas
et j' ai un message d'erreur dans la macro au niveau
If r = 6 Then ActiveWorkbook.SaveAs (NomChemin & NomFichier)
tu saurais me dire qu'elle est le problème ?
Cordialement
 

cathodique

XLDnaute Barbatruc
Bonjour,

Tu enregistres sur un serveur, je ne peux pas tester. Je ne connais pas exactement la syntaxe pour le chemin vers un serveur.

Je suppose qu'à peu près c'est la même que sur un disque dur. Alors si tu enregistres dans le sous répertoire "GESTION", il te manques un "\" à la fin.

J'ai testé sur mon pc comme ceci: Const NomChemin$ = "I:\SERVEUR\PARTAGES\GESTION\" et ça fonctionne bien.

Essaie comme ceci pour ton serveur: Const NomChemin$ = "\\Serveur\Partages\Gestion\"
 

Statistiques des forums

Discussions
313 274
Messages
2 096 753
Membres
106 738
dernier inscrit
Lacbus