Macro d´enregistrement qui bug

[Ben&Bee]

Bonjour Forum

Un pb à résoudre

Si je lance la macro une deuxième fois (la première fois ma macro a été enregistré ds le chemin d accés indiqué) une fenêtre apparaît m´indiquant si je souhaite remplacer le fichier (que j ai enregistré lors de mon premier clique sur la macro).
Si j´indique oui il n´ya pas de pb, mais si j´indique non ou annuler, ca bug..

Comment éviter ce bug qui provoque l´affichage de l´erreur ds le ds le programme VBA de la macro...

Voici la macro
Private Sub DatosComerciales_Click()

Dim Essai As Range
Dim Liste1 As String
Dim Temp As String

For Each Essai In Range('Liste1')
If Essai.Value = '' Then
texte = texte & vbNewLine & Prueba.Offset(0, -1).Value
End If
Next Essai

If texte <> '' Then
MsgBox texte, vbCritical, 'Cellule à remplir :'
Else

Temp = 'X:/Fichier/' & Range('F30').Value & '/' & Range('F32').Value
ActiveWorkbook.SaveAs Filename:=Temp, FileFormat:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=False

End If
`

Merci d&acute;avance à celui qui tentera de me donner un coup de main
Ben&Bee

 

[Abel]

Bonjour Ben&Bee,

Regarde ce Lien supprimé

En espérant que cela te dépanne.

Abel.

 

[Macro d´enregistrement qui bug]

Salut Abel

MEric de ta rapide réponse

je viens de jeter un coup d&acute;oeil à ton link, mais malgré ca j&acute; arrive pas à trouver le remède..

J&acute;essai de faire un truc du style .... ( en rouge)

Private Sub DatosComerciales_Click()

Dim Essai As Range
Dim Liste1 As String
Dim Temp As String

For Each Essai In Range('Liste1')
If Essai.Value = '' Then
texte = texte & vbNewLine & Prueba.Offset(0, -1).Value
End If
Next Essai

If texte <> '' Then
MsgBox texte, vbCritical, 'Cellule à remplir :'
Else

Temp = 'X:/Fichier/' & Range('F30').Value & '/' & Range('F32').Value
ActiveWorkbook.SaveAs Filename:=Temp, FileFormat:=xlNormal, Password:=\\'\\', WriteResPassword:=\\'\\',
ReadOnlyRecommended:=False, CreateBackup:=False

If Temp = False Then
Affichage = MsgBox('Vous allez quitter la routine.' & Chr(10) & Chr(10) & _
'Cliquez à nouveau sur le gros bouton si vous voulez recommencer' _
& Chr(10) & Chr(10) & 'Aucune modification ni aucun enregistrement n'ont été effectués' _
, 48)
GoTo LaFin
End If

End If
LaFin:

End Sub


.. mais ca bug Erreur 1004
Erreur ds la methode de SaveAs de l&acute;objet _Workbook

En fait je crois qu&acute;il faut que je programme chacune des actions
Il doit être seulement programmé à ce que je réponde 'oui' à 'voulez vous rempacer le fichier existant'.. Il ne sait pas quoi faire ds les cas d&acute;un 'Non' ou 'Annuler'. fofrait que je mette un exit sub ds ces cas ou qqch comme ca
Mais je sais pas l&acute;écrire ca en VBA.

Si &acute;as une solution elle sera toujours bienvenue..

Merci encore

Ben&Bee

 

[Abel]

Bonjour Ben&Bee,

Bon, mon bidule ne doit pas être si clair que ça finalement.

Rapidement :

Comment renseignes-tu Temp ?

Il faut renseigner cette variable puisque tu t'en serts pour enregistrer le fichier.

Abel.

 

[Ben&Bee]

TEmp

Est un chemin d&acute;accés à l&acute;endroit ou s enregistrera le fichier..

Lieu d &acute;enregistrement
Les fichier s&acute;enregistreront toujours dans le repertoire 'MOdelos En fonction de l&acute;etat de la cellule F30 ils iront en 'A' ou 'B' sous repertoires du 'Principale'.

Nom d&acute;ernegistrement.
Le fichier prenra le nom situé en F32

Disque Dur X:
Repertoire Principal 'MOdelo'
Sous repertoire F30 = 'A ou 'B'
Nom F32

Ca te suffit comme info

 

[Ben&Bee]

C bon Abel
J&acute;ai reglé le pb

Merci pout ta dispo

 

[PascalXLD]

Bonjour ce fil



Ben&Bee tu es gentil mais bien que je ne cherche pas la gloriole (ceux qui me connaissent un peu te le diront) tu peux au moins tourner une phrase du style

En désaccord avec la charte j'ai doublé mon fil et j'ai eu une réponse qui me convient sur ce 2éme.

et conclure comme tu as fait Merci pour ta dispo

Tiens le fil pour Abel

Lien supprimé

Allez bonne journée et ne le prends pas mal car tu as au moins signalé que tu avais la réponse et tu as remercié et je crois qu'un fil de ce jour m'a passablement enervé B)

Message édité par: Pascal76, à: 31/05/2005 13:47

 

[Antoine]

Désolé pour le doublage de fil..

Mais desfois j ai l impression que les experts (vous meme) prêtent moins attention au message déjà répondus.. et qu&acute;un message sans réponse attire plus l attention...

Merci encore pour vos precieux conseils

Ben&Bee

 

[PascalXLD]

Re

T'inquiètes pas mais pour ton information il suffit simplement de relancer le fil le matin en mettant juste 'je le relance' pour qu'il apparaisse en début des messages et tu sais je ne me considère nullement comme un expert vu ce que font certains sur ce forum

Bonne journée Antoine

 

[Abel]

Re,

Merci Pascal.

Sinon, ah ben oui. Temp : 3 lignes plus haut. Arf !

Pas réveillé ce matin. Bon, je retourne à mes tests et l'écriture de mon protocole de tests. Pff ! Quelle barbe.

A+


Abel.