hajorinette
XLDnaute Occasionnel
Bonjour
je suis débutante en excel et j'ai un ensemble de questions que j'ai pas pu résoudre
Question 1: pour une colonne avec des cellules en listes de données, les listes comprennent deux valeurs :cellule vide ou cellule avec un X
L'idée est de sommer les X quelque part...
Question 2 : est il possible d'ouvrir un fichier fermé dont on connait l'emplacement et le nom ( avec un lien hypertexte ou autre) juste en doublecliquant sur la cellule correspondante.
Exemple sur une colonne avec des N° incrémentés en double cliquant sur la cellule contenant le 5 j'aurai le fichier "toto_5" qui s'ouvre.
en double cliquant sur la cellule contenant le 6 (cellule juste en dessous) c'est "toto_6" qui s'ouvre.
Question 3:
Ce code en dessous contient 3 macros
la 1ere macro copie un de 3 fichiers selon la valeur de la variable flag.
La deuxieme macro le met dans un emplacement précis
je n'arrive pas à trouver le chemin qu'il faut pour mettre mon fichier excel tout simplement dans le dossier toto qui est sur le bureau, ça ne march epas avec ce chemin en tout cas
et la derniere macro est 'sensé' éditer un mail même si je ne vois rien de tout cela
en gros c'est la premiere macro qui fonctionne comme je le veux la deuxieme marche aussi mais ça me met le fichier dans mes documents !
la 3eme marche pas
Sub Archive()
Dim nomfichier As Workbook
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
On Error Resume Next
If Flag = 1 Then
Sheets("Casse").Select
Sheets("Casse").Copy
Call Sauve
End If
If Flag = 2 Then
Sheets("Défaut d'aspect").Select
Sheets("Défaut d'aspect").Copy
Call Sauve
End If
If Flag = 3 Then
Sheets("Produit manquant").Select
Sheets("Produit manquant").Copy
Call Sauve
End If
Application.ScreenUpdating = True
Sheets("FICHE RECLAMATIONS").Select
Application.CutCopyMode = False
Range("D6").Select
End Sub
Sub Sauve()
Dim nomfichier
Dim numero
Dim chemin As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
chemin = "C:\Documents and Settings\hajorinette\Bureau\toto"
.DisplayAlerts = True
End With
numero = Range("I2").Value
nomfichier = "LITIGE" & numero
With ActiveWorkbook
.SaveAs Filename:=nomfichier
.Close
End With
Application.ScreenUpdating = True
call Envoi_mail
End Sub
'Sub Envoi_mail()
'Dim Ol As New Outlook.Application
'Dim Olmail As MailItem
'Dim CurrFile As String
'Set Ol = New Outlook.Application
'Set Olmail = Ol.CreateItem(olMailItem)
'With Olmail
'adresse = Range("C13:E13").Value
'.To = adresse
'.Subject = "Votre réclamation est enregistrée"
'.Body = "Bonjour," & vbNewLine & vbNewLine & _
"Suite à votre réclamation " & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
'
'.Attachments.Add ActiveWorkbook.Path & "\nom du fichier"
'.Display'
'End With
'End Sub
Merci de votre aide!
je suis débutante en excel et j'ai un ensemble de questions que j'ai pas pu résoudre
Question 1: pour une colonne avec des cellules en listes de données, les listes comprennent deux valeurs :cellule vide ou cellule avec un X
L'idée est de sommer les X quelque part...
Question 2 : est il possible d'ouvrir un fichier fermé dont on connait l'emplacement et le nom ( avec un lien hypertexte ou autre) juste en doublecliquant sur la cellule correspondante.
Exemple sur une colonne avec des N° incrémentés en double cliquant sur la cellule contenant le 5 j'aurai le fichier "toto_5" qui s'ouvre.
en double cliquant sur la cellule contenant le 6 (cellule juste en dessous) c'est "toto_6" qui s'ouvre.
Question 3:
Ce code en dessous contient 3 macros
la 1ere macro copie un de 3 fichiers selon la valeur de la variable flag.
La deuxieme macro le met dans un emplacement précis
je n'arrive pas à trouver le chemin qu'il faut pour mettre mon fichier excel tout simplement dans le dossier toto qui est sur le bureau, ça ne march epas avec ce chemin en tout cas
et la derniere macro est 'sensé' éditer un mail même si je ne vois rien de tout cela
en gros c'est la premiere macro qui fonctionne comme je le veux la deuxieme marche aussi mais ça me met le fichier dans mes documents !
la 3eme marche pas
Sub Archive()
Dim nomfichier As Workbook
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
On Error Resume Next
If Flag = 1 Then
Sheets("Casse").Select
Sheets("Casse").Copy
Call Sauve
End If
If Flag = 2 Then
Sheets("Défaut d'aspect").Select
Sheets("Défaut d'aspect").Copy
Call Sauve
End If
If Flag = 3 Then
Sheets("Produit manquant").Select
Sheets("Produit manquant").Copy
Call Sauve
End If
Application.ScreenUpdating = True
Sheets("FICHE RECLAMATIONS").Select
Application.CutCopyMode = False
Range("D6").Select
End Sub
Sub Sauve()
Dim nomfichier
Dim numero
Dim chemin As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
chemin = "C:\Documents and Settings\hajorinette\Bureau\toto"
.DisplayAlerts = True
End With
numero = Range("I2").Value
nomfichier = "LITIGE" & numero
With ActiveWorkbook
.SaveAs Filename:=nomfichier
.Close
End With
Application.ScreenUpdating = True
call Envoi_mail
End Sub
'Sub Envoi_mail()
'Dim Ol As New Outlook.Application
'Dim Olmail As MailItem
'Dim CurrFile As String
'Set Ol = New Outlook.Application
'Set Olmail = Ol.CreateItem(olMailItem)
'With Olmail
'adresse = Range("C13:E13").Value
'.To = adresse
'.Subject = "Votre réclamation est enregistrée"
'.Body = "Bonjour," & vbNewLine & vbNewLine & _
"Suite à votre réclamation " & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
'
'.Attachments.Add ActiveWorkbook.Path & "\nom du fichier"
'.Display'
'End With
'End Sub
Merci de votre aide!