Problème ligne de code enregistrement fichier et coller en valeur

Créer une discussion
Répondre

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
C

cookies

XLDnaute Occasionnel
Bonjour le forum,

J'ai un code que j'ai pris en parti sur ce forum qui permet de boucler sur tous les fichiers d'un répertoire et de récupérer une certaine plage de données.

Il y deux choses que je voudrais adapter :
- lors de l'exécution de la procédure, il me propose d'enregistrer chaque fichier (car il ouvre chaque fichier) j'aimerais inclure dans le code que "non" je ne veut pas qu'il enregistre le fichier.
- ensuite j'essaie d'adapter pour qu'il "colle" en valeur afin de pas avoir les formules dans ma plage qui est copiée.

Voici le code :

Code: 
Dim intFile As Integer
 Dim strWB As String
 Dim strFile As String
 Dim lgDerLig As Long
 Dim lgDerligB As Long
 
 Application.ScreenUpdating = False
 Application.EnableEvents = False

 ' Nom du classeur actuel
 strWB = ThisWorkbook.Name
 
 ActiveWorkbook.Worksheets(1).Activate
 lgDerligB = Range("B65536").End(xlUp).Row + 1
 
 ' Récupération du premier fichier dans le répertoire
 Chemin = "C:\Users\Desktop\test\entrée - Copie - Copie - Copie"
 strFile = Dir(Chemin & "\*.xls")

 ' Boucle du 1er au dernier classeur dans le répertoire
 Do While strFile <> ""
 ' Si le classeur n'est pas le classeur de destination
 If strFile <> strWB Then
 ' Ouvrir le fichier
Workbooks.Open Chemin & "\" & strFile

 ' Sélectionner le 1er onglet feuille de saisie
 ActiveWorkbook.Worksheets(1).Activate

 ' Copie des données
    lgDerLig = Range("B65536").End(xlUp).Row
 lgDerligB = Workbooks(strWB).Worksheets("Feuil1").Range("B65536").End(xlUp).Row + 1
 Workbooks(strFile).Worksheets("Synthèse").Range("B26:BA" & lgDerLig).Copy Destination:=Workbooks(strWB).Worksheets("Feuil1").Range("B" & lgDerligB)


 ' Fermeture du classeur
 Workbooks(strFile).Close
 End If

 ' Classeur suivant
 strFile = Dir
 Loop

 MsgBox "Le traitement des fichiers est terminé.", vbInformation, "Traitement..."

 Application.ScreenUpdating = True
 Application.EnableEvents = True
End Sub

La focalisation est dans ces lignes :
Code: 
 ' Copie des données
    lgDerLig = Range("B65536").End(xlUp).Row
 lgDerligB = Workbooks(strWB).Worksheets("Feuil1").Range("B65536").End(xlUp).Row + 1
 Workbooks(strFile).Worksheets("Synthèse").Range("B26:BA" & lgDerLig).Copy Destination:=Workbooks(strWB).Worksheets("Feuil1").Range("B" & lgDerligB)


 ' Fermeture du classeur
 Workbooks(strFile).Close
 End If
Si vous avez des réponses je suis preneur.
Merci à tous !

Cookies
 
Dernière édition:
Trier par date Trier par votes
Re : Problème ligne de code enregistrement fichier et coller en valeur

Bonjourcookies,

pour répondre à la première question
- lors de l'exécution de la procédure, il me propose d'enregistrer chaque fichier (car il ouvre chaque fichier) j'aimerais inclure dans le code que "non" je ne veut pas qu'il enregistre le fichier.
Cliquez pour agrandir...
avec ceci:
Code: 
 ' Fermeture du classeur
Application.DisplayAlerts = False
 Workbooks(strFile).Close
 End If
à+
Philippe
 
Vote positif 0 Vote négatif
Re : Problème ligne de code enregistrement fichier et coller en valeur

Salut Philippe,

Merci. J'avais vu cette fonction mais je l'avais placé après la fermeture du fichier donc ça ne marchait pas.

As-tu une idée pour coller ma plage en valeur ?

Code: 
' Copie des données
lgDerLig = Range("B65536").End(xlUp).Row
lgDerligB = Workbooks(strWB).Worksheets("Feuil1").Range("B6553 6").End(xlUp).Row + 1

Workbooks(strFile).Worksheets("Synthèse").Range("B 26:BA" & lgDerLig).Copy Destination:=Workbooks(strWB).Worksheets("Feuil1") .Range("B" & lgDerligB)

J'ai tenté de mettre un .Value à la fin mais ça ne fonctionne pas..

Merci d'avance pour votre aide

Cookies
 
Vote positif 0 Vote négatif
Re : Problème ligne de code enregistrement fichier et coller en valeur

Re,

peut-être avec ceci . . . . . (pas testé)
Code: 
Workbooks(strFile).Worksheets("Synthèse").Range("B 26:BA" & lgDerLig).Copy
Workbooks(strWB).Worksheets("Feuil1").Range("B" & lgDerligB).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
à+
Philippe
 
Vote positif 0 Vote négatif
Re : Problème ligne de code enregistrement fichier et coller en valeur

Bonjour à tous


Et avec ceci, cela donne quoi?
Code: 
Workbooks(strFile).Worksheets("Synthèse").Range("B26:BA" & lgDerLig).Copy 
Workbooks(strWB).Worksheets("Feuil1").Range("B" & lgDerligB).PasteSpecial Paste:=xlPasteValues
 
Vote positif 0 Vote négatif
Re : Problème ligne de code enregistrement fichier et coller en valeur

Re bonjour,

