AIDE SUR MODIF CODE VBA

[cj welch]

bonjur,
je voudrais modifier le code suivant :

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]

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]

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\"