compilation de 2 macros d'enregistrement

[bpol]

bonjour,

voilà j'ai essayé de faire une macro d'enregistrement de feuille dans le même dossier que mon fichier et ceci afin de ne pas alourdir mon fichier principal


donc j'ai cette 1ere macro qui me permet d'enregistrer dans le même dossier


Dim Classdest As String, Onglet As String ' Déclaration des Variables

Sheets("facture").Copy '
Onglet = Range("A1").Value
ActiveSheet.Name = Onglet 'Nouvelle feuille =
Classdest = Range("G7") & ".xls"

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Classdest

ActiveWorkbook.Close


jai celle ci qui enregistre mais dans le ficher

Dim NomFeuille As String, i As Byte, Ligne As Integer
NomFeuille = Range("C9")
For i = 1 To Sheets.Count
If Sheets(i).Name = NomFeuille Then
Trouve = True
Exit For
End If
Next
If Trouve = True Then
If MsgBox("La feuille " & NomFeuille & " existe déjà!" & vbCrLf & _
"voulez-vous la remplacer?", vbQuestion + vbYesNo, "Suppression Feuille") = vbYes Then
Application.DisplayAlerts = False
Sheets(NomFeuille).Delete
Application.DisplayAlerts = True
Else: Exit Sub
End If
End If
Sheets("facture TVA").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = NomFeuille
With Sheets("facturier sorties")
Ligne = .Range("A65536").End(xlUp).Row + 1
.Hyperlinks.Add Anchor:=.Cells(Ligne, 1), _
Address:="", _
SubAddress:="'" & NomFeuille & "'!A1", _
TextToDisplay:=NomFeuille
.Cells(Ligne, 2) = Sheets("facture TVA").Range("C7")
.Cells(Ligne, 3) = Sheets("facture TVA").Range("G7")
.Cells(Ligne, 4) = Sheets("facture TVA").Range("C8")
.Cells(Ligne, 5) = Sheets("facture TVA").Range("J32")
.Cells(Ligne, 6) = Sheets("facture TVA").Range("F31")
.Cells(Ligne, 7) = Sheets("facture TVA").Range("J28")
.Cells(Ligne, 8) = Sheets("facture TVA").Range("J29")
.Cells(Ligne, 9) = Sheets("facture TVA").Range("J30")
End With
Sheets("facture TVA").Select
Range("F2") = Range("F2") + 1


et vloià mon essai de jumelage
( ne riez pas )


Sheets("facture TVA").Copy '
Onglet = Range("A1").Value
ActiveSheet.Name = Onglet 'Nouvelle feuille =
Classdest = Range("C9") & ".xls "

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Classdest

ActiveWorkbook.Close
'and
Sheets("facture tva").Select
'and
Sheets("facture TVA").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = NomFeuille
With Sheets("facturier sorties")
Ligne = .Range("A65536").End(xlUp).Row + 1
.Hyperlinks.Add Anchor:=.Cells(Ligne, 1), _
Address:="", _
SubAddress:="'" & NomFeuille & "'!A1", _
TextToDisplay:=NomFeuille
.Cells(Ligne, 2) = Sheets("facture TVA").Range("C7")
.Cells(Ligne, 3) = Sheets("facture TVA").Range("G7")
.Cells(Ligne, 4) = Sheets("facture TVA").Range("C11")
.Cells(Ligne, 5) = Sheets("facture TVA").Range("J32")
.Cells(Ligne, 6) = Sheets("facture TVA").Range("F31")
.Cells(Ligne, 7) = Sheets("facture TVA").Range("J28")
.Cells(Ligne, 8) = Sheets("facture TVA").Range("J29")
.Cells(Ligne, 9) = Sheets("facture TVA").Range("J30")
End With
Sheets("facture TVA").Select
Range("F2") = Range("F2") + 1


mais ça bug à hauteur de la ligne en gras.


HELP


Meri
Bpol

 

[soenda]

Re : compilation de 2 macros d'enregistrement

Re,

Je n'ai pas été très explicite dans mon dernier post ...

Vois l'exemple suivant (adaptable à ton cas)

- Dans la feuille active en cellule B2, on ajoute un lien hypertexte
- Qui ouvre le classeur fic.xlsx se trouvant dans C:\temp\
- La feuille active à l'ouverture est Feuil2 et la cellule sélectionnée est C3
- Le texte du lien Hypertexte est "Ouvrir la feuille 2 de fic.xlsx et sélectionner la cellule C3"

    ActiveSheet.Hyperlinks.Add Anchor:=Cells(2, 2), _
        Address:="C:\temp\fic.xlsx", _
        SubAddress:="Feuil2!C3", _
        TextToDisplay:="Ouvrir la feuille 2 de fic.xlsx et sélectionner la cellule C3"

En espérant que cela te sera utile.


A plus

 

[bpol]

Re : compilation de 2 macros d'enregistrement

re soenda,

non c'est pas cela que je cherche.
mon souhait est de sauver une feuille' 1 par EX, d'un fichier en un nouveau fichier ( ça je sais le faire) et en même temps une cellule de la feuille1 se copie ds un tableau mais devient un lien pour le nouveau fichier et c'est là que je bloque

merci encore
A+
Bpol

 

[soenda]

Re : compilation de 2 macros d'enregistrement

Re,

Si ton classeur ce trouve dans le même répertoire que le classeur actif,
il te faut quand même renseigner la propriété Address (si je ne m'abuse...)

        ...
        [COLOR=red][B][COLOR=black]Address:=[/COLOR]Classdest[/B][/COLOR], _
        [B]SubAddress:=[/B]NomFeuille & "'!A1", _
        ...

A plus