Je reviens vers vous sur le même code mais pas la meme demande. C'est pourquoi je n'ouvre pas un autre sujet.
Je sais pas si vous allez pouvoir m'aider, mais je tente.

Le code ci dessus me permet donc de copier coller une plage de données de tous les fichiers d'un même répertoire.

Ma sélection de plage remonte jusqu'à la dernière ligne non vide. Et c'est là le souci car j'ai dans des cellules de cette colonne B, des formules qui affichent du vide "".

Code: 
 lgDerLig = Range("B65536").End(xlUp).Row

Comment lui dire de remonter jusqu'à la derniere ligne non vide, mais dans le sens non vide "avec valeur" et pas non vide "avec formule" ?

Se sont des formules simples qui affiche soit un chiffre soit "".

Merci pour votre aide.

Cookies
 
Vote positif 0 Vote négatif
Re : Problème ligne de code enregistrement fichier et coller en valeur

Bonsoir,

Merci.
Mais quand je l'adapte dans mon code, il ne fonctionne pas.

Je l'ai intégré de la sorte :

Code: 
Sub Macro4()
 Dim intFile As Integer
 Dim strWB As String
 Dim strFile As String
 Dim lgDerLig As Long
 Dim lgDerligB As Long
 
 Application.ScreenUpdating = False
 Application.EnableEvents = False

 ' Nom du classeur actuel
 strWB = ThisWorkbook.Name
 
 ActiveWorkbook.Worksheets(1).Activate
 lgDerligB = Range("B65536").End(xlUp).Row + 1
 
 ' Récupération du premier fichier dans le répertoire
 Chemin = "C:\Users\ABP\Desktop\test\entrée - Copie - Copie - Copie"
 strFile = Dir(Chemin & "\*.xls")

 ' Boucle du 1er au dernier classeur dans le répertoire
 Do While strFile <> ""
 ' Si le classeur n'est pas le classeur de destination
 If strFile <> strWB Then
 ' Ouvrir le fichier
Workbooks.Open Chemin & "\" & strFile

 ' Sélectionner le 1er onglet feuille de saisie
 ActiveWorkbook.Worksheets(1).Activate

For i = Range("B65535").End(xlUp).Row To 1 Step -1
If Cells(i, 2) <> "" Then
lgDerLig = i
End If
Next i

 ' Copie des données

 lgDerligB = Workbooks(strWB).Worksheets("Feuil1").Range("B65536").End(xlUp).Row + 1
 Workbooks(strFile).Worksheets("Synthèse").Range("A26:BC" & lgDerLig).Copy
Workbooks(strWB).Worksheets("Feuil1").Range("B" & lgDerligB).PasteSpecial Paste:=xlPasteValues

 ' Fermeture du classeur
 Application.DisplayAlerts = False
 Workbooks(strFile).Close
 End If

 ' Classeur suivant
 strFile = Dir
 Loop

 MsgBox "Le traitement des fiches de suivi des gains est terminé.", vbInformation, "Traitement..."

 Application.ScreenUpdating = True
 Application.EnableEvents = True
 
 Call Macro3
 
End Sub

Mais je suis pas sur de moi...

Merci d'avance pour votre aide précieuse.

Cookies
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème ligne de code enregistrement fichier et coller en valeur

Re,

Code: 
For i = Range("B65535").End(xlUp).Row To 1 Step -1
If Cells(i, 2) <> "" Then
lgDerLig = i
End If
Next i

 ' Copie des données

 lgDerligB = Workbooks(strWB).Worksheets("Feuil1").Range("B65536").End(xlUp).Row + 1
 Workbooks(strFile).Worksheets("Synthèse").Range("A26:BC" & lgDerLig).Copy
Workbooks(strWB).Worksheets("Feuil1").Range("B" & lgDerligB).PasteSpecial Paste:=xlPasteValues
il y a sans doute un petit problème avec lgDerligB ,lgDerLig

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Problème ligne de code enregistrement fichier et coller en valeur

Re,

Je ne crois pas car cela fonctionne lorsque je fais un xlup.

Je mets le fichier. C'est toujours un peu plus parlant avec. (c'est le module 1 par ailleurs)

Est-ce que l'on est sur qu'il enregistre bien "i" comme la dernière ligne tel que je l'ai mis dans le code ?
Car je me demande si il boucle pas en continu dessus...

Merci d'avance.
Cookies
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Problème ligne de code enregistrement fichier et coller en valeur

Re,

Est-ce que l'on est sur qu'il enregistre bien "i" comme la dernière ligne tel que je l'ai mis dans le code ?
Car je me demande si il boucle pas en continu dessus...
Cliquez pour agrandir...
le problème vient du fait qu'il manque une sortie de la boucle comme je l'avais mis dans le code en exemple

dans ce contexte il faut mettre Exit For

Code: 
For i = Range("B65535").End(xlUp).Row To 1 Step -1
If Cells(i, 2) <> "" Then
lgDerLig = i
Exit For
End If
Next i

à+
Philippe
 
Vote positif 0 Vote négatif
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

J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
394
job75
job75
arck
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
425
AtTheOne
AtTheOne
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
453
spike29
S
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
902
jebibo
J
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
525
safranien
S
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
613
AtTheOne
AtTheOne
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
749
Chaton77
Chaton77
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
699
TooFatBoy
TooFatBoy
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
268
job75
job75
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
1 K
jurassic pork
jurassic pork
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
350
Lau01150
L
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
583
MarineU
M
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
3 K
dysorthographie
dysorthographie
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
836
Corentin26270
C
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
375
sebastien176
S
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
804
M@xu3L
M
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
341
Pierreavecunp
P
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
915
spike29
S
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
599
fanch55
fanch55
Retour