Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

compilation de 2 macros d'enregistrement

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bpol
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bpol

XLDnaute Impliqué
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
 
Trier par date Trier par votes
Re : compilation de 2 macros d'enregistrement

il me semble que tout le monde est mdrrrr pour que l'on ne trouve pas .

en fait ce que je cherche c'est de sauvegarder la feuille facture TVA en fichier XLS dans le même dossier qoù se trouve mon fixhier principal tout en copiant certaines données sur une feuille de ce fichier mais donc une donnée a un lien hypertexte vers le nouveau fichier sauvegardé

j'esère être assez clair !!

Bpol
 
Vote positif 0 Vote négatif
Re : compilation de 2 macros d'enregistrement

Bonjour le fil, bpol
mais ça bug à hauteur de la ligne en gras
...
ActiveSheet.Name = NomFeuille
...
Cliquez pour agrandir...
Il semble que la variable NomFeuille ne contient aucune valeur au moment ou elle est utilisée (dans l'essai de jumelage) ... !?

A plus
 
Vote positif 0 Vote négatif
Re : compilation de 2 macros d'enregistrement

re,

suite à mes essais

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

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

fonctionne

mais quand je rajoute

Sheets("facturier sorties").Select
Ligne = Range("A65536").End(xlUp).Row + 1
.Hyperlinks.Add Anchor:=.Cells(Ligne, 1),
Address:="", _
SubAddress:="'" & Classdest & "'!A1", _
TextToDisplay:=Classdest
.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



.Hyperlinks.Add Anchor:=.Cells(Ligne, 1),
Address:="", _
SubAddress:="'" & Classdest & "'!A1", _
TextToDisplay:=Classdest


se met en rouge le problème se situerait à Address:="",


voilà

bpol
 
Vote positif 0 Vote négatif
Re : compilation de 2 macros d'enregistrement

merci soenda pour taurveillance

bon j'avance voilà
il n'y plus d'erreur de synthaxe mais elle bug toujours

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("facturier sorties").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Hyperlinks.Add Anchor:=Cells(Ligne, 1), _
Address:="", _
SubAddress:="'" & Classdest & "'!A1", _
TextToDisplay:=Classdest
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")
'and
Sheets("facture TVA").Select
Range("F2") = Range("F2") + 1

qui peut m'aider à la terminer?

Merci
Bpol
 
Vote positif 0 Vote négatif
Re : compilation de 2 macros d'enregistrement

Re,

D'après l'aide MS ;
"SubAddress : Cette propriété renvoie ou définit l'emplacement dans le document associé au lien hypertexte. Type de données String en lecture-écriture."

D'ou (à mon faible avis) :
Code: 
SubAddress:= [COLOR=red]NomFeuille[/COLOR] & "!A1", _
Si j'ai bien lu (parce que le jaune ...)

A plus
 
Dernière édition:
Vote positif 0 Vote négatif
Re : compilation de 2 macros d'enregistrement

re ,
petit soucis

la maco bug maintenant à hauteur du gras

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("facturier sorties").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Hyperlinks.Add Anchor:=Cells(Ligne, 1), _
Address:="", _
SubAddress:=Classdest & "!A1", _
TextToDisplay:=Classdest
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")
'and
Sheets("facture TVA").Select
Range("F2") = Range("F2") + 1

qui peut m'aider SVP
Bpol
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
336
patricktoulon
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
379
job75
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
857
spike29
S
8
  • Question Question
XL 2021 Nom de feuille vba
Réponses
5
Affichages
512
89ric
8
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
627
job75
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
904
tnion
T
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
425
Latias
L
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
776
Zonmé
Z
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
715
jeff1494
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
661
Pimpon974
P
O
  • Résolu(e)
Microsoft 365 Lien hypertexte
2
Réponses
21
Affichages
2 K
job75
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
938
MickaeL_D
M
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
774
M@xu3L
M
  • Question Question
Microsoft 365 Créer autant d'onglet que de commune dans ma base principale
Réponses
14
Affichages
757
job75
E
  • Question Question
Microsoft 365 Vba erreur de compilation variable non définie
Réponses
2
Affichages
468
Dranreb
A
  • Résolu(e)
XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte
2 3 4
Réponses
54
Affichages
3 K
sylvanu
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
753
guiyom
G
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
576
tactic6
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
775
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…