[XL-2007] Rompre les liens macros VBA d'un classeur à l'autre [Résolu]

[lbroc84]

Bonjour,

J'essaye de faire une macro qui permette de copier un fichier, de le renommer et de l'envoyer via Outlook.

Tout fonctionne bien, excepté le fait que j'ai mis deux macros (mise à jour des liens et copier/coller valeurs) sur une des feuilles et j'aimerais que le destinataire de mon mail puisse utiliser ces macros...

Seulement, ca ne fonctionne pas... J'ai comme message d'erreur chez le destinataire quand j'appuie sur le bouton d'une des deux macros : "Fichier inaccessible"... les liens de la macro avec mon ancien fichier n'ont pas été rompu...

Comment puis-je rompre les liens ?

J'ai essayé de mettre la macro dans le tutoriel VB mais ca ne fonctionne pas non plus...

Merci d'avance,

lbroc84

[ZebreLoup]

Il faut que tu nous donnes ton code, ou au moins une partie, car là, on ne peut pas grand chose pour toi malheureusement...
Peut-être un problème de lien relatif et non absolu ?

[lbroc84]

OK, voici mon code de base de copie d'un fichier vers un autre (sachant que Namesociete est défini plus haut dans la macro)...

Code :

1
2
3
4
5
6
7
8
Sheets(Array("Feuil1", "Feuil2")).Copy
    ChDir "U:\Cheminacces"
    ActiveWorkbook.SaveAs Filename:= _
        "U:\cheminacces\" & NameSociete & ".xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWorkbook.Close

Que dois-je ajouter à ce code pour rompre les liens dans le nouveau classeur ?

Merci

[ZebreLoup]

Je pensais plutôt au code lié au bouton sur lequel tu as cliqué. Celui qui pose problème quoi...

[lbroc84]

Je veux bien mettre le code mais d'après moi, ce serait plutôt dans la macro d'origine qu'il faudrait rajouter quelque chose qui puisse rompre les liens car c'est lorsqu'on appuie sur le bouton "Copier /coller valeurs" du nouveau classeur chez le destinataire (qui n'a donc pas le lien avec mon premier fichier) que l'on me dit "Fichier inaccessible"...

Donc en fait, il ne veut pas faire marcher les macros de la feuille du nouveau classeur car il ne reconnait pas le lien avec le fichier d'origine...

Je ne sais pas si je suis claire ?

Voici le code d'une des 2 macros de la feuille copiée dans le nouveau classeur et pour laquelle j'ai le message "Fichier inaccessible" :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub Bouton3_QuandClic()
 
    Dim i As Integer
    Sheets("Feuil1").Select
    For i = 19 To 624
    Range("F" & i).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Next
End Sub

Merci bcp

[ZebreLoup]

Ok, je vois mieux le problème. Je pense que le plus simple, ce serait d'utiliser le bouton de la boite à outils "contrôles" plutôt que celui d'un "formulaire".

En effet dans le formulaire, tu associes une macro au bouton, ce qui peut effectivement gérer des problèmes lors de la copie. Alors qu'avec un contrôle, le code va gérer l'évènement click et ça ne posera aucun problème lors de la copie.

Au passage, pour ton copier en valeurs, c'est plus simple et plus rapide de faire ça :

Code :

1
2
3
4
5
6
7
Sub Bouton3_QuandClic()
    Dim rg As Range
    Set rg = Sheets("Feuil1").Range("F19:F624")
    rg.Copy
    rg.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[lbroc84]

Ta solution m'a l'air GENIALE... et je t'en remercie d'avance...

La seule chose, c'est que je n'ai jamais créé de bouton de contrôle et je en sais pas comment lui attribuer la macro créée...

Quand je crée le bouton, il me met :

=INCORPORER("Forms.CommandButton.1";"")

Dois-je changer quelque chose dans cette formule ?

Où est-ce que je met le nom de ma macro ?

Merci beaucoup

[ZebreLoup]

En fait quand tu double-cliques sur ton bouton (en mode édition), il te génère automatiquement le code

Code :

1
2
3
Private Sub CommandButton1_Click()
 
End Sub

Il te suffit donc d'écrire ton code ici. Soit tu mets directement ton code soit tu fais

Code :

1
2
3
Private Sub CommandButton1_Click()
  Bouton3_QuandClic
End Sub

[lbroc84]

SUPEEEERRRR... ca fonctionne....


Un tout tout grand merci... Ca fait plusieurs jours que je cherche comment résoudre ce problème...

C'est génialissime...

lbroc84