comment transférer 5 cellules ?

[fred65200]

re

remplace

'Gestion des doublons
tabloFacture = F2.Range("C2:C" & Derli).Value

par

'Gestion des doublons
tabloFacture = F2.Range("C1:C" & Derli).Value

@+

[tactic6]

Merci beaucoup pour ton aide ainsi qu'a tous les autres
chapeau

[tactic6]

encore moi je crois que je vais changer de pseudo

j'ai essayeé de modifier ton code afin de réaliser 2 types de sauvegarde
dans un premier dossier la feuil1
dans un deuxieme dossier la facture avec pour extension le numéro qui se trouve en I5
devine quoi ? ça marche pas tu peux me dire pourquoi stp ?
merci

Sub SauvegardeFeuil1()
Const DossierSauvegarde As String = "D:\Données\Relevé\" ' à modifier selon l'emplacement de ton dossier
Dim AWbk As Workbook
Dim LaFin As String
Dim Nb As Byte
Dim Ext
Dim NomClasseur As String
Set AWbk = ActiveWorkbook

'nom du classeur sans l'extension
NomClasseur = Left(AWbk.Name, Len(AWbk.Name) - InStr(1, StrReverse(AWbk.Name), "."))
'extension
Ext = Right(AWbk.Name, InStr(1, StrReverse(AWbk.Name), "."))
'date et heure
LaFin = Format(Now, "dd-mm-yy hh-mm-ss")
'enregistrement de la copie
    Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs DossierSauvegarde & NomClasseur & " " & LaFin & Ext, xlExcel8 ' tu peux supprimer xlExcel8
ActiveWorkbook.Close
Const DossierSauvegarde2 As String = "D:\Données\Facture\"
Dim AWbk As Workbook
Dim LaFin As String
Dim Nb As Byte
Dim Ext
Dim NomClasseur As String
Set AWbk = ActiveWorkbook
NomClasseur = Left(AWbk.Name, Len(AWbk.Name) - InStr(1, StrReverse(AWbk.Name), "."))
Ext = Right(AWbk.Name, InStr(1, StrReverse(AWbk.Name), "."))
Nume = F1.[H5]
Sheets("Facture").Copy
ActiveWorkbook.SaveAs DossierSauvegarde2 & NomClasseur & " " & Nume = F1.[H5] & Ext, xlExcel8 ' tu peux supprimer xlExcel8
ActiveWorkbook.Close
If MsgBox("Ouvrir le dossier de sauvegarde ?", vbYesNo) = vbYes Then _
   Shell "C:\WINDOWS\EXPLORER.EXE /n,/e," & DossierSauvegarde, vbNormalFocus

End Sub

[tactic6]

et aussi comment eviter d'avoir un message d'alerte "vérificateur de comptabilité" perte mineure de fidélité ....

[fred65200]

re

Sub SauvegardeFeuil1()
Const DossierSauvegarde As String = ""D:\Données\Relevé\" ' à modifier selon l'emplacement de ton dossier
Const DossierSauvegarde2 As String = ""D:\Données\Facture\"
Dim AWbk As Workbook
Dim LaFin As String
Dim Ext As String
Dim NomClasseur As String
Dim Nume As String
Set AWbk = ActiveWorkbook

'nom du classeur sans l'extension
NomClasseur = Left(AWbk.Name, Len(AWbk.Name) - InStr(1, StrReverse(AWbk.Name), "."))
'extension
Ext = Right(AWbk.Name, InStr(1, StrReverse(AWbk.Name), "."))
'date et heure
LaFin = Format(Now, "dd-mm-yy hh-mm-ss")
'enregistrement des copies
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs DossierSauvegarde & NomClasseur & " " & LaFin & Ext ', xlExcel8 ' tu peux supprimer xlExcel8
ActiveWorkbook.Close
Nume = [Facture!J6]  ' vérifie j'ai mis J6
Sheets("Facture").Copy
ActiveWorkbook.SaveAs DossierSauvegarde2 & NomClasseur & " " & Nume & Ext ', xlExcel8  ' tu peux supprimer xlExcel8
ActiveWorkbook.Close
'If MsgBox("Ouvrir le dossier de sauvegarde ?", vbYesNo) = vbYes Then _
   Shell "C:\WINDOWS\EXPLORER.EXE /n,/e," & ""D:\Données\", vbNormalFocus

End Sub

OK?

[tactic6]

Ok

[tactic6]

Arff....
là c'est vraiment un truc con mais bon j'ai pas trouvé
comment fait on pour que la page excel soit du genre A1:N70 ?
ça permettrait d'enregistrer des pages moins lourdes non ?
Dull a réussi mais j'ai pas compris comment et de plus j'aimerais même modififer le nombre de colonnes
http://www.excel-downloads.com/forum...ne-limite.html

[tactic6]

ça y est j'ai compris
réponse ici mais ça ne supprime pas ça cache
EXCEL : Afficher/Masquer -- CATHY ASTUCES --

[fred65200]

re

dans le module ThisWorkbook

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Feuil1").ScrollArea = "A1:N70"
End Sub

@+

[tactic6]

Merci Fred
à tout hasard tu ne saurais pas mettre une barre de défilement sur le coté parce que j'ai une feuille avec + de 3000 articles et faire défiler avec la molette de la souris c'est pas ce qu'il y a de mieux


edit

sur une feuille j'ai une option en olus sur ma barre de menu c'est un onglet nommé création que j'ai pas sur les autres on peut y choisir des affichage bicolores pour les lignes ...
pourquoi que sur une feuille

[fred65200]

bonsoir

Envoyé par tactic6

à tout hasard tu ne saurais pas mettre une barre de défilement sur le coté parce que j'ai une feuille avec + de 3000 articles et faire défiler avec la molette de la souris c'est pas ce qu'il y a de mieux

Je ne comprends pas

Envoyé par tactic6

sur une feuille j'ai une option en olus sur ma barre de menu c'est un onglet nommé création que j'ai pas sur les autres on peut y choisir des affichage bicolores pour les lignes ...
pourquoi que sur une feuille

Il faudrait voir le code

@+

[tactic6]

bonsoir

à tout hasard tu ne saurais pas mettre une barre de défilement sur le coté

un ascenseur pour faire monter ou descendre la page

Il faudrait voir le code

alors là j'en sais rien

bon app

[fred65200]

re

Pour afficher les barres de défilement sur Excel 2007

Bouton Office / Options Excel (en bas à droite)
Rubrique Options avancées
Chapitre Afficher les Options pour ce classeur
Cocher la case Afficher la barre de défilement verticale
Cocher la case Afficher la barre de défilement horizontale


Pour tes lignes colorées, sans le code, je ne peux pas te dire " pourquoi que sur une feuille".
EDIT Je crois comprendre, tu as certainement inséré un tableau , un objet SmartArt ou un graphique.
@+

[tactic6]

merci
bizarrement elles étaient cochées
après les avoir décochées et recochées elles sont apparues

Microsoft Microsoft ....... quand cesseras-tu de nous surprendre

merci pour tout

[tactic6]

Bonsoir a tous
je reviens vers vous pour une petite modif
la sauvegarde s'effectue sous le nom: Facture 1, Facture 2 ...
est il possible d'avoir [Nom du client (en H8) et Numero de facture (en J6)]
Merci